Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Outlook Classer les emails d'une même conversation

wizard0147

XLDnaute Occasionnel
Bonjour à tous,

Dans la gestion quotidienne de ma boite Outlook, je crée des dossiers dans lesquels je classe les emails reçus. Egalement, j'opte pour un affichage par conversation.
Mon problèmes est que j'ai tellement de dossiers et sous-dossiers que le temps passé à trier les emails reçus est beaucoup trop grand.

J'aimerais rationaliser tout ça en créant une petite macro qui, en 1 clic:
1/ Vérifie que l'email ou les emails de la conversation ont un dossier rattaché. Si pas de dossier rattaché => Stop
2/ Identifie le dossier dans lequel sont classés les messages de la conversation
3/ Envoie l'email ou les emails de la conversation dans le dossier concerné

J'ai beau chercher sur le net, je ne trouve pas de pistes de départ pour m'aider.

Merci de votre aide
 

titiborregan5

XLDnaute Accro
Bonjour Wizard, le forum,
as-tu pu trouver la réponse à ta question ci-dessus?

Je déterre un peu le sujet (j'ai vu un sujet encore plus ancien avec des réponses mais pas les bonnes (genre pourquoi tu ne fais pas autrement?)) car je suis confronté à la même problématique.

Je vais tenter de reformuler, on ne sait jamais, ça peut peut-être aider...

Je reçois des mails dans la boîte de réception que je classe dans des dossiers au fur et à mesure.
Il se trouve qu'avec la disposition en mode conversation, je vois donc où (dans quel dossier) se trouvent les différents mails de la conversation (Boîte de réception donc, dossier XXX et Eléments envoyés en gros).
J'aimerais, avec une macro, pouvoir avoir une liste de tous les dossiers concernés dans la conversation (sauf boite de réception et éléments envoyés) et choisir vers lequel déplacer le mail sélectionné, voire la conversation si cette dernière est sélectionnée.


J'ai qq connaissances en VBA Excel mais je ne suis pas du tout à l'aise sous Outlook...

Merci d'avance pour votre aide.
Si besoin je ferai un autre sujet?
Bonne journée
Tibo
 

dodor44

XLDnaute Nouveau
Bonjour wizard,

Ca fait plusieurs années que cette question me traverse l'esprit et je n'ai jamais trouvé la réponse. Est-ce que vous avez trouvé une solution à ce besoin?
Avec l'avalanche de mails qui tombent sur une même conversation, une telle macro serait un vrai soulagement pour garder une BaL bien rangée.
Pourriez-vous partager vos conclusions sur le sujet ?

Merci par avance pour le partage
 

dodor44

XLDnaute Nouveau
Bonjour,

Je me permets de relancer mon post précédent si un expert Outlook avait une suggestion pour répondre à mon besoin, ça serait le bienvenu.
En attendant je coule sous les emails...

merci à vous
 

mromain

XLDnaute Barbatruc
Bonjour à tous,

Voici un début de piste avec la fonction suivante GetConversationsFolders qui :
  • parcourt tous les mails d’un dossier et ses sous-dossiers
  • récupère l’ensemble des conversations avec les dossiers dans lesquelles elles ont été trouvées
VB:
'---------------------------------------------------------------------------------------
' Procédure   : GetConversationsFolders
' Auteur      : Mickaël
' Date        : 23/06/2021
' Sujet       : Cette procédure est utilisée pour, à partir d'un dossier Outlook, extraire toutes
'               les 'ConversationID' des mails avec les dossier dans lesquels ces conversation ont
'               été trouvées.
'               Pour la recherche d'éléments, cette procédure utilise la fonction GetFoldersPerConversationID.
' Retourne    : Scripting.Dictionary
'                   - clef   : ConversationID
'                   - valeur : VBA.Collection de 1 ou plusieurs Outlook.Folder
' Pàaramètres :
'       - p_o_folder (Outlook.Folder) : dossier de stockage des mails
'---------------------------------------------------------------------------------------
'
Public Function GetConversationsFolders(p_o_folder As Outlook.Folder) As Object    'Scripting.Dictionary
Dim l_o_dicoRes As Object               'Scripting.Dictionary
Dim l_o_dicoConversations As Object     'Scripting.Dictionary
Dim l_o_dicoFolders As Object           'Scripting.Dictionary
Dim l_av_convKeys() As Variant
Dim l_av_convDicos() As Variant
Dim l_o_collConv As VBA.Collection
Dim l_l_iConv As Long
Dim l_av_folders() As Variant
Dim l_l_iFold As Long
    Set l_o_dicoRes = CreateObject("Scripting.Dictionary")
    Set l_o_dicoConversations = GetFoldersPerConversationID(p_o_folder)
    l_av_convKeys = l_o_dicoConversations.Keys()
    l_av_convDicos = l_o_dicoConversations.Items()
    For l_l_iConv = 0 To l_o_dicoConversations.Count - 1
        Set l_o_collConv = New VBA.Collection
        Set l_o_dicoFolders = l_av_convDicos(l_l_iConv)
        l_av_folders = l_o_dicoFolders.Items()
        For l_l_iFold = 0 To l_o_dicoFolders.Count - 1
            l_o_collConv.Add l_av_folders(l_l_iFold)
        Next l_l_iFold
        l_o_dicoRes.Add l_av_convKeys(l_l_iConv), l_o_collConv
    Next l_l_iConv
    Set GetConversationsFolders = l_o_dicoRes
    Set l_o_dicoRes = Nothing
    Set l_o_dicoConversations = Nothing
    Set l_o_dicoFolders = Nothing
    Set l_o_collConv = Nothing
End Function

'Private Function GetFoldersPerConversationID(p_o_folder As Outlook.Folder, Optional p_o_dicoRes As Scripting.Dictionary = Nothing) As Scripting.Dictionary
Private Function GetFoldersPerConversationID(p_o_folder As Outlook.Folder, Optional p_o_dicoRes As Object = Nothing) As Object
Dim l_o_subFolder As Outlook.Folder
Dim l_o_item As Object
Dim l_o_mailItem As Outlook.MailItem
Dim l_o_dicoFolders As Object       'Scripting.Dictionary
    If p_o_dicoRes Is Nothing Then Set p_o_dicoRes = CreateObject("Scripting.Dictionary")
    For Each l_o_item In p_o_folder.Items
        If TypeOf l_o_item Is MailItem Then
            Set l_o_mailItem = l_o_item
            If Not p_o_dicoRes.Exists(l_o_mailItem.ConversationID) Then p_o_dicoRes.Add l_o_mailItem.ConversationID, CreateObject("Scripting.Dictionary")
            Set l_o_dicoFolders = p_o_dicoRes.Item(l_o_mailItem.ConversationID)
            If Not l_o_dicoFolders.Exists(p_o_folder.FolderPath) Then l_o_dicoFolders.Add p_o_folder.FolderPath, p_o_folder
        End If
    Next l_o_item
    For Each l_o_subFolder In p_o_folder.Folders
        GetFoldersPerConversationID l_o_subFolder, p_o_dicoRes
    Next l_o_subFolder
    Set GetFoldersPerConversationID = p_o_dicoRes
    Set l_o_subFolder = Nothing
    Set l_o_item = Nothing
    Set l_o_mailItem = Nothing
    Set l_o_dicoFolders = Nothing
End Function

Pour son utilisation, voici un exemple qui :
  • parcourt tous les mails sélectionnés
  • pour chacun d’eux, affiche les informations relatives au(x) dossier(s) dans lesquels ont été trouvées la conversation
VB:
Public Sub TestStoreEmails()
Dim l_o_folderStockage As Outlook.Folder
Dim l_o_dicoConversations As Object  'Scripting.Dictionary
Dim l_o_collFolders As VBA.Collection
Dim l_o_folderConversation As Outlook.Folder
Dim l_o_selection As Outlook.Selection
Dim l_o_mailItem As Outlook.MailItem
Dim l_l_i As Long
Dim l_s_msg As String
    
    'récupérer le dossier de stockage des mails
    Set l_o_folderStockage = Application.Session.Folders("bla bla").Folders("bla bla bla")
    'en extraire tous les dossier par conversation
    Set l_o_dicoConversations = GetConversationsFolders(l_o_folderStockage)
    
    'boucler sur chaque élément sélectionné
    Set l_o_selection = Application.ActiveExplorer.Selection
    For l_l_i = 1 To l_o_selection.Count
        'filtrer sur les éléments de type mail
        If TypeOf l_o_selection.Item(l_l_i) Is MailItem Then
            Set l_o_mailItem = l_o_selection.Item(l_l_i)
            's'il existe déjà un email classé pour la même conversation
            If l_o_dicoConversations.Exists(l_o_mailItem.ConversationID) Then
                'afficher les détails
                Set l_o_collFolders = l_o_dicoConversations.Item(l_o_mailItem.ConversationID)
                l_s_msg = l_o_collFolders.Count & " dossier(s) de stockage trouvé(s) pour le mail '" & l_o_mailItem.Subject & "' :"
                For Each l_o_folderConversation In l_o_collFolders
                    l_s_msg = l_s_msg & vbNewLine & "   - " & l_o_folderConversation.FolderPath
                Next l_o_folderConversation
                MsgBox l_s_msg, vbOKOnly + vbInformation, "Info"
            'sinon
            Else
                MsgBox "Aucun dossier de stockage trouvé pour le mail '" & l_o_mailItem.Subject & "'.", vbOKOnly + vbExclamation, "Info"
            End If
        End If
    Next l_l_i
    
    Set l_o_folderStockage = Nothing
    Set l_o_dicoConversations = Nothing
    Set l_o_collFolders = Nothing
    Set l_o_folderConversation = Nothing
    Set l_o_selection = Nothing
    Set l_o_mailItem = Nothing
End Sub
Le dossier de stockage l_o_folderStockage est à adapter.

A+
 

titiborregan5

XLDnaute Accro
Bonsoir le forum,
Bonsoir @mromain ,

Je me rends compte, seulement maintenant, qu'il y a une réponse à la question des mails et des conversations dans Outlook. Merci et désolé pour l'absence de réponse (involontaire).

La 2ème partie semble plus répondre à mon besoin de parcourir une discussion et voir où sont rangés les autres mails.
Je vais essayer de me replonger dedans dès que j'ai un peu de temps et je te ferai part de mes difficultés (j'anticipe déjà car pas vu grand chose que je connaissais dans ton code...).

Encore merci.

Bonne soirée,
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…