Ich habe es mittlerweile selber lösen können. Nun werden PDFs und nur PDFs gespeichert. Auch die genau Uhrzeit und das Datum, das ist wichtig, damit PDFs mit demselben Namen nicht überschrieben werden.
Allerdings müsste ich den Code noch erweitern, und zwar: Wenn im Betreff A steht, dann speichere das PDF in Verzeichnis "X" ab. Und wenn im Betreff B steht, dann speichere das PDF in Verzeichnis "Y" ab. Das bringe ich einfach nicht hin.
Hier der Code:
Code:
Public Sub Save_Invoice(itm As Outlook.MailItem) 'Dem Script eine passende Bezeichnung geben! Ersetze "Save_Invoice"!
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim Space
Dim Uhr
Space = " - "
Dim SenderName
SenderName = Format(itm.SenderName)
Dim dateFormat
dateFormat = Format(itm.ReceivedTime, "ddmmyyyy - hhmmss")
saveFolder = "C:\Users\Mustermann\Dropbox" 'Hier ist der Pfad anzugeben, wohin der Anhang gespeichert werden soll!
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".pdf") Or _
InStr(objAtt.DisplayName, ".PDF") Then
objAtt.SaveAsFile saveFolder & "\" & dateFormat & Space & SenderName & Space & objAtt.DisplayName
End If
objAtt.Delete
Set objAtt = Nothing
Next
End Sub
Lesezeichen