Hej

Jag har en mapp i Outlook med en massa mail där varje mail har en bifogad textfil. Jag skulle vilja markera alla dessa mail och spara ner alla textfilerna. Det går ju utmärkt att markera ett mail och välja spara bifogad fil men det blir lite svårare när man vill markera alla. Är det möjligt?

Mvh
Niclas

Löst! Jag hittade en kod som jag kunde köra

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

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

For Each myItem In myFolder.Items
If myItem.Attachments.Count <> 0 Then
For Each myAttachment In myItem.Attachments
myAttachment.SaveAsFile "C:\MailTest\" & myAttachment.FileName
Next
End If

Next
End Sub