Mail Sheet as message body
 

Hi
I have used the following code for sending a mail from excel, this code
attach the active work book in the mail.
Im trying to send the worksheet as as message body of the mail

I've tried ".BodyHTML = SheetToHTMl(Activesheet) "

' Sub mail_with_outlook()

Dim Outapp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strto As String

Set Outapp = CreateObject("Outlook.application")
Set OutMail = Outapp.CreateItem(olMailItem)
strto = "
strsub = Sheets("Sheet1").Range("B11").Value
ActiveWorkbook.Save
With OutMail
.To = strto
.CC = strcc
.Subject = strsub
.Attachments.Add ActiveWorkbook.FullName

On Error Resume Next
..Send
End With

End Sub

but could not get the result, an any one help

Mail Sheet as message body
 

Hi Ar

Look here for a example
http://www.rondebruin.nl/mail/folder3/mail2.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"AR" wrote in message ...
Hi
I have used the following code for sending a mail from excel, this code
attach the active work book in the mail.
Im trying to send the worksheet as as message body of the mail

I've tried ".BodyHTML = SheetToHTMl(Activesheet) "

' Sub mail_with_outlook()

Dim Outapp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strto As String

Set Outapp = CreateObject("Outlook.application")
Set OutMail = Outapp.CreateItem(olMailItem)
strto = "
strsub = Sheets("Sheet1").Range("B11").Value
ActiveWorkbook.Save
With OutMail
.To = strto
.CC = strcc
.Subject = strsub
.Attachments.Add ActiveWorkbook.FullName

On Error Resume Next
..Send
End With

End Sub

but could not get the result, an any one help