Hallo zusammen,
ich befürchte zwar, dass die Frage schon x-fach gestellt wurde und den meisten nur noch zum Hals raushängt, aber ich finde leider keine Lösung dazu.
Wie dem Thema schon zu entnehmen ist, geht es um das automatische Ablegen von Anhängen im Win-Explorer. Im Grunde habe ich auch auch Makro gefunden, dass fast exakt erfüllt, was ich haben möchte, aber eben nicht ganz ;)
Public Sub Save_pdf(itm As Outlook.MailItem) 'Dem Script eine passende Bezeichnung geben! Ersetze "Save_Invoice"!
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim Space
Dim Uhr
Space = " - "
Dim SenderName
SenderName = Format(itm.SenderName)
'<subject>
Dim dateFormat
dateFormat = Format(itm.ReceivedTime, "yyyy-mm-dd - hh-mm-ss")
saveFolder = "T:\Test\" 'Hier ist der Pfad anzugeben, wohin der Anhang gespeichert werden soll!
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".pdf") Or _
InStr(objAtt.DisplayName, ".PDF") Then
objAtt.SaveAsFile saveFolder & "\" & dateFormat & Space & SenderName & Space & objAtt.DisplayName
End If
objAtt.Delete
Set objAtt = Nothing
Next
End Sub
Im Großen und Ganzen schon nicht falsch, allerdings würde ich die abgelegte PDF gerne nicht mit "Date - Sender - AttName" benennen, sondern mit "Date - Sender - Subject".
Kann ich an der mit '<subject> bezeichneten Stelle etwas wie "
Dim SubjectName
SubjectName = Format(itm.SubjectName)
einfügen? Und dann im Anschluß meine Benennung ein wenig umschreiben, sodass ich die gewünschte Benennung hinbekomme?
Habe ehrlich gesagt von VBA keinerlei Ahnung, muss mich nur jetzt aus E-Mail-Flut-Gründen damit auseindersetzen ;)
Für Hilde wäre ich sehr dankbar!
|