Erstmal Hallo ihr alle,
ich bekomme täglich E-Mails mit einem Anhang von ca. 5 Dateien. Ich muss diese Dateien dann in eine Masterdatei einfügen in dem ich über -> Daten -> Aus dem Text -> Pfad. Das ganze ist sicher eine einfache Aufgabe, dennoch würde ich sie gerne automatisieren. Bis jetzt kann ich nur den kompletten Anhang speichern, d.h. alle 5 Dateien. Ich brauche allerdings nur eine dieser Dateien. Für den Anfang würde es mir reichen, wenn man die Datei abspeichern kann und zwar nur diese eine Datei ohne die anderen 4. Der Name unterscheidet sich ja. Soweit bin ich aktuell:
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 = "D:\Temp\Test"
'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 & "\" & .Attachments.Item(i).FileName
Next i
'Mails löschen
objMail.Delete
End If
End With
Next objMail
End Sub |