DD8ED
Vereinsmitglied
Outlook Attachments
Hallo,
ich suche nach einer Möglichkeit in Outlook automatisch die Attachments aller Mails im Posteingang zu extrahieren und an einer Stelle abzuspeichern. Für Thunderbird wird sich das gleiche Problem stellen.
Die Filenamen der Attachments sind einmalig.
Was ich gefunden habe war das als Script:
Public Sub Anhaenge_handeln(myItem As Outlook.MailItem)
Dim mAtts As Attachments
Dim mAtt As Attachment
Set mAtts = myItem.Attachments
While mAtts.Count > 0
Set mAtt = mAtts(1)
mAtt.SaveAsFile "D:\DAEC\Flugbuch\" & mAtt.DisplayName
mAtts.Remove 1
Wend
End Sub
In einer Regel angewendet klappt es nicht.
Hat jemand eine Idee, die möglichst einfach umzusetzen ist?
Hallo,
ich suche nach einer Möglichkeit in Outlook automatisch die Attachments aller Mails im Posteingang zu extrahieren und an einer Stelle abzuspeichern. Für Thunderbird wird sich das gleiche Problem stellen.
Die Filenamen der Attachments sind einmalig.
Was ich gefunden habe war das als Script:
Public Sub Anhaenge_handeln(myItem As Outlook.MailItem)
Dim mAtts As Attachments
Dim mAtt As Attachment
Set mAtts = myItem.Attachments
While mAtts.Count > 0
Set mAtt = mAtts(1)
mAtt.SaveAsFile "D:\DAEC\Flugbuch\" & mAtt.DisplayName
mAtts.Remove 1
Wend
End Sub
In einer Regel angewendet klappt es nicht.
Hat jemand eine Idee, die möglichst einfach umzusetzen ist?