Sending Current Word Document as Email from a button or link

--------------------------------------------------------------------------------
I have a shared Word document that is being used as a form. When a user
finishes filling out the fields on the form, I want them to click a link or
push a button that sends the document as an attachemnt to a specific email.

Eg: User fills out document, clicks on button or link, the current document
is attached to a new Outlook email and has the To: field already populated
with name DeleteThis @abc.com

I did find some simple code that will take the current document and attach
it to a new email.


Code:
--------------------------------------------------------------------------------

Sub CommandClick()

Application.Options.SendMailAttach = True 'Or False
ActiveDocument.SendMail

End Sub
--------------------------------------------------------------------------------

This is great and all, but I need the To: field to be populated with a
specific email address.

Any help would be appreciated.

Thanks

Use the second method in the article "How to send an email from Word using
VBA" at:

http://www.word.mvps.org/FAQs/InterDev/SendMail.htm

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"rprewitt" <rprewitt DeleteThis @discussions.microsoft.com> wrote in message
news:632CD655-C93E-455B-BE2B-961219B5CF6D@microsoft.com...
> --------------------------------------------------------------------------------
> I have a shared Word document that is being used as a form. When a user
> finishes filling out the fields on the form, I want them to click a link
> or
> push a button that sends the document as an attachemnt to a specific
> email.
>
> Eg: User fills out document, clicks on button or link, the current
> document
> is attached to a new Outlook email and has the To: field already populated
> with name DeleteThis @abc.com
>
> I did find some simple code that will take the current document and attach
> it to a new email.
>
>
> Code:
> --------------------------------------------------------------------------------
>
> Sub CommandClick()
>
> Application.Options.SendMailAttach = True 'Or False
> ActiveDocument.SendMail
>
> End Sub
> --------------------------------------------------------------------------------
>
> This is great and all, but I need the To: field to be populated with a
> specific email address.
>
> Any help would be appreciated.
>
> Thanks
>