VBA: E-Mails mit gleichem Zusammenhang sortieren

Hallo zusammen,

viele von euch kennen das vielleicht.

Man schreibt den ganzen Tag mit einer Person hin und her und dass immer auf eine angefangene E-Mail, sodass irgendwann der Betreff ungefähr so aussieht:

AW: Antw.: AW: Antw.: AW: Antw.: AW: Antw.: AW: Antw.: AW: Antw.: AW:

Schnell sammeln sich also E-Mails zum gleichen Thema an, die dann aber schon wieder alt sind, weil eine neue da ist.

Hat jemand eine Idee oder einen Ansatz zu einem VBA-Script, mit dem man am Ende eines Tages oder auf Knopfdruck das E-Mail-Postfach so bereinigen kann, dass immer nur die aktuellste E-Mail da ist?

Gruß
jugendsani

Hat jemand eine Idee oder einen Ansatz zu einem VBA-Script,
mit dem man am Ende eines Tages oder auf Knopfdruck das
E-Mail-Postfach so bereinigen kann, dass immer nur die
aktuellste E-Mail da ist?

Hallo Sani,

ich bin mir nahezu sicher ich könnte das lösen. Aber da ich von OL keine Ahnung habe ist mir das im Rahmen dieses Forums zu Zeitaufwendig.

So gesehen, müßtest du da schon selbst im Internet nach Codeteilen suchen und die zusammensetzen.

z.B. diesen als Anfang:

Private Sub Application\_NewMail()
 ' Holt die erste ungelesene Mail und tut was damit
 Dim olFld As Outlook.MAPIFolder
 Set olFld = Outlook.Session.GetDefaultFolder(olFolderInbox)
 olFld.items.Sort "[ReceivedTime]", False

 Dim oMail As Outlook.MailItem
 Set oMail = olFld.items.GetFirst

 ' Hier kann man dann alles mit der Mail weiter anfangen
 MsgBox "Newmail:" & oMail.subject

 Set oMail = Nothing
 Set oFld = Nothing
End Sub

Das ist schon mal ein guter Ansatz, darauf aufbauend könntest du nach Bestandteilen des Codes im Inet suchen, z.B. nach
Outlook.Session.GetDefaultFolder(olFolderInbox)
usw.

Gruß
Reinhard