Найти письма в одном разговоре - PullRequest
Новая
       14

Найти письма в одном разговоре

0 голосов
/ 13 мая 2019

Я хочу найти все сообщения в беседе, когда я отправляю письмо.

Я сделал это, что может быть неэффективно и иногда вызывает ошибку при использовании специальных символов (на французском языке у нас многоакценты ...) 

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If Item.Class <> olMail Then Exit Sub

    Set objFolder = objNS.GetDefaultFolder(olFolderInbox)
    Dim objMsgInbox As Items
    Set objMsgInbox = objFolder.Items

    Set Search = objMsgInbox.Restrict("[Conversation]=" & Chr(34) & Item.ConversationTopic & Chr(34)) 
    If Search.Count > 0 Then
        MsgBox "Found!"
    End if

End if

Полагаю, мне следовало бы основывать это на ConversationId или pidTagConversationThread, но я не смог заставить его работать.

...