If the document was created by mailmerge, the obvious thing to do is add the
email addresses to the datasource and then go back to the mailmerge main
document and execute the mailmerge to email. You will then be asked to
nominate which field in the datasource contains the email addresses.
Otherwise, you could use the same technique as in the article "Mail Merge to
E-mail with Attachments"
at
http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
If the pages in your document are not separated by section breaks, you could
use Edit>Replace to replace the page breaks with section breaks so that the
above would work, or alternatively, you could modify the code in the above
to split up the document using the same technique as in the following macro
' splitter Macro
' Macro created 16-08-98 by Doug Robbins to save each page of a document
' as a separate file with the name Page#.DOC
'
Selection.HomeKey Unit:=wdStory
Pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
Counter = 0
While Counter < Pages
Counter = Counter + 1
DocName = "Page" & Format(Counter)
ActiveDocument.Bookmarks("\Page").Range.Cut
Documents.Add
Selection.Paste
ActiveDocument.SaveAs FileName:=DocName, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.Close
Wend
End Sub
or , using the information in the article "How to send an email from Word
using VBA" at:
http://word.mvps.org/FAQs/InterDev/SendMail.htm
you could modify it to do the whole job.
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
