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 = "
.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!

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)
www.rondebruin.nl



"Kathryn" wrote in message ...
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 = "
.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)
www.rondebruin.nl



"Kathryn" wrote in
message ...
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 = "
.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!


.

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) ToolsReferences in the Menu bar
3) Place a Checkmark before Microsoft Outlook ? Object Library
? is the Excel version number

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



wrote in message ...
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)
www.rondebruin.nl



"Kathryn" wrote in
message ...
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 = "
.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!


.