Discussion :

[jaduta]

Bonsoir la communauté,

j'ai besoin de recenser tous les mails arrivants dans une boîte mail partagée (shared mailbox).
Le souci avec NewMail, il est exécuté uniquement sur les mails de ma propre boîte mail et non celle de la boîte partagée.

On parle comme solution d'AddItem.

Est-ce la bonne piste?

Merci pour vos réponses.

[mromain]

Bonjour jaduta, le forum,

Peut-être que l'évènement ItemAdd de l'objet Items peut répondre à ton besoin (documentation).
Il se déclenche chaque fois qu'un élément est ajouté à un dossier.

Pour l'utiliser, il faut ajouter ce code au module ThisOutlookSession de ton projet.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private WithEvents FolderItems As Items
 
Sub Application_Startup()
    'à l'ouverture d'Outlook, on va définir le dossier qu'on "écoute"
    Set FolderItems = Application.Session.Folders("aaaa.bbbb@cccc.fr").Folders("Boîte de réception").Items
End Sub
 
Private Sub FolderItems_ItemAdd(ByVal Item As Object)
    'cet évènement se déclenchera chaque fois qu'un élément sera ajouté au dossier "écouté"
    Stop
End Sub

A+