Discussion :

[Mut]

Bonjour,

Je souhaiterais savoir comment je peux tester l'expéditeur d'un mail en cours lors de l'envoi. J'ai un profile Outlook avec plusieurs compte et je souhaite que sur l'évènement de l'envoi du mail, savoir (via une msgbox par exemple) quel compte est sélectionné (expéditeur).

Merci

[Jean-Philippe André]

Salut,

tu peux directement afficher le champ From dans ton en tete de mail (Onglet Options).

[Mut]

Merci pour votre réponse,

J'ai oublié de préciser que je souhaiter le récupérer en VBA sur un mail en cours de rédaction.

[Oliv-]

Bonjour,

Ce code devrait faire l'affaire

Code :

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

1
2
3
4
5
 
    If Item.SentOnBehalfOfName <> "" And Item.SentOnBehalfOfName <> Application.Session.CurrentUser.Name Then 
msgbox Item.SentOnBehalfOfName else
 msgbox Application.Session.CurrentUser.Name
End if

[Jean-Philippe André]

Ben du coup on fait une recherche =]
http://www.developpez.net/forums/d23...-d-sendername/

[Oliv-]

En fait il y a 2 cas selon les droits et le paramétrage sur les BAL

Voici une exemple plus complet

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'---------------------------------------------------------------------------------------
' Procedure : Application_ItemSend
' Author    : OLiv-
' Date      : 17/05/2016
' Purpose   :
'---------------------------------------------------------------------------------------
'
    ' on verifie que c'est un mail
    If Not Item.Class = olMail Then GoTo fin
 
 
    '#######ENREGISTRER UNE COPIE ET OU #######
    On Error Resume Next
 
    If Item.SentOnBehalfOfName <> "" And Item.SentOnBehalfOfName <> Application.Session.CurrentUser.Name Then
 
' 1 er cas 
 
    ElseIf Item.SendUsingAccount.displayName <> Application.Session.Accounts.Item(1).displayName Then
 ' 2eme cas
 
   Else 
' utilisateur par défaut
 
    End If
 
    '#######FIN #######
fin:
    Set Item = Nothing
 
End Sub