Makro Anlagen
26.06.2017 08:44:57
Tarje_089
eine kurze Frage an die Spezialisten.
Ich habe ein Makro mit Hilfe dessen ich die Anlagen von Mails abspeichern kann.
Leider zieht mir dieses nicht die Anhänge, welche in angehängten Mails enthalten sind. Dies wäre für mich allerdings von großer Bedeutung. Nachfolgend der Code:
Sub Anlage_verschieben()
Dim strPath As String
Dim objMail As MailItem
Dim intAnlagen As Integer, i As Integer
On Error Resume Next
'Pfad zu meinem Ordner
strPath = "L:\"
'Schleife
For Each objMail In Outlook.ActiveExplorer.Selection
With objMail
'Mails auf vorh. Anlagen prüfen
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
'Anlagen im vordefinierten Verzeichnis sichern
.Attachments.Item(i).SaveAsFile strPath & "\" & Format(.ReceivedTime, "yyyy-mm-dd_hh-mm_") & " " _
& .Attachments.Item(i).FileName
Next i
End If
End With
Next objMail
End Sub
Gruß
T