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("D2:D14").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 = "
.CC = "
.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