Excel and Email/Outlook

[carl]

my company recently switched my excel and outlook. My previous versions are
Excel/2000 9.0.0.6627 SP3 Outlook/2000 9.0.6926 SP3. My new versions are
xcel/2003 11.6355.6360 SP1 Outlook/2003 11.6359.6360 SP1. the macro/vba below
worked fine with the previous versions. Now with the new version, the email
that is generated when the macro is executed appears to truncate the number
of characters on the line of the email. In the previous version, I could send
1200 + characters on a line of the email. Now, the limit appears to be around
200.

I would appreciate any thoughts and suggestions to resolve my problem.

Thank you in advance.

Sub stamp3()
'
' stamp3 Macro
' carl
'

'

If ActiveSheet.FilterMode Then
MsgBox "Please Unfilter Column First"
If ActiveSheet.FilterMode Then Exit Sub

End If



Sheets("trading").Select
Range("D214").Select
Selection.Copy
Sheets("mail").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False

Sheets("mail").Select
Range("A7:C7").Select
Selection.Copy
Sheets("strings").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


Sheets("trading").Select
Range("D2").Select
Range("I16").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.ScrollRow = 1
Range("J16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Calculate
Sheets("mail").Select
Application.Goto Reference:="R1C2"




'Sub Mail_ActiveSheet_Body()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "(e-mail address removed)"
.CC = "(e-mail address removed)"
.BCC = ""
.Subject = Sheets("trading").Range("A11").Value
.HTMLBody = SheetToHTML(ActiveSheet)
.Send 'or use .Display

End With

Application.ScreenUpdating = True
Set OutMail = Nothing
Set OutApp = Nothing
Sheets("trading").Range("A11").Value =
Sheets("trading").Range("A11").Value + 1

Sheets("trading").Select
End Sub

 

[Franz Verga]

Nel post *carl* ha scritto:

my company recently switched my excel and outlook. My previous
versions are Excel/2000 9.0.0.6627 SP3 Outlook/2000 9.0.6926 SP3. My
new versions are xcel/2003 11.6355.6360 SP1 Outlook/2003 11.6359.6360
SP1. the macro/vba below worked fine with the previous versions. Now
with the new version, the email that is generated when the macro is
executed appears to truncate the number of characters on the line of
the email. In the previous version, I could send 1200 + characters on
a line of the email. Now, the limit appears to be around 200.

[cut]

Hi Carl,

First of all I think you should update your version of Outlook and Excel
with Service Pack 2, second for sending e-mail from Excel, take a look
here:

http://www.rondebruin.nl/sendmail.htm

--
(I'm not sure of names of menus, options and commands, because
translating from the Italian version of Excel...)

Hope I helped you.

Thanks in advance for your feedback.

Ciao

Franz Verga from Italy