Discussion :

[StephDu59]

Bonjour,

Je ne retrouve plus comment récupérer l'adresse mail du compte de messagerie paramétré par défaut.

Par ailleurs j'ai un problème sur la méthode GetContact je n'arrive pas a gérer l'erreur quand l’expéditeur d'un mail n'est pas dans mes contacts.

Merci d'avance,

Cordialement,

[Oliv-]

Salut,

Code :

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

Outlook.Application.Session.Accounts.item(1).SmtpAddress

doit désigner le compte par défaut sauf s'il vient d'être changé.

Pour le second point en général on peut faire comme cela (pas testé)

Code :

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

1
2
3
4
5
6
7
8
9
 
on error resume next
set toto=myrecipent.GetContact 
if toto is nothing then msgbox "erreur"
 
'ou 
if err then msgbox err & vbcr & err.description
err.clear
on error resume next