Obtenir la liste des conmptes Outlook e VBA

Signaler
Messages postés
29
Date d'inscription
lundi 13 mai 2002
Statut
Membre
Dernière intervention
22 mars 2013
-
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
-
Bonjour,

Déjà, dsl si je ne suis pas au bon endroit; mais là, j'ai pas trouvé d'endroit plus approprié.

Cela étand dit, j'ai une application en vba qui tourne sous Outlook 2007 et 2010. Cette application compare le nom du sender d'un mail au différents comptes existant afin de déterminer si on a affaire à un mail Reçu ou envoyé:

Private Function DetecteDirection(message As String) As String
DetecteDirection = "IN"
For i = 1 To Application.ActiveExplorer.Session.Accounts.Count
If message = Application.ActiveExplorer.Session.Accounts.Item(i).SmtpAddress Then
DetecteDirection = "OUT"
End If
Next
End Function

La fonction reprise ci-dessus fonctionne donc très bien en 2007 et 2010.

Par contre, en 2003, l'object ActiveExplorer.session ne contient pas Accounts...

Or, dans mon parc, j'ai encore plein de 2003. Quelqu'un aurait-il une idée sur le comment faire en 2003? Pour info une recherche dans l'explorateur d'objets sur Accounts ou SmtpAddress ne donne rien de probant.

Merci d'avance pour toute suggestion.

Jaxom

-Perdu dans les méandres de la création virtuelle-

1 réponse

Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
9
Bonjour,

Le développement avec l'objet Outlook inclus est souvent galère. De plus l'objet ne permet pas l'accès à toutes les fonctionnalités de la messagerie.

Il existe une DLL tierce nommée Redemption (tout un programme) qui simplifie et complète l'utilisation native. Cette DLL est gratuite pour un usage non commerciale et se trouve ici.

Désolé, mais comme (très) souvent dans ce cas, c'est tout en anglais dans le texte.


Calade