AW: Outlook VBA ? Conversation
14.03.2022 14:19:44
Fennek
Hallo,
hier ein anderer Vorschlag:
Sub has_Mail_answered()
Dim EML As MailItem, Conv As Conversation, Table As Table, Itm As Object, It As MailItem, Chl As Object
Dim Itms As SimpleItems
If Session.Stores.Item(1).IsConversationEnabled Then
Set EML = ActiveExplorer.Selection.Item(1)
Debug.Print EML.Subject, EML.ReceivedTime
Set Conv = EML.GetConversation
If Not Conv Is Nothing Then
Debug.Print Conv.ConversationID
For Each Itm In Conv.GetChildren(EML)
Debug.Print Itm.Subject, Itm.SentOn, Itm.Parent
Next Itm
end sub
"Itm.SentOn" gibt den Zeitpunkt der Anwort an, Itm.Parent prüft, ob es wirklich "Gesendete Mails" war
mfg
PS: Code Teil ein umfassenderen Codes, in dieser Form schlecht geprüft