G
Guest
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 = "(e-mail address removed)"
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
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 = "(e-mail address removed)"
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