Hallo zusammen!
Mit Hilfe der API möchte ich die Emailfunktionen von David XL in meinen eigenen Programmen verwenden. Klappt auch ganz gut. Bin mittlerweile soweit, dass ich die Kontakte auslesen kann. Auch Emails kann ich versenden. Nur ist es mir leider nicht möglich zu prüfen, ob eine Email korrekt raus ist, oder ob ein Fehler aufgetreten ist.
Unten findet Ihr meinen Quellcode:
(MS Foxpro 9.0)
Klappt einwandfrei bis zu der Stelle, an der ich die Error-Methode aufrufe.
Dann bekomme ich diese Fehlermeldung, OLE Fehlercode: 0x80004005: Unbekannter Fehler
Ebenso kann ich die Methode SatusTime nicht abrufen, selber Fehler.
Hat jemand einen Tipp für mich??
Vielen Dank,
Manuel
oApp = CREATEOBJECT("DVOBJAPILib.DvISEAPI")
oAccount = oApp.Logon("", "", "", "", "", "AUTH")
oArchive = oAccount.GetSpecialArchive(102)
*-- neues Email Object erstellen
oMailItem = oArchive.NEWITEM(2)
*-- Alle evtl. Einstellungen löschen
oMailItem.Recipients.CLEAR()
oMailItem.bcc.CLEAR()
*-- Mail Empfänger
oMailItem.Recipients.ADD(ALLTRIM(THISFORM.mail_receivers))
*-- Mail Blind Copy Empfänger
IF !EMPTY(ALLTRIM(THISFORM.mail_bccs))
oMailItem.bcc.ADD(ALLTRIM(THISFORM.mail_bccs))
ENDIF
*-- Mail Betreff
IF !EMPTY(ALLTRIM(THISFORM.mail_subject))
oMailItem.Subject = ALLTRIM(THISFORM.mail_subject)
ENDIF
*-- Mail Body (nur Text)
oMailItem.Bodytext.plaintext = ALLTRIM(THISFORM.mail_body)
*-- Mail senden
oMailItem.SEND()
WAIT WINDOW "Betreff: " + omailitem.Subject
*---- Ab hier treten die Fehler auf
WAIT WINDOW "Uhrzeit: " + TTOC(omailitem.StatusTime)
WAIT WINDOW "Error: " + ALLTRIM(STR(oMailItem.Error)