The fist selected item is Application.ActiveExplorer.Selection(1) - if an
item is selected at all.

Create a new item with the CreateItem function and add the selected via
Attachments.Add.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize eMails:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Tue, 9 Oct 2007 05:29:03 -0700 schrieb Yallah:

Hello together,

I want to write a macro that forwards an selected mail in the Inbox as an
attachment to a newly generated mail without subject or body. This newly
generated mail should be sent to an specific recipient.
Has anyone an idea?
Thank you very much in advance.
Stefan