Processing multiple emails

August 25, 2008 – 1:23 pm by JP

In Highlight And Move Multiple Emails, I demonstrated a technique for processing several emails at once and moving them to another folder. Here is another example that shows how you can save attachments from several selected emails, then delete them.

plain text version

VBA:

Sub SaveEmailAttachments()
Dim Msg As Outlook.MailItem
Dim MsgColl As Object
Dim MsgAttach As Outlook.Attachments
Dim i As Long
Dim FileN As String
Dim lAttach As Long
On Error Resume Next
Set MsgColl = ActiveExplorer.Selection
On Error GoTo 0
If Not MsgColl Is Nothing Then
For i = 1 To MsgColl.Count
' loop through selected items and save all attachments from each of them
Set Msg = MsgColl.Item(i)
Set MsgAttach = Msg.Attachments
For lAttach = 1 To MsgAttach.Count
FileN = MsgAttach.Item(lAttach).DisplayName
MsgAttach.Item(lAttach).SaveAsFile "C:\My Folder\" & FileN
Next lAttach
Next i
If MsgBox("Would you like to delete the selected emails now?", _
vbInformation + vbYesNo) = vbYes Then
For i = 1 To MsgColl.Count
Set Msg = MsgColl.Item(i)
Msg.Delete
Next i
End If
Else
GoTo ExitProc
End If
ExitProc:
Set MsgAttach = Nothing
Set Msg = Nothing
Set MsgColl = Nothing
End Sub

Other things you can do involve incorporating other email properties, such as received time. This will save the filename with date and time pre-pended to the display name:

plain text version

VBA: