Outlook Kontakte Problem

[Rudolf]

Hallo,
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.

[Wolfgang Ciriack]

Hallo Rudolf,
sieht eigentlich genauso aus wie bei mir. Welches Outlook denn ? Bisher habe ich es mit der 2007er Version noch nicht getestet.

[Rudolf]

Hallo Wolfgang,
ich hab Outlook2003, werde es aber auch auf enderen Rechnern mal testen, vielleicht stimmt nur bei meiner Installatin was nicht.
Wie kann ich eigentlich feststellen, ob Outlook schon offen ist ? Wenn ich immer zum Schluss die quit Mehtode aufrufe, wird ein offenes Outlook anscheinend immer geschlossen, das würde ich gerne verhindern.
Grüsse
Rudolf