Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Adressen in Outlook express
Autor: fin
Datum: 14.06.08 15:07
hallo paulix1, woher ich den tipp habe, kann ich nicht mehr finden; Verweis auf Outlook setzen; auslesen der kontakte: Private Sub GetFolderContacts(ByRef ctrlOut As ListBox) Dim oOutlook As outlook.Application Dim ns As NameSpace Dim mf As MAPIFolder Dim oItem As Items Dim n As Long Set oOutlook = New outlook.Application Set ns = oOutlook.GetNamespace("MAPI") Set mf = ns.GetDefaultFolder(olFolderContacts) Set oItem = mf.Items oItem.Sort "[Lastname]", True For n = 1 To oItem.Count Call ctrlOut.AddItem(oItem(n).FirstName & vbTab & _ oItem(n).LastName & vbTab & _ oItem(n).MailingAddress & vbTab & _ oItem(n).Email1Address) ctrlOut.AddItem "" Next Set ns = Nothing: Set mf = Nothing: Set oItem = Nothing: Set oOutlook = Nothing End Sub ausgabe: in List1 mit : Call GetFolderContacts(List1) mfg fin

Adressen in Outlook express	1.332	Paulix1	14.06.08 14:16
Re: Adressen in Outlook express	918	fin	14.06.08 15:07
Re: Adressen in Outlook express	877	Paulix1	14.06.08 16:25
Re: Adressen in Outlook express	848	fin	15.06.08 09:03
Re: Adressen in Outlook express	825	Paulix1	15.06.08 19:38
Re: Adressen in Outlook express	823	Paulix1	16.06.08 12:15

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