Exchange Empfängernamen auslesen

  • Thread starter Thread starter Jörg Harnisch
  • Start date Start date
J

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
 
Hi Jörg,
ich suche schon geraume Zeit in NG's und über Google.
Click to expand...

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?
Click to expand...

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
 
Hello and Thanks - it works fine

SvenC said:
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
Click to expand...
 
Back
Top