Discussion :

[Shellyx]

Bonjour à toutes et à tous,

Je me permet de poster ici car depuis quelques jours je galère à faire une chose qui parrait pourtant simple, à savoir, parcourir chaque emails d'une conversation.

Admettons que j'envoie un message à un destinataire X, que celui ci réponde directement à mon email.. Dans ce cas une conversation débute (on garde le même objet, le corps de l'email précédent etc.)

Ma question est donc: comment faire si je souhaite récupérer les infos à partir du 1er email (le miens donc), puis ensuite récupérer la réponse, et ainsi de suite ?

Lorsque je parcours mon Inbox et ses sous-dossier j''arrive à afficher uniquement les derniers emails d'une conversation, j'aimerais par exemple que si je tombe sur un mail qui est une réponse à un autre (une conversation donc) alors que je puisse afficher en premier temps le dernier mail en date et remonter l'historique de la conversation en affichant chaques emails jusqu'à celui d'origine.

Après quelque recherches sur internet et sur le forum il faut croire que ce n'est pas une pratique courante vu le peu de documentation et d'exemples à disposition.. Même sur la documentation officielle de Microsoft les exemples qu'ils donnent pour cette action sont en C# et pas en VBA..

Genre ici c'est du C#.. sur la documentation VBA Logique MS https://msdn.microsoft.com/fr-fr/vba...object-outlook

J'ai parcouru un peu la documentation mais je trouve ça très vague au niveau des explications et étant novice en VBA je n'ai pas trouvé les templates adéquats à mes recherches..

Je vous remercie d'avance pour l'aide que vous pourrez m'apporter ! Je reste bien entendu disponible si vous souhaitez plus de précisions sur ma demande

A bientôt !

[Shellyx]

Ma question est-elle trop générique ? Que dois-je préciser en plus afin d'obtenir de l'aide ?

Merci d'avance, je reste à disposition si besoin de renseignements.

[Shellyx]

Je fais un petit retour suite à mes divers essais...

Ne parvenant pas à obtenir le résultat souhaité lorsque je passe par les fonctions système disponibles j'ai décidé de "contourner" le problème..

Voici comment j'ai procédé:

Afin de pouvoir obtenir le nombre de messages échangés dans une conversation, j'ai tout simplement récupéré le champs "body" de dernier email reçu.

Je transforme l'objet "body" en string afin de pouvoir l'exploiter. Je parse donc le corps du message à la recherche des mots-clés suivants:
"From:", "Sent:, "To:", "Subject:" OU "De" "Envoyé", "À" et "Objet" (suivant la langue utilisée (dans Outlook) par l'expéditeur)

A chaque fois que je rencontre un des mots ci-dessus, je le stocke, dans un tableau dédié au mot en question.

A la fin du parsing, je compte le nombre d'élements présents dans chaque tableaux et je compare à l'aide de conditions les résultats afin d'obtenir un nombre cohérent.

Notes: Après plusieurs tests avec diverses conversations j'obtiens des résultats plutot convainquants, cependant, cette méthode n'est pas des plus précises et repose essentiellement sur mes conditions de vérification mais ça fait l'affaire lorsqu'on à pas besoin d'être précis au mail près.

Je reste à l'écoute malgré tout, si jamais quelqu'un à une solution plus fiable que celle-ci.

Shellyx

[mromain]

Bonjour Shellyx, le forum,

Voici un essai ou on remonte les mails jusqu’au premier en utilisant .GetConversation.GetParent.

L’inconvénient est que le code ne semble voir que les mails de la conversation stockés dans le dossier du mail de départ (je ne sais pas si je suis très clair ).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Test()
Dim l_o_mail As MailItem
Dim l_l_lvl As Long
 
    'récupérer le dernier mail de la boite de réception
    With Application.Session.GetDefaultFolder(olFolderInbox)
        On Error Resume Next
         Set l_o_mail = .Items(.Items.Count)
        On Error GoTo 0
    End With
    'arret si la boite de réception est vide où si le dernier élément reçu n'est pas un mail
    If l_o_mail Is Nothing Then Stop
 
    'afficher les information du mail
    l_l_lvl = 0
    Debug.Print l_l_lvl & " - " & l_o_mail.Subject & " (" & Format(l_o_mail.CreationTime, "dd/mm/yyyy hh:mm") & ")"
 
    'boucler sur tous les parents
    While (Not l_o_mail.GetConversation.GetParent(l_o_mail) Is Nothing)      ' And (l_l_lvl < 10)
        'récupérer le parent et afficher les information du mail
        l_l_lvl = l_l_lvl + 1
        Set l_o_mail = l_o_mail.GetConversation.GetParent(l_o_mail)
        Debug.Print l_l_lvl & " - " & l_o_mail.Subject & " (" & Format(l_o_mail.CreationTime, "dd/mm/yyyy hh:mm") & ")"
    Wend
 
End Sub

A+

[Shellyx]

Bonjour mromain,

Je viens de tester le code et ça marche parfaitement , c'est exactement ce que je cherchais à faire !

Je te remercie pour ton partage ! Garde ce bout de code précieusement ahah.

Je passe le sujet en résolu

Bonne journée et merci encore !