title image


Smiley Re: auf Adressbuch von outlook zugreifen
Sub AdressEntryTest() Dim i As Integer Dim ol, olns, abooks, Kontakte Set ol = CreateObject("outlook.application") Set olns = ol.GetNamespace("MAPI") Set Kontakte = olns.AddressLists("Kontakte").AddressEntries ' Schleife über alle Kontakte For i = 1 To Kontakte.Count If Kontakte(i).DisplayType = olPrivateDistList Then ' Kontakte in die Liste links usrKontakte.lstKontakte.AddItem Kontakte(i) End If Next i ' Userform anzeigen usrKontakte.ShowEnd SubDu brauchst dazu noch eine userform mit einer Listbox mit dem Namen lstkontakte

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: