Suche VBA-Programmierer

[Maverick]

Hallo!

Ich benötige ein Script, um im Outlook eingehende Mails auf PDF-Anhänge zu überprüfen, welche dann in einem bestimmten Verzeichnis gespeichert werden. Ich möchte einem Programmierer diesen Auftrag geben, der mir gegen Bezahlung ein ebensolches Script erstellt.

Danke für deine Tipps!

SG Christoph

[Maverick]

Ich habe es mittlerweile selber lösen können. Nun werden PDFs und nur PDFs gespeichert. Auch die genau Uhrzeit und das Datum, das ist wichtig, damit PDFs mit demselben Namen nicht überschrieben werden.

Allerdings müsste ich den Code noch erweitern, und zwar: Wenn im Betreff A steht, dann speichere das PDF in Verzeichnis "X" ab. Und wenn im Betreff B steht, dann speichere das PDF in Verzeichnis "Y" ab. Das bringe ich einfach nicht hin.

Hier der Code:


Public Sub Save_Invoice(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)
Dim dateFormat
dateFormat = Format(itm.ReceivedTime, "ddmmyyyy - hhmmss")
saveFolder = "C:\Users\Mustermann\Dropbox" '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