Getting attachment using MAPI

[Mar Gudmundsson]

How can you save attachments (text files) to a file from e-mails just as simple text files, i'm using Microsoft Outlook '97.

[RealisticGraphics]

set out = createobject("outlook.application")
Set myItem = out.ActiveInspector.CurrentItem
myItem.attachments.item(1).saveasfile PathName

This will save the first attachment from the active open message to the PathName. You can also access items in unopen messages, but that takes a lot longer.