|
Hallo zusammen,
ich habe folgendes Script im Internet gefunden.
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
Dieses Script ist super, schließt jedoch leider auch die Bildchen von Signaturen mit ein. Jegliche Versuche das Script entsprechedn anzupassen sind gescheitert :(
Bin leider auch nicht so versiert in Sachen VBA.
Meine Idee war einfach nach Dateiendung zu filtern (Bsp. *.gif). So wie ich den Code verstanden hatte müsste der Dateiname in folgender Zeile "auftauchen"
.Attachments.Item(i).SaveAsFile strPath & "\" & .Attachments.Item(i).FileName
Deswegen hatte ich was in der Art wie folgt gedacht.
IF .Attachments.Item(i).FileName = "gif" Then Makro1 ???
Scheint aber nicht zu funktionieren, kann mir jemand ein Tipp geben?
Danke im Voraus.
Tim
|