[VBA] Récupérer adresse Outlook active

Récupérer adresse Outlook active [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 18-08-2009 à 17:22:44    

:hello:  
 
Salut à tous !
 
J'utilise ce code dans une macro Excel pour envoyer des mails :
 

Code :
  1. Dim OutlApp2 As New Outlook.Application
  2.         Dim OutlMail2 As MailItem
  3.         Dim LOGIN As String
  5.         LOGIN = Environ("username" )
  7.         Set OutlApp2 = New Outlook.Application
  8.         Set OutlMail2 = OutlApp2.CreateItem(olMailItem)
  9.        
  10.         With OutlMail2
  11.              .To = DEST1
  12.              .CC = DEST2 & ";" & DEST3
  13.              .Subject = demande de relecture du tableau"
  14.              .Body = LOGIN & " vous demande de lire le tableau et de lui répondre si c'est OK"
  15.              .Send
  16.         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 :
  1. MsgBox OutlMail2.SenderEmailAddress


mais rien ne s'affiche !!!!  :cry:  
 
Quelqu'un a une petite idée ???
 
;)
 


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 18-08-2009 à 17:22:44   

Reply

Marsh Posté le 19-08-2009 à 13:42:00    

UP

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed