Macro: Create New Message and Auto populate To Field

[geosptial]

I need a macro that will open up a new message with the TO field alread
filled in with 5 email addresses. For example;

Should open new mail message. In the To Field the addresse
(e-mail address removed); (e-mail address removed); (e-mail address removed); (e-mail address removed)
(e-mail address removed).

Thank

 

[Sue Mosher [MVP]]

Sub MakeMail()
Dim msg as Outlook.MailItem
Set msg = Application.CreateItem(olMailItem)
msg.To = "(e-mail address removed); (e-mail address removed); (e-mail address removed); " & _
"(e-mail address removed); (e-mail address removed)"
msg.Display
End Sub

 

[geosptial]

That worked awesome. I appreciate the help. What would i have to chang
to have those same emails go into the to field on a forwarded email

 

[Sue Mosher [MVP]]

If you have a message already open, return it with this statement:

Set msg = Application.ActiveInspector.CurrentItem

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54

That worked awesome. I appreciate the help. What would i have to change
to have those same emails go into the to field on a forwarded email.

 

[Chris A]

If you have a message already open, return it with this statement:

Set msg = Application.ActiveInspector.CurrentItem

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54

How can I get this same thing to work, but instead of inserting email
address, I need it to insert a subject in the subject line??

 

[Ken Slovak - [MVP - Outlook]]

Have you looked at the Subject property of the MailItem object in the Object
Browser?

Please don't hijack other people's threads, start your own.