this is a start. replace emailAddress with your own email address.


Sub SendMail()

strRecipient = "Email Address"
'Use a With...End With block to reference the MsoEnvelope object.
With Application.ActiveSheet.MailEnvelope

'Add some introductory text before the body of the e-mail.
.Introduction = "Please read this and send me your comments."

'Return a Microsoft Outlook MailItem object that
'you can use to send the document.
With .Item

'All of the mail item settings are saved with the document.
'When you add a recipient to the Recipients collection
'or change other properties, these settings will persist.
.Recipients.Add strRecipient
.Subject = "Here is the document."

'The body of this message will be
'the content of the active document.
.Send
End With
End With
End Sub


"DoooWhat" wrote:

I have an Outlook email template saved on my computer. For purposes
of simplicity, we'll say the location is C:\template.oft

I want to create a macro to open this template as a regular, ready-to-
be-sent email.

I have a workbook that I update every day. When my update is
finished, I send an email to the same people, in the same format. I
want to cut down on clicking all over the place to open up that
email. I figure it will be easier if I have a button (with an
underlying macro) within Excel to launch the email. Any help is much
appreciated.

Kevin