Anzeige:
Ergebnis 1 bis 2 von 2

Thema: Suche VBA-Programmierer

  1. #1
    Registrierter Benutzer Avatar von Maverick
    Registriert seit
    12.12.2006
    Beiträge
    513

    Suche VBA-Programmierer

    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
    Windows 10
    TeX Live 2022 (Distribution) und Sublime Text V4140 (Editor)
    LaTeX-Anfänger

  2. #2
    Registrierter Benutzer Avatar von Maverick
    Registriert seit
    12.12.2006
    Beiträge
    513
    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:

    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
    Windows 10
    TeX Live 2022 (Distribution) und Sublime Text V4140 (Editor)
    LaTeX-Anfänger

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •