Outlook beantwortete Mails automatisch verschieben

  • Outlook

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Achilleus.

    Outlook beantwortete Mails automatisch verschieben

    Hallo

    schon vorneweg ich bin in Sachen VBA in kompletter Laie.
    Aktuell habe ich das Problem das jeden Tag viele Mails beantwortet werden. Diese würde ich gerne automatisch in einen bestimmten Ordner verschieben wollen.
    Hat hier jemand eine Lösung für micht?

    Danke für die Hilfe

    Gruß
    Willkommen im Forum.

    Ich verstehe den Titel des Threads nicht. Outlook beantwortet Deine Mails?
    Ich selbst habe mir einen VB.NET-Mailfilter geschrieben, da m.E. eine VB.NET-App flexibler ist als VBA. Damit kann ich festlegen, welche Mail wohin geht, was mit Anhängen geschehen soll und ob ein anderes Programm im Netzwerk über wichtige oder unzugeordnete mails informieren soll. Auch informiert mich das Programm, wenn das Senden von Mails fehlgeschlagen ist. Meine Versuche in VBA sind da gescheitert, aber vielleicht liegt es auch daran, dass ich VBA eher ablehne und mit VB.NET arbeite.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.
    Vmtl. geht es so:

    In diesem Ereignis:
    MailItem.Reply Event (Outlook): learn.microsoft.com/de-de/offi…look.mailitem.reply(even)

    Das machen:
    MailItem.Move method (Outlook): learn.microsoft.com/en-us/offi…api/outlook.mailitem.move
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum
    Ich habe leider VBA in Outlook noch nie benötigt und werde es auch nicht mehr, da für das nun neueste Outlook vba Support bereits verneint wurde.

    Aber vielleicht kannst du deine aktuelle Problematik auch nochmal genauer beschreiben und wir können einen anderen Blickwinkel darauf werfen, der eben von Outlook zureichend abgedeckt wird.
    So generell Funktionalität rausnehmen wäre ja sogar für Microsoft schwach.

    Neu

    Also in Outlook unter "ThisOutlookSession" folgende Prozedur (Event):

    VB.NET-Quellcode

    1. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    2. Dim SentFolder As Folder
    3. Dim destFolder As Folder
    4. If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then
    5. 'Specify the sent emails
    6. Dim oMail As MailItem
    7. Set oMail = Item
    8. Dim colReceiveAdress As New Collection
    9. For i = 1 To oMail.Recipients.Count
    10. colReceiveAdress.Add oMail.Recipients.Item(i).Address
    11. Next
    12. For i = 1 To colReceiveAdress.Count
    13. Select Case True
    14. Case ((InStr(colReceiveAdress(i), "@Firma1_Domain.de") > 0) Or (InStr(colReceiveAdress(i), "max.meier@Test-Firma.com") > 0))
    15. Set SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
    16. Set destFolder = SentFolder.Folders("Firma1")
    17. Set Item.SaveSentMessageFolder = destFolder
    18. Case (InStr(colReceiveAdress(i), "@Firma2.de") > 0)
    19. Set SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
    20. Set destFolder = SentFolder.Folders("Firma2")
    21. Set Item.SaveSentMessageFolder = destFolder
    22. Case (InStr(colReceiveAdress(i), "@Firma3.com") > 0)
    23. Set SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
    24. Set destFolder = SentFolder.Folders("Firma3")
    25. Set Item.SaveSentMessageFolder = destFolder
    26. Case (InStr(colReceiveAdress(i), "Absender@mail.net") > 0)
    27. Set SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
    28. Set destFolder = SentFolder.Folders("Firma4")
    29. Set Item.SaveSentMessageFolder = destFolder
    30. Case (InStr(colReceiveAdress(i), "@Firma5_Domain.de") > 0) Or (InStr(colReceiveAdress(i), "@Firma6-Domain.de") > 0)
    31. Set SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
    32. Set destFolder = SentFolder.Folders("Firma5")
    33. Set Item.SaveSentMessageFolder = destFolder
    34. End Select
    35. Next
    36. End If
    37. End Sub


    Vorgehensweise:
    Es werden alle Email-Empfängeradressen ausgelesen und wenn eine dabei ist, die einen speziellen Empfänger ist, dann wird diese Email in einem Unterordnder für die Firma verschoben. Natürlich könnte man auch anstatt die Firmen hier hard zu codieren auch eine Liste importieren. Da ich aber nur wenige Firmen in spezielle Unterordner von "Gesendete Elemente" verschieben möchte, reicht mir das so aus.

    Für die Eingangsemails gibt es die Outlook-Regeln. Damit verschiebe ich die besonders zu überwachenden Emails in spezielle Unterordner vom Posteingang.

    Ich hoffe das war es, was du gesucht hast.

    Gruß Achilleus

    Neu

    Verstehe ich nicht. ;(

    Wenn ich auf Antworten klicke und die Mail versende, dann wird genau diese E-Mail in den Spezialordner verschoben.
    Aber na ja, vielleicht weiß an anderer Rat.

    Nachtrag:

    Warum nicht alle Mail-Items im Send-Ordner durchlaufen und auf die Mail-Antwortadresse reagieren?
    Ich würde mich auch einmal auf folgender Website umschauen: vboffice.net/de/developers
    Hier gibt es tonnenweise Tipps zu OL-Makros für jegliche Belange.

    Achilleus