• Home
 · 
• Microsoft Office Apps/VBA
 · 
• Save Outlook Mail Attachment

Save Outlook Mail Attachment

This code snippet is actually a Macro for Outlook 97, 98 or 2000 but can be easily instituted into VB by creating your Outlook.Application object to completely automate the mod from VB. It could also be used with MAPI mail as well.

Inputs
None...

Assumes
Basic understanding of VBA and VB as well as Office Automation through VB.

Returns
None... Could be set as a True or False Method for total automation

Side Effects
None so far...

Rate Save Outlook Mail Attachment

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Sub AutomateMe()
 Dim oApp As Application
 Dim oNS As NameSpace
 Dim oMsg As Object
 Dim oAttachments As Outlook.Attachments
 Dim strControl
 
 Set oApp = New Outlook.Application
 Set oNS = oApp.GetNamespace("MAPI")
 'Set folder to check the INBOX
 Set oFolder = oNS.GetDefaultFolder(olFolderInbox)
 strControl = 0
 
 For Each oMsg In oFolder.Items
 With oMsg
'Check for new mail (unread=true)
 If .UnRead Then
'This could use the .Subject as well to search for text in the subject line.
 If InStr(1, .Body, "Body Text to look for") > 0 Then
  oMsg.Attachments.Item(1).SaveAsFile "Your Drive:\Your Path\" _
  & oMsg.Attachments.Item(1).DisplayName
'Set mailItem to read by setting UnRead flag to false.
  .UnRead = False
  Exit Sub
 End If
 End If
 End With
 Next
End Sub