Outlook Excel-Anhänge speichern
20.04.2017 09:55:36
Ptonka
ich habe folgendes Problem:
Ich nutze Outlook 2010 und Excel 2010.
Ich habe in Outlook ein Standardkonto und mehrere zusätzliche Konten.
Nun möchte ich mit VBA alle Mails aus dem Posteingang eines der zusätzlichen Konten
ansprechen und deren Anhänge (nur Excel-Files) in einen Ordner speichern.
Mit dem Code:
Sub Anhänge_speichern()
For Each it In CreateObject("Outlook.application").GetNamespace_("MAPI").GetDefaultFolder(6). _
Items
For Each at In it.Attachments
Z = Z + 1
at.SaveAsFile "E:\" & at.FileName & "_" & Z
Next
Next
End Sub
Wie kann ich per VBA auf ein anderes Konto zugreifen?
Für einen Tipp wäre ich mehr als dankbar.
Gruß, Ptonka
Anzeige