Bonjour,
j'ai un petit script VBA qui permet de préparer un message puis qui donne la main à l'utilisateur en utilisant la fonction DISPLAY.
Mes utilisateurs peuvent alors envoyer ou non le message, ainsi que modifier les adresses proposées.
Je souhaiterais récupérer le titre du message et les adresses auquel il a été envoyé si le message est finalement envoyé.
Comment puis-je procéder ?
J'imagine qu'il faudrait que je parvienne a surcharger la fonction send pour lui faire faire ce que je veut avant qu'elle n'envoie le message proprement dit mais je n'ai aucune idée de comment faire cela.
En vous remerciant par avance de votre aide (ci dessous un extrait de ma macro VBA actuelle)
Private Sub Mail_Info_Click()
Dim olApp As Outlook.Application
Dim MsgC As mailItem
Set olApp = New Outlook.Application
Set MsgC = olApp.CreateItem(olMailItem)
MsgC.To = ...
MsgC.CC = ...
MsgC.Display
Set olApp = Nothing
End Sub
j'ai un petit script VBA qui permet de préparer un message puis qui donne la main à l'utilisateur en utilisant la fonction DISPLAY.
Mes utilisateurs peuvent alors envoyer ou non le message, ainsi que modifier les adresses proposées.
Je souhaiterais récupérer le titre du message et les adresses auquel il a été envoyé si le message est finalement envoyé.
Comment puis-je procéder ?
J'imagine qu'il faudrait que je parvienne a surcharger la fonction send pour lui faire faire ce que je veut avant qu'elle n'envoie le message proprement dit mais je n'ai aucune idée de comment faire cela.
En vous remerciant par avance de votre aide (ci dessous un extrait de ma macro VBA actuelle)
Private Sub Mail_Info_Click()
Dim olApp As Outlook.Application
Dim MsgC As mailItem
Set olApp = New Outlook.Application
Set MsgC = olApp.CreateItem(olMailItem)
MsgC.To = ...
MsgC.CC = ...
MsgC.Display
Set olApp = Nothing
End Sub