ExcelBanter - E-mail macro

Here's how to send a workbook from Excel as an attachment:

Create a macro with the code below and then create a button that calls that
macro. Keep in mind you must add a reference to the Microsoft outlook
Library (Tools\References).

'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)
Dim strbody As String

strbody = "here is the workbook"
With OutMail
.To = " 'or whatever your recipients name
'.CC = "" 'if any
'.BCC = 'if any
.Subject = "here"
.Body = strbody
'define attachment
attachmentname = "C:\Documents and Settings\All
Users\Desktop\Book1.xls" 'your path
Set myAttachments = OutMail.Attachments
myAttachments.Add attachmentname
.Display 'or use .Send to bypass the display
End With

Hope this helps!
-Chad

"greg7468" wrote:

Hi all,
I have a workbook that I send out daily to a contact list within
outlook.

What is the best way of doing this with a macro to work off a button on
the worksheet.

Thanks in advance.

--
greg7468

------------------------------------------------------------------------
greg7468's Profile: http://www.excelforum.com/member.php...fo&userid=9031
View this thread: http://www.excelforum.com/showthread...hreadid=469881