Outlook 2007 - Makro, Nachricht automatisch öffnen und schließen

  • Sonstige

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von 34bounty.

    Outlook 2007 - Makro, Nachricht automatisch öffnen und schließen

    Hallo Experten,

    ich bin leider im Bereich Outlook VBA (im Gegensatz zu Excel-VBA) überhaupt nicht bewandert und suche deshalb Hilfe bei euch.

    Ich bräuchte folgende Funktionalität als Makro:

    Automatisch beim Öffnen von Outlook soll das Makro alle E-Mail-Elemente im Ordner Gelöschte Elemente durchschauen, wenn er den Text "Aktualisierte Aufgabe:" im Betreff findet, soll er das Element öffnen und wieder schließen.


    Hintergrund ist der, dass wie Outlook mit BCM 3.0 verwenden und ich habe eine Regel eingebaut, welche diese ständigen "Aktualisierte Aufgabe:"-Mails vom Posteingang löscht. Allerdings habe ich das Problem, dass wenn Outlook nicht eingeschaltet ist, diese Aufgabenaktualisierungen nicht verarbeitet werden.

    Das oben beschriebene Makro würde mir genau diese Funktion aber bieten.

    Wäre super, wenn mir das jemand schreiben könnte.

    Danke im Voraus und Grüße,

    Markus.

    Makro - öffnet ungelesene Mail

    Hallo,

    vielleicht hilft dir mein Makro den Einstieg zufinden. Es öffnet eine ungelesene Mail im Lesebereh - führt eine Aktion durch - löscht die Mail bei Bedarf.

    Quellcode

    1. 'Eventhandler für öffnen der Mail
    2. Public WithEvents myOlInspectors As Outlook.Inspectors
    3. 'Selection Change Event - lesen der Mail im Lesebereich
    4. Public WithEvents myOlExp As Outlook.Explorer
    5. 'Eventhandler für prüfen der ungelesenen Mail
    6. Public WithEvents myMailItem As Outlook.MailItem
    9. Dim BoolOpenMail As Boolean
    10. ' Initialisieren der Handler beim Outlookstart
    11. Public Sub Initialize_handler()
    12. 'für öffnen der Mail
    13. Set myOlInspectors = Application.Inspectors
    14. 'Selection Change Event - lesen der Mail im Lesebereich
    15. Set myOlExp = Application.ActiveExplorer
    16. End Sub
    20. Private Sub myMailItem_Open(Cancel As Boolean)
    21. 'MsgBox "OpenMailItem"
    22. ' Wenn Mail ungelesen
    23. If myMailItem.UnRead = True Then
    24. 'MsgBox myOlExp.Selection.Count & " items selected...myOlExp_SelectionChange()+ unread"
    25. ' Öffne die Mail direkt im neuen Inspector
    26. myMailItem.Display
    28. If BoolOpenMail = True Then
    29. 'weitere Aktionen
    30. 'myMailItem.Delete
    31. End If
    32. End If
    33. End Sub
    35. Private Sub myMailItem_Read()
    37. 'MsgBox ,vbOKCancel,"Do you want delete","Delete","Delete" As VbMsgBoxResult
    38. 'löschen der Mail
    39. 'myMailItem.Delete
    41. End Sub
    44. 'Selection Change Event - lesen der Mail im Lesebereich
    45. Private Sub myOlExp_SelectionChange()
    46. 'MsgBox myOlExp.Selection.Session.CurrentUser & "myOlExp_SelectionChange()"
    47. If myOlExp.Selection.Count > 0 Then
    48. Set myMailItem = myOlExp.Selection.Item(1)
    49. BoolOpenMail = True
    50. ' Check ob die Mail schon gelesen wurde
    51. If myMailItem.UnRead = True Then
    52. BoolOpenMail = False
    53. 'MsgBox myOlExp.Selection.Count & " items selected...myOlExp_SelectionChange()+ unread"
    54. myMailItem.Display
    55. BoolOpenMail = False
    56. End If
    57. End If
    59. End Sub
    60. Private Sub Application_Startup()
    61. Call Initialize_handler
    62. 'MsgBox "Application_Startup()"
    63. BoolOpenMail = True
    64. End Sub


    GRuß Thomas

Facebook
Telefonspende