Datei umbenennen (Office)

michihorn, Freitag, 23.10.2020, 13:45 (vor 574 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

Datei umbenennen

Martin Asal @, Sonntag, 25.10.2020, 11:40 (vor 572 Tagen) @ michihorn

Hallo Michi,

ich bin zwar kein Outlook-Experte, aber würde es einfach mal mit

mAtt.SaveAsFile "C:\Ferienhaus\Eingang\Eingang.txt"

probieren.

Martin

RSS-Feed dieser Diskussion
powered by my little forum