Sending Mail from Excel: Body Text

  • Thread starter Thread starter Kathryn
  • Start date Start date
K

Kathryn

Hello ~

I am mailing a workbook and would like to have the email
body included in the code. Here is what I have currently
(from Ron de Bruin's excellent resource) and it is working
fine for Recepient (I am adding from Outlook address book)
and Subject.


Sub mcrMail_workbook()
'
' mcrMail_workbook()
' Macro recorded 12/1/2003 by
'

'
ActiveWorkbook.SendMail "", _
"Your 2004 Flexible Benefit
Election Form"
End Sub

Does anyone know how to add the body to the code? Ron
also has this but it is not working for me.

Sub Mail_workbook_Outlook()
'This example send the last saved version of the
Activeworkbook
'You must add a reference to the Microsoft outlook Library
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'In Excel 97 use ActiveWorkbook.Path & "\" &
ActiveWorkbook.Name
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Thank you!
 
Ron,

Thanks for your reply. I am such a newbie that I don't
know what OE and CDO. ANyway, I tried the CDO option and
it is not working. Maybe I need to ditch it and just have
it send with a subject.

Another option may be to use an OUtlook template. I have
seen this done before where the attachment inserts itself
into the template. In the instance I am refering to, the
excel workbook was being generated out of Access and the
email address and all the data specific to that recepient
were housed and queried there.

Any thoughts?

Thanks again!
kathryn
-----Original Message-----
With OE it is not possible to add body text and add a attachment Kathryn.

If you only want to add text to your mail ( Check out the OE part)
http://www.rondebruin.nl/sendmail.htm#body

Maybe CDO is a option for you to do what you want
http://www.rondebruin.nl/cdo.htm

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)




"Kathryn" <[email protected]> wrote in
Click to expand...
message news:[email protected]...
 
I was thinking that you are using OE (Outlook Express)
I think I was wrong

If you use Outlook do you set a reference to Outlook?
when you try the outlook macro from my website.

1) Go to the VBA editor, Alt -F11
2) Tools>References in the Menu bar
3) Place a Checkmark before Microsoft Outlook ? Object Library
? is the Excel version number
 
Back
Top