Discussion :

[p.jeremie]

Bonjour,

J'essaye dans un document word de récupérer l'adresse mail de la boite actuellement ouverte sous outlook.

J'ai cherché sur le forum mais je n'arrive pas à trouver la solution.

J'ai également essayé vOutlook.Session.CurrentUser.Address mais j'ai un message dans Outlook "Un programme essaie d'accéder aux informations d'adresse..."

[p.jeremie]

Personne ?

[Heureux-oli]

Salut,

Quelle est ta version d'office ?

[Heureux-oli]

Salut,

Ce code fonctionne, mais je ne sais pas si c'est le cas pour toutes les versions.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub RenvoiNomEtAdresses()
Dim oApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
 
Set oApp = Outlook.Application
 
    Set myNamespace = oApp.GetNamespace("MAPI")
    Debug.Print myNamespace.CurrentUser
    Debug.Print myNamespace.Session.Accounts(1).SmtpAddress
 
 
Set myNamespace = Nothing
Set oApp = Nothing
 
End Sub

[carden752]

Bonjour,

C'est une sécurité pour éviter une diffusion en masse de virus en entreprise.
Cela peut-être décoché dans les options de configuration du serveur Exchange mais cela s'applique à tous les utilisateurs.

[p.jeremie]

J'utilise office 2007.
J'ai testé ton code Heureux-oli, mais j'ai toujours le message d'alerte.

Je pense que je vais laisser tomber, surtout que le besoin est très ponctuel.