Hi wowow,

You could change:
Dialogs(wdDialogFileOpen).Show
Set MailList = ActiveDocument
to:
Documents.Open FileName:="C:\Documents\Emails.docx"
Set MailList = ActiveDocument
or:
Set MailList = Documents.Open(FileName:="C:\Documents\Emails.docx ")

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]