Opening a new mail dialog box in Excel using vba

  • Thread starter Thread starter Michelle
  • Start date Start date
M

Michelle

Hi,

I would like to use Excel that runs a macro to open up a
new mail in Outlook. I would also like to put in a
generic body message and subject line, but they would
have to be able to pick who they would like to email it
to as it different everytime. I can only do this if they
were sending the file along with it, but is there anyway
of doing this without attaching the file?

Any help would be much appreciated.

Michelle
 
Hi Michelle,
I would like to use Excel that runs a macro to open up a
new mail in Outlook.
Click to expand...

Like this:

Sub MailIt()
Dim oMailItem As Object
Dim oOLapp As Object
Set oOLapp = CreateObject("Outlook.application")
Set oMailItem = oOLapp.CreateItem(0)
With oMailItem
.To = "(e-mail address removed)
.CC = "(e-mail address removed)
.Subject = "Your subject goes here"
.Body = "Hi there!"
.Display
End With
Set oOLapp = Nothing
Set oMailItem = Nothing
End Sub


Regards,

Jan Karel Pieterse
Excel MVP
www.jkp-ads.com
 
Set OL = CreateObject("Outlook.Application")
Set emlMessage = Outlook.CreateItem(olMailItem)
emlMessage.Attachments.Add "filename"
emlMessage.Subject = "title"
'emlMessage.To = "whoever"
emlMessage.Display

You'll need the outlook reference added via tools>reference in the vb
editor.
 
Hi Jan,

Thank you very much for your response.
That's exactly what I want to do!!

Regards,

Michelle
 
Back
Top