![]() |
Tipp 0191
|
Outlook 2000 - Kontakte auflisten
|
 |
|
Autor/Einsender: Datum: |
|
Angie 27.01.2002 |
|
Entwicklungsumgebung: |
|
VB 5 |
|
|
Das Adressbuch in Outlook 2000 wird durch den Kontakte-Ordner repräsentiert. In diesem Beispiel wird über die
GetDefaultFolder-Eigenschaft des NameSpace-Objekts MAPI (Messaging Application Programming Interface)
alle im Adressbuch vorhandenen Kontakte in einer ListBox aufgelistet.
|
Beim Zugriff auf den Kontakte-Ordner muss zwischen "normalen Einträgen" (ContactItem-Objekte) und Verteilerlisten
(DistListItem-Objekte) unterschieden werden, da sie sich in den Eigenschaften unterscheiden. In diesem Beispiel wird die
Restrict-Methode verwendet, um die aufzulistenden Elemente der Items-Eigenschaft auf die vorhandenen Kontakte einzugrenzen.
|
|
|
Option Explicit
Private Sub cmdKontakteAuflisten_Click()
Dim olAppl As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olMAPIFolder As Outlook.MAPIFolder
Dim olItems As Outlook.Items
Dim olResItems As Outlook.Items
Dim olContact As Outlook.ContactItem
Dim sFilter As String
On Error GoTo errMsgOL
Set olAppl = CreateObject("Outlook.Application")
Set olNS = olAppl.GetNamespace("MAPI")
Set olMAPIFolder = olNS.GetDefaultFolder(olFolderContacts)
Set olItems = olMAPIFolder.Items
sFilter = "[MessageClass] = 'IPM.Contact'"
Set olResItems = olItems.Restrict(sFilter)
List1.Clear
For Each olContact In olResItems
List1.AddItem olContact
Next olContact
byebye:
Set olResItems = Nothing
Set olItems = Nothing
Set olMAPIFolder = Nothing
Set olNS = Nothing
Set olAppl = Nothing
Exit Sub
errMsgOL:
MsgBox "Es ist ein Fehler beim Zugriff auf Outlook " & _
aufgetreten!", vbCritical
Resume byebye
End Sub
|
|
|
|
Um diesen Tipp ausführen zu können, muss Outlook installiert sein und zur Entwurfszeit die Microsoft Outlook x.0 Object Library in das
Projekt eingebunden werden.
|
Bei Late Binding wird zur Entwurfszeit kein Verweis auf die Objektbibliothek in das Projekt eingebunden.
Alle verwendeten Objekte werden mit dem Variablentyp Object definiert. Ggf. verwendete anwendungsspezifische Konstanten
müssen mit dem entsprechenden numerischen Äquivalent der Konstante ersetzt werden, könnten aber auch mit der Const-Anweisung
deklariert werden. Die Verwendung von Konstanten erleichtert das Dokumentieren und Modifizieren Ihrer Programme, und trägt auch zur besseren
Lesbarkeit des Codes bei.
|
|
|
|
Microsoft Links zum Thema |
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (2,4 kB)
|
Downloads bisher: [ 2132 ]
|
|
|