Program data into the "To, Cc and Introduction" fields

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

smar - 30 Jan 2008 03:36 GMT

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

Reply to this Message

Michael Bauer [MVP - Outlook] - 30 Jan 2008 05:53 GMT

You can use this sample for Outlook, not word:
http://www.vboffice.net/sample.html?mnu=2&pub=6&lang=en&smp=47&cmd=showitem

Signature

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
[quoted text clipped - 5 lines]
> appreciate sample code. I tried using the MS Word group with no luck, so I
> am trying the Outlook group

Reply to this Message

Sue Mosher [MVP-Outlook] - 30 Jan 2008 16:28 GMT

Try this Word macro:

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

Signature

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

>I am in MS Word 2003 and I select the E-Mail icon on the Toolbar. It brings
> up the
[quoted text clipped - 5 lines]
> appreciate sample code. I tried using the MS Word group with no luck, so I
> am trying the Outlook group

Reply to this Message

smar - 30 Jan 2008 18:01 GMT

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

> Try this Word macro:
>
[quoted text clipped - 18 lines]
> > appreciate sample code. I tried using the MS Word group with no luck, so I
> > am trying the Outlook group

Reply to this Message