Hallo,
habe mit der u.a. Funktion versucht Kontakte ins Outlook 2003 zu schreiben. Leider sind die Kontakte danach im Outlook nicht zu finden. Auch wenn ich den Folder für die Kontakte manuell wählen lasse, ist nach dem Schreiben nichts im gewählten Kontaktordner zu finden. Hat jemand ein funktionierendes Beispiel zum Testen für mich ?
Grüsse
Rudolf
Hallo Wolfgang,
vielen Dank, das war der Fehler ! jetzt funktionierts. Muss nur noch rausfinden wie ich den richtigen Folder rausbekomme wenn mehrere vorhanden sind.
Grüsse
Rudolf
Hallo Wolfgang,
danke, das hat auch funktioniert, aber bei mir werden die Kontakte nicht im Dialog sondern im Hintergrund eingelesen und dann ins Outlook übertragen. Ich müsste also den Folder angeben beim Speichern.
Grüsse
Rudolf
Das Thema Outlook und Adresen ist für mich zur Zeit auch aktuell. Jedoch habe ich wohl das Problem, dass Datenfelder in OL 2003 und OL 2007 unterschiedlich sind. Kann das jemand bestätigen (habe kein OL 2007) und evtl. auch sagen, wie ich an die Feldnamen rankomme?
Weiterhin versuche ich das Ziel "Synchronisation" zu erreichen. Dazu ist wohl eine eindeutige Outlook-ID notwendig die ich in selber speichern muss und ich muss in der Lage sein OL zu "sagen", dass eine Adresse aktualisiert werden soll....oder so?!?!?!
Hallo Karlheinz,
die Felder dürften gleich sein, bei mir jedenfalls funktioniert noch alles nachdem ich auf Outlook 2003 umgestellt habe.
Ich habe die Infos von JAZZE, kann sie Dir bei Bedarf schicken. JAZZE ist übrigends jetzt frei und hat viele Infos über divers ActiveX Schnittstellen.
Grüsse
Rudolf
Rudolf hat geschrieben:
Ich habe die Infos von JAZZE, kann sie Dir bei Bedarf schicken. JAZZE ist übrigends jetzt frei und hat viele Infos über divers ActiveX Schnittstellen.
Grüsse
Rudolf
Hi,
könntest du bitte die Internetadresse von JAZZE unter LINKS und DEMOs veröffentlichen ?
oNS := oOutlook:GetNamespace( "MAPI" )
oContacts:=oNS:PickFolder()
abbr:=.F.
if oContacts<>NIL
if oContacts:DefaultItemType<>olContactItem
.....
.....
abbr:=.T.
endif
endif
if abbr
oOutlook:destroy()
oDlg:destroy()
return
endif
nOlAnzahl:=oContacts:items:count
for i:=1 to nOlAnzahl
m->oContact := oContacts:items(i)
* in Outlook-ID wird art+nummer+lfdnr gespeichert
cSuch:=DC_XtoC(m->oContact:CustomerID)
** in eigener Datenbank suchen
if empty(cSuch)
** Kein Eintrag, wurde in Outlook angelegt
append blank
.........
else
** Nummer vorhanden, Datum und Zeit vergleichen
ol_dt:=m->oContact:LastModificationTime
ol_date:=stod(substr(ol_dt,1,8))
ol_time:=substr(ol_dt,9,2)+":"+substr(ol_dt,11,2)+":"+substr(ol_dt,13,2)
if outl->aenddat==ol_date
if ol_time==outl->aendtime
** Daten gleich
replace vergleich with "=="
elseif TimeToSec(ol_time)>TimeToSec(outl->aendtime)
** von Outlook übernehmen
replace vergleich with "<-"
else
** nach Outlook schreiben
replace vergleich with "->"
endif
elseif outl->aenddat>ctod(outl->o_datchan)
** nach Outlook schreiben
replace vergleich with "->"
else
** von Outlook übernehmen
replace vergleich with "<-"
endif
endif
.......