Hello,

Ive been using a scripts from Ron De Bruin's web site, but I need some help in making it do a little more. I have the below VB, which copys the active worksheet into the email body. Rons code gives me the option to add text to the email but only if I stop using Word as my editor (which id rather not do). Is there any way I can add text to the email and keep word as my editor?

Thanks for any help.

Sub Test()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set rng = Nothing
Set rng = ActiveSheet.UsedRange
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "@"
.Subject = "Subject"
.Body = "Hello," & Chr(13) & Chr(13) & "Goodbye"
.HTMLBody = RangetoHTML(rng)
.Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub