Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel(with hyperlinks) as a message body of outlook mail | Excel Discussion (Misc queries) | |||
Mail as body | Excel Discussion (Misc queries) | |||
EXCEL FORMAT PROBLEM WHEN SENDING EXCEL SHEET AS MESSAGE BODY IN . | Excel Discussion (Misc queries) | |||
Mail Worksheet as (html) message body | Excel Programming | |||
E-mail as message body not attachment | Excel Programming |