Save Outlook Mail Attachment

Posted: 2002-06-01
By: ArchiveBot
Viewed: 80

Filed Under:

Visual Basic 6

No attachments for this post

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.

Original Author: Chris Kesler

Inputs

None...

Assumptions

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...

Code

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 unread
   .UnRead = False
   Exit Sub
  End If
  End If
End With
Next
End Sub

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.