Makro Post abholen, Posteingang nach Datum sortieren, oberste Mail markiern

  • Outlook

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Volker Bunge.

    Makro Post abholen, Posteingang nach Datum sortieren, oberste Mail markiern

    Hallo zusammen,

    für einen Freund von mir, mit einer Behinderung, möchte ich folgendes realisieren.

    Wenn er auf eine Schaltfläche drückt, soll folgendes passieren

    1. Abrufen der neusten e-Mails
    2. Wechseln in den Posteingang,
    3. Anzeige absteigend nach Datum sortieren
    4. Markieren der obersten sichtbaren e-Mail

    Punkt 2 habe ich schon gelöst. Für die anderen 3 Punkte habe ich leider nichts passenden gefunden.

    Beim sortieren (was ich bisher gefunden habe) geht es hauptsächlich um das "interne" sortieren. Dies hat aber keine Auswirkungen auf die Ansicht (Explorer-Ansicht auch genannt).

    Könntet Ihr mir hierfür mal ein paar Tipps geben, wo ich suchen kann/muss?

    Geht mein Vorhaben überhaupt?

    Vielen Dank

    Volker

    Hallo petaod,

    vielen Dank für die Lösung zu 1.

    Mein bisheriger Code sieht zur Zeit so aus.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Sub Post_abholen()
    3. Dim olApp As Outlook.Application
    4. Dim Mapi
    5. Dim InBox
    7. ' Neue Mails abrufen
    8. Application.Session.SyncObjects.Item(1).Start
    10. ' Auf die Outlook - Elemente zugreifen
    11. Set olApp = CreateObject("Outlook.Application")
    12. Set Mapi = olApp.GetNamespace("MAPI")
    14. ' Zeiger auf Posteingang setzten - Posteingang = Folder(6)
    15. Set InBox = Mapi.GetDefaultFolder(6)
    17. ' Wenn der aktuelle Ordner nicht der Posteingang ist, dann in diesen wechseln
    18. If ActiveExplorer.CurrentFolder <> Mapi.GetDefaultFolder(6) Then ' Zeiger auf Posteingang setzten - Posteingang = Folder(6)
    19. Set Application.ActiveExplorer.CurrentFolder = InBox
    20. End If
    22. ' E-Mails nach Datum absteigend sortieren
    24. ' Die erste Mail als aktive Mail ansteuern
    25. End Sub


    Die IF Abfrage kann man eigentlich auch weglassen. Aber vielleicht hilft es ja auch anderen, mit dieser kleinen Abfrage was anzufangen.

    So, die Hälfte ist geschafft. Hast Du für die anderen beiden auch noch eine Idee?

    Gruß
    Volker

    So, das markieren habe ich auch soweit gelöst. Nicht vielleicht schön, aber bisher genau das, was ich haben wollte.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Sub Post_abholen()
    2. Dim olApp As Outlook.Application
    3. Dim Mapi
    4. Dim InBox As Folder
    5. Dim oFolder As Folder
    6. Dim oItems As Items
    8. ' Neue Mails abrufen
    9. Application.Session.SyncObjects.Item(1).Start
    11. ' Auf die Outlook - Elemente zugreifen
    12. Set olApp = CreateObject("Outlook.Application")
    13. Set Mapi = olApp.GetNamespace("MAPI")
    15. ' Zeiger auf Posteingang setzten - Posteingang = Folder(6)
    16. Set InBox = Mapi.GetDefaultFolder(6)
    18. ' Wenn der aktuelle Ordner nicht der Posteingang ist, dann in diesen wechseln
    19. If ActiveExplorer.CurrentFolder <> Mapi.GetDefaultFolder(6) Then ' Zeiger auf Posteingang setzten - Posteingang = Folder(6)
    20. ' Wechselt in den Posteingang (somit es egal, wo man sich gerade befindet (Kalender, Kontake, Aufgaben oder e-Mail)
    21. Set Application.ActiveExplorer.CurrentFolder = InBox
    22. End If
    24. ' E-Mails nach Datum absteigend sortieren
    25. ' Set myitems = InBox.Items
    26. ' myitems.Sort "[ReceivedTime]", olAscending ' olAscending, olDescending oder olSortNone.
    28. ' Dieser auskommentierte Block funktioniert leider nicht richtig. Es wird nicht die jüngste Mail markiert
    29. ' ' Die erste Mail als aktive Mail ansteuern
    30. ' ActiveExplorer.ClearSelection
    32. ' 'Set oItems = InBox.Items
    34. ' ActiveExplorer.AddToSelection oItems(oItems.Count) ' 1 ist somit die älteste Mail
    36. ' Die erste Mail als aktive Mail ansteuern
    37. Dim AktMail As Integer ' Hier wird die lfd. ID hochgezählt
    38. Dim NeusteMail As Integer ' Hier steht am Ende die ID der jüngsten Mail drin
    39. Dim ErhAm As Date ' Erhält das formatierte Erhalten-Am-Datum der aktuellen e-Mail
    40. Dim neusteUhrzeit As Date ' Erhält die Uhrzeit der immer gerade jüngsten e-Mail
    41. Dim AktUhrzeit As Date ' Erhält die formatierte Erhalten-Am-Uhrzeit der aktuellen e-Mail
    43. ' Werte als Standard setzen
    44. AktMail = 0
    45. neusteUhrzeit = 0
    47. ' Erst einmal alle markierten Mail nicht mehr markieren
    48. ActiveExplorer.ClearSelection
    50. ' oItems beinhaltet jetzt die Mails aus dem Posteingang
    51. Set oItems = InBox.Items
    53. ' Durchläuft alle Mails
    54. For Each OutlookMail In InBox.Items
    56. ' Zählt die Anzahl der Mail
    57. AktMail = AktMail + 1
    59. ' Bei Lesebestätigungen gibt es warum auch immer, einen Fehler, daher werden diese hier gepfrüft
    60. If Mid(OutlookMail.Subject, 1, 8) <> "Gelesen:" And Mid(OutlookMail.Subject, 1, 16) <> "Lesebestätigung:" Then
    61. ' und nur die genommen, die keine Lesebestätigung sind
    62. ' Das Erhalten-Am-Datum wird richtig formatiert in eine Variable abgespeichert
    63. ErhAm = Format(CDate(OutlookMail.ReceivedTime), "dd.mm.yyyy")
    64. End If
    66. ' Jetzt noch prüfen, ob es eine e-Mail ist
    67. If TypeName(OutlookMail) = "MailItem" Then
    68. ' und dann, ob es am heutigen Tag gekommen ist
    69. If ErhAm >= Format(Now, "dd.mm.yyyy") And ErhAm <= Format(Now, "dd.mm.yyyy") Then
    70. ' Die aktuelle Uhr noch richtig formatiert merken
    71. AktUhrzeit = Format(CDate(OutlookMail.ReceivedTime), "hh:MM:ss")
    73. ' Jetzt prüfen, welche Nachricht die jüngste ist
    74. If AktUhrzeit > neusteUhrzeit Then
    75. ' Wenn es eine noch jüngere Mail gibt, dann diese für den nächsten Vergleich sich merken
    76. neusteUhrzeit = AktUhrzeit
    78. ' sowie die aktuelle Mail-ID
    79. NeusteMail = AktMail
    80. End If
    82. End If
    83. End If
    84. Next OutlookMail
    86. ' Erst einmal alle markierten Mail nicht mehr markieren
    87. ActiveExplorer.ClearSelection
    89. ' Die erste Mail als aktive Mail ansteuern
    90. ActiveExplorer.AddToSelection oItems(NeusteMail)
    92. End Sub


    Fehlt also nur noch das Sortieren bzw. aktualisieren der Anzeige

    Gruß
    Volker

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Volker Bunge“ ()

Facebook
Telefonspende