Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Outlook Kontakte anzeigen
Autor: Bollerkohl
Datum: 26.02.03 14:47
Hallo, kann mir jemand helfen, ich möchte die Kontakte aus Outlook 2002 auslesen, bearbeiten und dort wieder speichern. Das auslesen habe ich aber wie kann ich die Outlookfelder in z.B. txt_name darstellen? Hier meine Form des auslesens. <CODE> 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 Set olResItems = olItems 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 2002 aufgetreten!", _ vbOKOnly + vbCritical, Title:=Me.Caption Resume byebye End Sub </CODE> Die Felder sollen als Adressmaske angezeigt werden. Bin Laie und Danke für jeden Tipp! Gruß Martin

Outlook Kontakte anzeigen

64

Bollerkohl

26.02.03 14:47

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen