macro recherche message outlook

[simo31]

bonjour tout le monde

j'ai besoin de votre aide sur une macro

je souhaiterais créer une macro qui cherche un l'objet du mail Outlook en fonction d'une cellule donner excel
en suite ouvrir l'email, détail ci dessous :

- si la référence de la cellule X = l'objet contient la référence de la cellule X
- ouvrir le dernier mail

merci d'avance

 

[Lone-wolf]

Bonjour simo et bienvenue sur XLD

C'est quoi comme référence, l'adresse email, le titre de l'email etc???

 

[Lone-wolf]

Bonjour simo

Si tu repasse par ici. Il faut activer la référence Microsoft Outlook xx Object Library.

Public olApp As Outlook.Application

Sub test()
Dim GNs As Object, Dossier As Object, Item As Object
Dim olSujet As String, msg As String, i As Long, HerrHandler

    Application.WindowState = xlMinimized

    Set olApp = New Outlook.Application
    Set GNs = olApp.GetNamespace("MAPI")
    Set Dossier = GNs.Folders("toto@free.fr").Folders("Nom du dossier")
    msg = Sheets(1).Range("a2").Text 'Liste déroulante

    For i = 1 To Dossier.Items.Count
        Set Item = Dossier.Items(i)
        'Ici Objet     exemple: votre inscription sur notre site
        If Item.Subject = msg Then Item.Display   'Oubien Item.To qui correspond à l'adresse de l'expéditeur
    Next i

    Set GNs = Nothing
    Set Dossier = Nothing
    Set Item = Nothing

    Application.OnTime Now + TimeValue("00:00:10"), "quitter"

End Sub

Sub quitter()
    olApp.Quit
    Set olApp = Nothing

    Application.WindowState = xlNormal

End Sub