|
wenn du keine Ahnung hast, warum machst du's dann?
Wenn du es dann trotzdem machen möchtest, wieso schaffst du dir die notwendigen Grundlagen nicht?
Nun hast du schon einen Code, der auch noch gut dokumentiert ist, und kapierst angeblich nicht was da abgeht.
Wenn du Tips nicht verstehst, dann den sicher auch nicht.
' Get the file name.
strFile = objAttachments.Item(i).FileName
rechts vom "=" ist der Wert, welcher der Variable links vom "=" zugewiesen wird.
Da du den Dateinamen( FileName ) ändern möchtest ist der Ansatzpunkt genau hier.
Um eine Numerierung durchzuführen, benötigst du einen Zähler.
lngCount wäre hier möglich. Der Wert fängt aber bei der Anzahl der Anhänge an und geht bis auf 1 runter. Zählt also rückwärts.
Wenn dir das reicht, dann verbindest du strFolderpath & longcount an entsprechender Stelle und erhälst den Dateinamen als Zahl.
Das führt dich zum nächsten Problem, ein Dateiname besteht aus Name und Erweiterung. Die Buchstaben hinter dem Punkt ( .pdf, .xlsx )
Die fehlen dann natürlich und kein Program weis dann wie es mit der Datei 1 umgehen soll. Somit mußt du den kompletten Dateinamen vorher zusammensetzen.
https://learn.microsoft.com/en-us/office/vba/api/outlook.attachment Dort steht welche Eigenschaften ein Attachmentobjekt hat. Such dir die passenden aus.
|