.Attachments.Item(i).SaveAsFile funktioniert nicht
22.02.2019 22:17:20
Underdog91
ich probiere in Outlook per VBA die Anhänge von mehreren Mails gleichzeitig abzuspeichern. Eigentlich ein nicht so schweres Unterfangen. Im Internet findet man 100e von Einträgen dazu. Immer ist die Lösung den Anhang mit der Codezeile:
"objMail.Attachments.Item(i).SaveAsFile (File) & Attachments.Item(i).FileName"
abzuspeichern. Bei allen scheint es zu funktionieren, aber bei mir speichert er aus irgend einem Grund nicht nur den Anhang ab, sondern die gesamte Mail. Mail und Anhang sind also nicht von einander getrennt, genau das brauche ich aber.
Hier mein vollständiger VBA-Code:
Sub EMAILAnhänge speichern()
Dim objOutlook As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim publicfolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim File As String
Dim intAnlagen As Integer
Dim i As Integer
Dim objMail As Object
File = "G:\Desktop\Email-Anhänge\"
Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set publicfolder = objNameSpace.Folders("-Meine Emailadresse-").Folders("Posteingang").Folders(" _
EMAILAnhänge")
Set myItems = publicfolder.Items
For Each objMail In myItems
With objMail
intAnlagen = Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
.Attachments.Item(i).SaveAsFile (File) &Attachments.Item(i).FileName
Next i
End If
End With
Next objMail
End Sub
Weiß vielleicht einer von euch was ich falsch mache? Das wäre echt super!Bei mir ist die Besonderheit, dass die zu trennenden EMails Eml-Dateien sind, die ich in den Outlookordner ziehe. Die Anhänge sind immer TIF-Dateien. Wenn ich die eml-Dateien händisch öffne, kommt folgendes Auswahlfeld:
"Öffnen Sie nur Datein von Absendern, denen Sie vertrauen.
Möchten Sie die Datei öffnen oder auf dem Computer speichern?"
Vielleicht hat es ja etwas damit zu tun. Vielleicht ist aber auch einfach ein Fehler in meinem Code.
VIELEN DANK FÜR DIE HILFE!!!
Jonas