MAPI E-mail Accessing File Attchments from e-mail

[EricJHart]

How can I save an Attchment from an e-mail that has been retreived using MAPISession & MAPIMessages objects from within VB. How can I Access the attachment. I just want to save it to a folder on my hard disk. Any help would be appreciated.

Regards

Eric Hart.

[Codewarrior123]

Check the APItext viewer, maybee it has an api call...

[Comora]

Here is a way to access the mail in gerneral. If you want to access the attachment you will have to access objMail.attachments and maybe(I am not sure) the commant to save the attachment would be objMail.attachments.save
Good luck!
--------------------------------------------
Sub ReadFolder()

Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Dim objMail As Outlook.MailItem
Dim intItemCount As Integer

'create objects, get mapi
Set objOL = New Outlook.Application
Set objNS = objOL.GetNamespace("MAPI")

'get inbox
Set objFolder = objNS.GetDefaultFolder(olFolderInbox)

'loop thru inbox, display items
For intItemCount = 1 To objFolder.Items.Count
Set objMail = objFolder.Items.Item(intItemCount)
Debug.Print objMail.SenderName & ": " & objMail.Subject
Next intItemCount

'cleanup
Set objFolder = Nothing
Set objMail = Nothing
Set objNS = Nothing
Set objOL = Nothing

End Sub
-----------------------------------------------------

[Shrog]

Each MAPI message has an Attachments collection. Each Attachment object has a WriteToFile method, so it becomes quite easy.

  Dim AttachmentItem as MAPI.Attachment
  
  For Each AttachmentItem In vMessage.Attachments
    If AttachmentItem.Type = CdoFileData Then
      strFilePath = TempPath & AttachmentItem.Name
      Call AttachmentItem.WriteToFile(strFilePath)
    End If
  Next AttachmentItem

Hope this helps.
Shrog

[Nice]

thatz a gud soln