Opening a new mail dialog box in Excel using vba

[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

 

[Jan Karel Pieterse]

Hi Michelle,

I would like to use Excel that runs a macro to open up a
new mail in Outlook.

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

 

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

 

[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!