Exchange Empfängernamen auslesen

[Jörg Harnisch]

Hallo NG,

ich suche schon geraume Zeit in NG's und über Google.
Leider fehlt mir der Ansatz. Ich möchte per vba die Namen der möglichen
Empfänger in einem Exchange Server auslesen und damit ein Dopdown füllen.
Ich hab mit recipients "rumgespielt" aber irgendwie bekomme ich das nicht
hin. Kann mir jemand einen Ansatz liefern?

Danke
Jörg

 

[SvenC]

Hi Jörg,

ich suche schon geraume Zeit in NG's und über Google.

The primary language in this newsgroup is english.

Leider fehlt mir der Ansatz. Ich möchte per vba die Namen der möglichen
Empfänger in einem Exchange Server auslesen und damit ein Dopdown füllen.
Ich hab mit recipients "rumgespielt" aber irgendwie bekomme ich das nicht
hin. Kann mir jemand einen Ansatz liefern?

Dim oGAL As Outlook.AddressList
Set oGAL = Application.GetNameSpace("MAPI").GetGlobalAddressList()

Dim oAE As Outlook.AddressEntry
For Each oAE in oGAL.AddressEntries
Debug.Print oAE.Name & " <" & oAE.Address & ">"
Next

 

[Jörg Harnisch]

Hello and Thanks - it works fine

Hi Jörg,


The primary language in this newsgroup is english.


Dim oGAL As Outlook.AddressList
Set oGAL = Application.GetNameSpace("MAPI").GetGlobalAddressList()

Dim oAE As Outlook.AddressEntry
For Each oAE in oGAL.AddressEntries
Debug.Print oAE.Name & " <" & oAE.Address & ">"
Next