Discussion :

[borowelle]

Bonjour;

J'essaie de détecter l'écriture d'un destinataire dans un mail actif sous Outlook depuis Excel.

Set NewMail = MonOutlook.ActiveInspector.CurrentItem
With NewMail
If PropertyChange.To Then
test = True
End If
End With
MonMessage.display

J'arrive à récupérer le mail actif d'Outlook mais je ne parviens pas à détecter l'évènement d'écriture dans le destinataire.
Si vous avez des pistes sur les variables à utiliser ou les évènements qui permettent de détecter sa.

Ps: Je débute en VBA sur Outlook j'ai essayé d'utiliser PropertyChange (To) mais cela ne marche pas non plus, je ne comprends pas très bien comme utiliser cette fonction.

Cordialement

[Oliv-]

Bonsoir,
quel est ton but final ?

Tu ne peux pas faire comme si c'était une propriété, l'utilisation des événements requiert une variable spéciale qui gère les éventements

Code :

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

1
2
3
 
 
Private WithEvents m_Mail As Outlook.MailItem

si tu veux l'utiliser à partir de EXCEL c'est un peu plus compliqué il faut déclarer cette variable soit dans un formulaire soit dans ThisoutlookSession soit dans un module de classe.


une fois que tu as associé ta variable à ton Email, tu dois attendre le déclenchement de l'événement que tu auras au préalable paramétré.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private WithEvents m_Mail As Outlook.MailItem
Sub initialisation()
Set MonOutlook = CreateObject("outlook.application")
 
Set m_Mail = MonOutlook.ActiveInspector.CurrentItem
End Sub
 
 
Private Sub m_Mail_PropertyChange(ByVal Name As String)
Debug.Print Name
 
If Name = "To" Then
MsgBox "changement de destinataire"
End If
End Sub

par contre comme le code est dans Excel, tu ne verras pas la fenetre au premier plan il faut associer des fonctions de l'API windows


comme SetForegroundWindow


tu peux lire
https://www.developpez.net/forums/bl...mails-outlook/