I don't use Outlook, so I can't say for sure, but you might get the results you're after by changing:
.Send
to:
.Display

Note that you can also programmatically add more attachments via additional '.Attachments.Add' lines.

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.

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