[VBA-Outlook] évenement ItemSend afin d'avoir le Sendername [Résolu]

[bonilla]

Bonjour,

J'ai fait une macro

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Application_ItemSend(ByVal Item As Object, _
  Cancel As Boolean)
 
'  Sub gg()
 
    Dim ns As NameSpace
    Dim Inbox As MAPIFolder
    Dim Subfolder As MAPIFolder
 
    Set ns = GetNamespace("MAPI")
    Set Inbox = ns.Folders("Boîte aux lettres - foot")
    Set Subfolder = Inbox.Folders("Boîte de réception") ' Enter correct subfolder name.
 
'iui = mItem.SendOnBehalfOfName
 
'MsgBox iui
 
MsgBox "Mail envoyé par " & Item.Sendername & " et vers " & Item.To & " ! "

Et je n'arrive pas a voir le Sendername.
en faisant des recherches ,j'ai vu qu'il fallait utiliser le SendOnBehalfOfName

Mais je ne sais pas comment le mettre dans mon code.J'ai bien essayé de le mettre (cf commentaire dans mon code),mais ca passe pas.Pourtant j'avais bien checké F1

Merci de m'aider sur ce coup!

[bbil]

ben sans aller plus loin c'est la même réponse que tout à l'heure ta variable
mItem n'est initialisée nulle part ...? d'ou sort'elle ..?

[bonilla]

Elle sort d'avant
Dim mItem As Outlook.MailItem

Excusez-moi

[SilkyRoad]

bonsoir

tu peux tester

Code :

1
2
3
4
Private Sub Application_ItemSend(ByVal Item As Object, _
            Cancel As Boolean)
    MsgBox Item.Session.CurrentUser.Name
End Sub

bonne soirée
michel

[bonilla]

Bonjour!
J'ai bien testé le username ,et ca donne effectivement le nom de celui qui utilise la session. Le probleme, c'est que je voudrais utiliser cette macro sur une BAL ,et le nom n'est pas pareil.

[bonilla]

J'ai trouvé

J'ai rajouté un module

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Global envoyeur As String
 
Sub CheckSenderName()
    Dim myOlApp As Outlook.Application
    Dim myItem As Outlook.MailItem
 
 
    Set myOlApp = CreateObject("Outlook.Application")
    Set myItem = myOlApp.ActiveInspector.CurrentItem
    envoyeur = myItem.SentOnBehalfOfName
 
End Sub

et j'ai mis un msgbox envoyeur dans ma session