Outlook 2010 : compte supplementaire d'un compte exchange

Signaler
Messages postés
27
Date d'inscription
mercredi 19 janvier 2011
Statut
Membre
Dernière intervention
1 novembre 2018
-
Bonjour,
poste sous W7, Outlook 2010, 1 compte exchange installé, avec 1 compte supplémentaire (ce qu'on a manuellement en allant sur les propriétés du compte, param suppl, avancé, ajouter).
Par vbscript j'arrive à parcourir les magasins (fichiers ost/pst), et récupérer l'adresse mail du compte exchange. Mais comment récupérer l'adresse mail du compte supplémentaire ?
Merci de votre aide. Jean-Claude


' boucle sur chaque magasin
for each objStore in colStores
set objRoot = objStore.GetRootFolder
' recherche des comptes remettant leurs mails dans ce magasin
found = false
for each curAccount in Accounts
if curAccount.DeliveryStore.FilePath = objStore.FilePath then
msgbox "Nom de la boîte : " & objRoot.Name & vbcrlf & _
"Fichier : " & objStore.FilePath & vbcrlf & _
"Email du compte SMTP : " & curAccount.SmtpAddress & vbcrlf & _
"Email du compte Exchange : " & curAccount.ExchangeMailboxServerName
found = true ' ex. compte exchange
end if
next
if not found then ' ex. compte supplémentaire
msgbox "Nom de la boîte : " & objRoot.Name & vbcrlf & _
"Fichier : " & objStore.FilePath & vbcrlf & _
"Sans compte"
end if
next