Lone-wolf
XLDnaute Barbatruc
Bonjour le Forum
J'ai un souci avec cette macro qui affiche tous les messages du dossier Messages Reçus sous Outlook.
Et c'est cette ligne qui cause problème: If item = msg Then item.Display: Exit For
Comment afficher le mail suivant la valeur de msg?
J'ai un souci avec cette macro qui affiche tous les messages du dossier Messages Reçus sous Outlook.
VB:
Sub test()
Dim olApp As Object, GN As Object, Dossier As Object, _
item As Object, msg As String
Set olApp = CreateObject("Outlook.Application")
Set GN = olApp.GetNamespace("MAPI")
Set Dossier = GN.Folders("toto@free.fr").Folders("Messages reçus")
msg = Sheets(1).Range("a2").Value
For Each item In Dossier.Items
If item = msg Then item.Display: Exit For
Next
End Sub
Et c'est cette ligne qui cause problème: If item = msg Then item.Display: Exit For
Comment afficher le mail suivant la valeur de msg?
Dernière édition: