I am in MS Word 2003 and I select the E-Mail icon on the Toolbar. It brings
up the
Outlook 2003 "To:..., Cc..., Subject: and Introduction:" fields at the top
of the Word document, along with some of the Outlook toolbar icons.

I want add some code a MS Word macro to insert email addresses into the To:
and Cc: fields, instead of typing them in over and over. I would some
appreciate sample code. I tried using the MS Word group with no luck, so I
am trying the Outlook group

You can use this sample for Outlook, not word:
http://www.vboffice.net/sample.html?...cmd=showite m

--
Best regards
Michael Bauer - MVP Outlook
Synchronize Outlook Categories:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Tue, 29 Jan 2008 19:36:00 -0800 schrieb smar:

I am in MS Word 2003 and I select the E-Mail icon on the Toolbar. It
brings
up the
Outlook 2003 "To:..., Cc..., Subject: and Introduction:" fields at the top
of the Word document, along with some of the Outlook toolbar icons.

I want add some code a MS Word macro to insert email addresses into the
To:
and Cc: fields, instead of typing them in over and over. I would some
appreciate sample code. I tried using the MS Word group with no luck, so
I
am trying the Outlook group

Try this Word macro:

Sub AddInfoToMsg()
Dim env As Office.MsoEnvelope
Set env = ActiveDocument.MailEnvelope
With env
.Introduction = "My introduction"
.Item.To = "
.Item.cc = "
End With
Set env = Nothing
End Sub

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


"smar" wrote in message ...
I am in MS Word 2003 and I select the E-Mail icon on the Toolbar. It brings
up the
Outlook 2003 "To:..., Cc..., Subject: and Introduction:" fields at the top
of the Word document, along with some of the Outlook toolbar icons.

I want add some code a MS Word macro to insert email addresses into the To:
and Cc: fields, instead of typing them in over and over. I would some
appreciate sample code. I tried using the MS Word group with no luck, so I
am trying the Outlook group

Many thanks for the program code, it worked GREAT...

"Sue Mosher [MVP-Outlook]" wrote:

Try this Word macro:

Sub AddInfoToMsg()
Dim env As Office.MsoEnvelope
Set env = ActiveDocument.MailEnvelope
With env
.Introduction = "My introduction"
.Item.To = "
.Item.cc = "
End With
Set env = Nothing
End Sub

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


"smar" wrote in message ...
I am in MS Word 2003 and I select the E-Mail icon on the Toolbar. It brings
up the
Outlook 2003 "To:..., Cc..., Subject: and Introduction:" fields at the top
of the Word document, along with some of the Outlook toolbar icons.

I want add some code a MS Word macro to insert email addresses into the To:
and Cc: fields, instead of typing them in over and over. I would some
appreciate sample code. I tried using the MS Word group with no luck, so I
am trying the Outlook group