mit dem angefügten Code stürzt bei mir Outlook ab. Hat jemand eine Idee wieso ? Die Fehlermeldung sagt mir leider nichts, ist die Standardmeldung mit Debugmöglichkeit und Protokoll an Microsoft senden.
Grüsse
Rudolf
Code: Alles auswählen
function test_outlook()
******************************************************************
put_kontakt("12345",;
"TestName1",;
"TestName1",;
"TestName2",;
"Branche",;
"email@test.com",;
"06642002292",;
"0662459066")
return .t.
function put_kontakt(cID,cFirma,cName1,cName2,cMatchcode,cEmail,cTelefon,cFax,cBranche)
******************************************************************
local aSel ,aRepl := {},lSilent := .f.
local oOutlook ,oNS,oContacts,oNew
default cMatchcode to upper(substr(cFirma,1,10))
default cBranche to ""
cID := var2char(cID)
oOutlook := CreateObject( "Outlook.Application" )
IF NIL == oOutlook
wmeld("Outlook ActiveX Verbindung konnte nicht hergestellt werden",4)
return .f.
ENDIF
oNS := oOutlook:GetNamespace( "MAPI" )
oContacts := oNS:getDefaultFolder( olFolderContacts )
if oContacts<>NIL
if oContacts:DefaultItemType<>olContactItem
wmeld("Kein Standardfolder für Kontakte im Outlook gefunden",4)
oOutlook:quit()
oOutlook:destroy()
oOutlook := NIL
oContacts := NIL
return .f.
endif
if (oNew:=oContacts:Items:Add(olContactItem))<>NIL
oNew:CompanyName:=alltrim(cFirma)
oNew:firstName:=alltrim(cName2)
oNew:lastName:=alltrim(cName1)
oNew:fullname:=alltrim(cName1)+ " " + alltrim(cName2)
oNew:Email1Address:=alltrim(cEmail)
oNew:nickname:=alltrim(cMatchcode)
oNew:FileAs:=alltrim(cFirma)
oNew:Department:=alltrim(cBranche)
oNew:BusinessTelephoneNumber:=alltrim(cTelefon)
oNew:BusinessFaxNumber:=alltrim(cFax)
oNew:CustomerID:=cID
* ...
oNew:save()
endif
oContacts := NIL
endif
*oOutlook:quit()
oOutlook:destroy()
oOutlook := NIL
piep()
return .t.