Adresse Mail du compte outlook

[MaddoG]

Bonsoir à tous,

Je viens vers vous car j'ai besoin d'un coup de main et malgré toutes les informations sur ce forum je n'ai pas trouvé.

Mon problème est que je veux pouvoir recuperer dans le code d'un feuille excel l'adresse mail principale d'outlook, il parrait aussi quelle est dans le navigateur internet mais là je crois que ca serais trop compliqué.
Je me suis rabattu sur la possibilité d'envoyer un mail via mon code et de recuperer le SenderEmailAdress mais je n'ai pas trouvé comment allé cherché le dernier mail envoyé !!
Set myItem = myFolder.Items(??????)

Merci de vos réponses et longue vie au foroum

 

[MJ13]

Re : Adresse Mail du compte outlook

Bonjour,

J'ai rien compris!

 

[MaddoG]

Re : Adresse Mail du compte outlook

Bonjour,
Je veux recuperer l'adresse mail du compte principale d'outlook via excel d'ou est executer mon fichier excel et je veux la commande qui permet de supprimer du repertoire des elements envoyés le dernier mail envoyé d'outlook !
Merci beaucoup

 

[MaddoG]

Re : Adresse Mail du compte outlook

Pour l'adresse du compte Outlook :

Sub Sender()
Dim myOlApp As Outlook.Application
Dim myNamespace As Namespace
Dim compte As String

Set myOlApp = Outlook.Application
Set myNamespace = myOlApp.GetNamespace("MAPI")

compte = myOlApp.Session.CurrentUser.Address
Debug.Print compte

End Sub

Me reste la commande pour effacer le dernier mail dans la boite d'envoi