Saving Only Selected Outlook Attachments

[mikemcginty]

The following caode saves all attachments in an email but how do I save only the selected (highlighted) attachments from an email

Sub SaveAttachments()
Dim myOlapp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myItem As Outlook.MailItem
Dim myAttachment As Outlook.Attachment
Dim I As Long

Set myOlapp = CreateObject("Outlook.Application")
Set myNameSpace = myOlapp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myFolder = myFolder.Folders("Job Stuff")

For Each myItem In myFolder.Items
If myItem.Attachments.Count <> 0 Then
For Each myAttachment In myItem.Attachments
I = I + 1
myAttachment.SaveAsFile "C:\MailTest\Attachment" & I & ".csv"
Next
End If

Next
End Sub

Regards

Mike

When you call out for help in the darkness, and you hear a voice in return, you're probably just talking to yourself again!