Outlook macro

tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 - 18 avril 2005 à 14:46
odalyan Messages postés 1 Date d'inscription jeudi 24 novembre 2005 Statut Membre Dernière intervention 24 novembre 2005 - 24 nov. 2005 à 11:24
Bonjour à tous,



J'ai une question simple, mais dont je n'arrive pas à trouver la réponse malgré toutes les sources

dispo sur vbfrance... J'aimerais pouvoir sélectionner tous les mails d'un dossier.

Par exemple, je suis sur le dossier réception, je voudrais savoir ce
qu'il faut écrire dans une macro pour que tous les mails soit surlignés.



Merci d'avance.

TBBUIM

1 réponse

odalyan Messages postés 1 Date d'inscription jeudi 24 novembre 2005 Statut Membre Dernière intervention 24 novembre 2005
24 nov. 2005 à 11:24
Dim MyRapport As MailItem
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myOlApp.ActiveExplorer.CurrentFolder
For ifold = 1 To myFolder.Items.Count
Set MyRapport = myFolder.Items.Item(ifold)
MyRapport.Delete
'... test avant suppression
Next
0
Rejoignez-nous