Salut à tous !
J'utilise ce code dans une macro Excel pour envoyer des mails :
Code :
- Dim OutlApp2 As New Outlook.Application
- Dim OutlMail2 As MailItem
- Dim LOGIN As String
- LOGIN = Environ("username" )
- Set OutlApp2 = New Outlook.Application
- Set OutlMail2 = OutlApp2.CreateItem(olMailItem)
-
- With OutlMail2
- .To = DEST1
- .CC = DEST2 & ";" & DEST3
- .Subject = demande de relecture du tableau"
- .Body = LOGIN & " vous demande de lire le tableau et de lui répondre si c'est OK"
- .Send
- End With
|
LOGIN étant le login d'ouverture de la session Windows
DEST1, DEST2 et DEST3 étant les destinataires du mail
J'ai bien active la référence VBA Outlook 11.0 pour que ce code puisse fonctionner...
Et ça fonctionne correctement...
Le destinataire DEST1 reçoit bien le mail, ouvre le fichier Excel, le relit...
Mais voilà, j'aimerais créer une autre macro dans ce classeur Excel qui va permettre à DEST1 de répondre à LOGIN... or, comment puis-je enregistrer quelque part dans le fichier Excel l'adresse mail de LOGIN ????
J'avoue ne pas trouver...
J'ai essayé par la ligne (juste pour voir le résultat j'ai mis Msgbox) :
Code :
- MsgBox OutlMail2.SenderEmailAddress
|
mais rien ne s'affiche !!!!
Quelqu'un a une petite idée ???
---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To