Opening a new mail dialog box in Excel using vba

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
 
J

Jan Karel Pieterse

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 = "[email protected]
.CC = "[email protected]
.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
 
M

MattShoreson

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.
 
M

Michelle To

Hi Jan,

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

Regards,

Michelle

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
 
Top