Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Outlook ... alle Felder eines Kontaktes lesen
Autor: UR
Datum: 26.07.04 19:41
Irgenwie müssen da doch nich mehr Felder drinsein. Weiss jemand wie die heissen? Mein code .... Dim objOutlook As Outlook.Application = Nothing Dim objFolder As Outlook.MAPIFolder = Nothing Dim objNamespace As Outlook.NameSpace = Nothing Dim objItems As Outlook.Items = Nothing objOutlook = New Outlook.Application objNamespace = objOutlook.GetNamespace("MAPI") Dim item As Outlook.ContactItem Dim rv As New DataSet rv.DataSetName = "Contacts" rv.Tables.Add("Contact") rv.Tables(0).Columns.Add("FirstName") rv.Tables(0).Columns.Add("LastName") rv.Tables(0).Columns.Add("CompanyName") rv.Tables(0).Columns.Add("Email") rv.Tables(0).Columns.Add("HomePhone") rv.Tables(0).Columns.Add("WorkPhone") Try objFolder = objNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts) Message.Text = (objFolder.Items.Count.ToString & " Kontakte gefunden.") Dim i As Integer For i = 1 To objFolder.Items.Count item = CType(objFolder.Items.Item(i), Outlook.ContactItem) rv.Tables(0).Rows.Add(New Object() {item.FirstName, item.LastName, item.CompanyName, item.Email1Address, item.HomeTelephoneNumber, item.BusinessTelephoneNumber}) Next i Sector Twelve, or to Infinity and Beyond, whichever comes first.!

Outlook ... alle Felder eines Kontaktes lesen

709

UR

26.07.04 19:41

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