Datei umbenennen (Office)

michihorn, Freitag, 23.10.2020, 13:45 (vor 655 Tagen)

Hallo
ich habe ein Script gefunden, das hängt mir aus Outlook den Anhang in einem von mir definierten Verzeichnis ab. Ich möchte nun den Dateinamen ändern. Der soll immer Eingang heißen und immer wieder überschrieben werden.Wie kann ich das tun. Anbei das 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 "C:\Ferienhaus\Eingang\" & mAtt.DisplayName
        mAtts.Remove 1
    Wend
End Sub

Gruß
Michael


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum