Einlesen von Outlook-Kontakten mit VFP

Folgender Basiscode, der natürlich noch ausgestaltet werden kann, liest Outlook-Kontakte mit VFP ein:

Local fehler,myNameSpace,oContact,oContact

fehler=.t.
TRY
TRY
oOutlook = GETOBJECT(,“Outlook.Application“)
CATCH
oOutlook = CREATEOBJECT(„Outlook.Application“)
ENDTRY
CATCH && leider kein Outlook
fehler=.t.
ENDTRY

&& zusätzliche versionsabhängige Abfrage, 12 steht 2007, 11 etc für ältere, wenn man möchte
&& falls ein Problem mit der Standard-AppID gegeben ist.

IF fehler=.t.
fehler=.f.   && neuer Begin
TRY
TRY
oOutlook = GETOBJECT(,“Outlook.Application.12″)
CATCH
oOutlook = CREATEOBJECT(„Outlook.Application.12“)
ENDTRY
CATCH && leider kein Outlook
fehler=.t.
ENDTRY
ENDIF

IF fehler=.t.
MESSAGEBOX(‚Outlook ist nicht installiert oder wurde nicht erkannt‘,64,’Fehler‘)
return
ENDIF

myNameSpace =  oOutlook.GetNamespace(„mapi“)
oContact = myNameSpace.GetDefaultFolder[10]

For Each iContact In Thisform.oContact.Items
IF iContact.class=40 && 40=olContact
IF iContact.isConflict=.f.    && Falls Konflikt-Tag für Outlook-Eintrag gesetzt ist
Ihr Code  = iContact.firstname
= iContact.lastname
= iContact.CompanyName
= iContact.email1address
= iContact.HomeTelephoneNumber
= iContact.BusinessTelephoneNumber
= iContact.BusinessTelephoneNumber
= iContact.BusinessAddressCity
= iContact.BusinessAddressStreet
= iContact.BusinessAddressCity
= iContact.BusinessAddressCountry
= iContact.BusinessAddressPostalCode
= iContact.BusinessAddressState
= iContact.HomeAddressStreet
= iContact.HomeAddressCity
= iContact.HomeAddressCountry
= iContact.HomeAddressPostalCode
= iContact.HomeAddressState
= iContact.BusinessFaxNumber
= iContact.webpage
= iContact.birthday
ELSE
MESSAGEBOX(‚Konflikt: ‚+iContact.lastname,64,’Konflikt bei Adresse gefunden‘)
ENDIF
ENDIF
ENDFOR
Release oOutlook

Werbung

Aktuelle Top Aktionen bei Acer, HP, Lenovo, Bitdefender & Co

Angebote bei Acer
» Großer Acer Herbst Sale:Bis zu 200 Euro Rabatt auf viele Acer Notebooks, Convertibles, Gaming Notebooks und PC, Monitore und mehr bei den Acer Herbst Angeboten bis 02.10.2018


Angebote bei HP
» HP Back To School 2018: Viele HP Notebooks, Convertibles und Drucker im Angebot


Angebote bei Lenovo
» Lenovo Top Wochenangebote: Heiße ThinkPad und IdeaPad Wochenangebote mit großer Auswahl und dicken Rabatten


Weitere Möglichkeiten
» Top bei Otto: Sehr gute HP Notebook Angebote, teils mit Extras wie 4 Jahre Garantie und mehr
» Mehr Aktionen in der Übersicht: Aktuelle HP Angebote und mehr auf einem Blick


Aktuelle Bitdefender Aktionen:
» Top Angebot: Bitdefender "The Darkest Minds Promotion" mit kostenlosem Gewinnspiel und Angebot Total Security 2019 MultiDevice nur 39,99€ statt 79,99 Euro (50% Rabatt)
» Bitdefender Sommer-Aktion Version 2019 mit 15 Euro Rabatt auf Bitdefender Antivirus Plus 2019 (3 Geräte und 1 Jahr), 30 Euro Rabatt auf Bitdefender Internet Security 2019 (3 Geräte und 1 Jahr) und 40 Euro Rabatt auf Bitdefender Total Security Multi Device 2019 (5 Geräte und 1 Jahr)
» Bitdefender +1 Jahr dazu-Aktion
» Top für neue PCs! Bitdefender AntiVirus Plus Lebenslang Edition: 5 Jahre Schutz für nur für nur 89,95
Weitere aktuelle Bitdefender Angebote » Alle Bitdefender Angebote auf einem Blick

Werbung


Verwandte Themen:


Sorry! Unser Kommentarfunktion ist vorübergehend geschlossen.