/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Hente adresser fra Outlook under Win2k
Fra : Thomas Petersen


Dato : 31-10-02 10:48

Hejsa,
Jeg sidder og roder med at få hentet adressekartoteket fra Outlook under
Windows 2000 og Windows XP, men hvordan gør jeg?
Jeg har fundet ud af at gøre det under Windows 98, og der bruger jeg bare
MAPI, men det kan man vist ikke under Windows 2000 / XP. Under Windows 98,
ser det sådan her ud:

Set session = CreateObject("MAPI.session")
session.Logon ("Microsoft Exchange-indstillinger")
Set adresselister = session.AddressLists
For Each adresseliste In adresselister
Set adresser = adresseliste.AddressEntries
For Each adresse In adresser
tmp_navn = adresse.Fields(CdoPR_DISPLAY_NAME)
tmp_adresse = adresse.Fields(CdoPR_BUSINESS_ADDRESS_STREET)
tmp_postnr = adresse.Fields(CdoPR_BUSINESS_POSTAL_CODE)
tmp_by = adresse.Fields(CdoPR_BUSINESS_CITY)
tmp_omrade = adresse.Fields(CdoPR_BUSINESS_STATE_OR_PROVINCE)
tmp_land = adresse.Fields(CdoPR_BUSINESS_COUNTRY)
tmp_telefon = adresse.Fields(CdoPR_BUSINESS_TELEPHONE_NUMBER)
tmp_telefax = adresse.Fields(CdoPR_BUSINESS_FAX_NUMBER)
tmp_mobil = adresse.Fields(CdoPR_CELLULAR_TELEPHONE_NUMBER)
tmp_email = adresse.Fields(CdoPR_EMAIL_ADDRESS)
Next
Next

Men hvordan gør jeg tilsvarende under Windows 2000 / XP?

--

Med venlig hilsen
Thomas Petersen




 
 
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste