Discussion :

[Pygmalion37]

Bonsoir à tous,

Je dois réussir à piloter Outlook via VBA Access, ce que je parvenais à peu près à faire... Mais hélas, difficulté supplémentaire, on me demande désormais de gérer DEUX comptes Outlook...

Quelqu'un sait il comment trouver le Paramètre d'un compte Outlook en VBA Access ?

Merci par avance pour vos idées...

Pyg

[Jean-Philippe André]

Salut,

tu accèdes aux différents comptes à partir de la collection

Code :

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

Outlook.Application.Session.Accounts

tu peux partir sur des boucles for Each

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
16
17
' The Namespace Object (Session) has a collection of accounts.
            Dim accounts As Outlook.Accounts = application.Session.Accounts
 
            ' Loop over all accounts and print detail account information.
            ' All properties of the Account object are read-only.
            Dim account As Outlook.Account
            For Each account In accounts
 
                ' The DisplayName property represents the friendly name of the account.
                Debug.Print account.DisplayName
 
                ' The UserName property provides an account-based context to determine identity.
               Debug.Print account.UserName
 
                ' The SmtpAddress property provides the SMTP address for the account.
                Debug.Print account.SmtpAddress
           Next

le code est récupéré depuis la section VB.Net mais s'appliquera aisément à VBA
https://msdn.microsoft.com/fr-fr/lib.../ff462091.aspx

[Pygmalion37]

Merci !

C'est parfait !!!!!

Salut,

tu accèdes aux différents comptes à partir de la collection

Code :

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

Outlook.Application.Session.Accounts

tu peux partir sur des boucles for Each

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
16
17
' The Namespace Object (Session) has a collection of accounts.
            Dim accounts As Outlook.Accounts = application.Session.Accounts
 
            ' Loop over all accounts and print detail account information.
            ' All properties of the Account object are read-only.
            Dim account As Outlook.Account
            For Each account In accounts
 
                ' The DisplayName property represents the friendly name of the account.
                Debug.Print account.DisplayName
 
                ' The UserName property provides an account-based context to determine identity.
               Debug.Print account.UserName
 
                ' The SmtpAddress property provides the SMTP address for the account.
                Debug.Print account.SmtpAddress
           Next

le code est récupéré depuis la section VB.Net mais s'appliquera aisément à VBA
https://msdn.microsoft.com/fr-fr/lib.../ff462091.aspx