none
Outlook: Mails mit bestimmten Anhang verschieben RRS feed

  • Frage

  • Hallo, gibt es eine Regel um eingehende Mails mit einem bestimmten Anhang (PDF, DOC etc.) automatisch in einen Ordner zu verschieben. Wenn nein, gibt es ein Add-ins für Outlook was soetwas kann? Danke und Gruss Michael
    Donnerstag, 30. Juli 2020 07:27

Alle Antworten

  • Hallo Michael,

    was verstehst Du unter einem "bestimmten" Anhang? Einfach jede Mail mit einem Anhang? Oder nur welche mit "Dateiname.xyz" als Anhang? Oder nur welche mit einem bestimmten Inhalt des Anhangs?


    Gruß, Stefan
    Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
    https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport

    Donnerstag, 30. Juli 2020 09:53
    Moderator
  • Hallo Stefan,

    Danke für die Antwort. Meine das Zweite, also nicht jede Mail mit Anhang sondern nur Mails welche z.B. ein PDF dran haben.

    Danke und Gruß

    Michael

    Donnerstag, 30. Juli 2020 11:50
  • noch zur Info. Der Inhalt der Mail und der Inhalt des Anhangs ist egal.
    Donnerstag, 30. Juli 2020 11:53
  • Hallo Michael.

    etwas bestehendes habe ich nicht gefunden, daher hab ich ein kleines VBA Skript für Outlook erstellt, mit dem man das Gewünschte erreichen kann. Ich gebe hier nur den Betreff und den Dateinamen aus, die Filterung auf Mails mit PDF Anhang, ... ist aber bereits eingebaut.

    Probier mal, wie weit Du damit kommst.

    Private Sub Application_NewMail()
    
    Dim InBox As Outlook.MAPIFolder
    Set InBox = Session.GetDefaultFolder(olFolderInbox)
    
    Dim SourceFolder As Outlook.Folder
    Set SourceFolder = InBox.Folders("Eingangsordner")
    
    Dim Items As Outlook.Items
    Set Items = SourceFolder.Items.Restrict("[UnRead] = True")
        
    Dim DestinationFolder As Outlook.Folder
    Set DestinationFolder = InBox.Folders("Zielordner")
    
    Dim Item          As Outlook.MailItem
    Dim Attachment    As Outlook.Attachment
    Dim FoundMessages As String
    
        For Each Item In Items
            For Each Attachment In Item.Attachments
                If Right(Attachment.FileName, 4) = ".pdf" Then
                    FoundMessages = FoundMessages & "Mail """ & Item.Subject & """ contains attachment """ & Attachment.FileName & """" & vbCrLf
                    ' --- Hier kommt der Code zum Verschieben hin
                End If
            Next
        Next
    
        If FoundMessages <> "" Then
            MsgBox (FoundMessages)
        End If
    End Sub
    


    Gruß, Stefan
    Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
    https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport

    Samstag, 1. August 2020 07:18
    Moderator
  • noch zur Info. Der Inhalt der Mail und der Inhalt des Anhangs ist egal.

    Hallo Michael,

    hast Du schon die Zeit gefunden, mein Codebeispiel mal auszuprobieren?


    Gruß, Stefan
    Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
    https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport

    Dienstag, 4. August 2020 13:12
    Moderator