ich benutze unter anderem MS Outlook, um Mails zu versenden. Hier ein Auszug:
Code: Alles auswählen
#define olMailItem 0
FUNCTION cl_SendMailToOutlook( cBetreff, cBody, acFile, acEmail, lDisplay )
...
oOutlook := CreateObject( "Outlook.Application" )
IF EMPTY(oOutlook)
...
RETURN .F.
ENDIF
...
oMessage := oOutlook:CreateItem( olMailItem )
oMessage:subject := cBetreff // Dies ist Zeile 64
oMessage:Body := cBody
IF LEN(acEmail) > 0
FOR i := 1 TO Len(acEmail)
oMessage:Recipients:Add(acEmail[i])
NEXT
ENDIF
IF !EMPTY(acFile)
IF LEN(acFile) > 0
FOR i := 1 TO Len(acFile)
oMessage:Attachments:Add(acFile[i])
NEXT
ENDIF
ENDIF
// Senden oder Anzeigen
IF lDisplay
oMessage:Display(.T.)
ELSE
...
oMessage:Send()
...
ENDIF
oMessage := NIL
oOutlook:destroy()
RETURN lRet
Der Inhalt der Variablen wird im Programm geprüft und ist ok!FATAL ERROR LOG
No continue after this Error!
SYS Thread-ID: 392
Module: EXE
Error Codes: EH: 10 Sub: 0(0) OS: 0 XPP: 0
Call Stack of Thread 1 (392):
CL_SENDMAILTOOUTLOOK(64)
CL_MAILSEND(199)
CL_MAIL(1279)
CL_MAILSUPPORT(1804)
(B)HELPMENU@0028(511)
GB_START(279)
GB_MAIN(132)
MAIN(71)
Call Stack of Thread 2 (596):
Call Stack of Thread 4 (1196):
File: D:\Gb\GB.EXE
TimeStamp: 20090417 09:45
End of FATAL ERROR LOG.
Kann mir jemand erklären, um was für einen Fehler es sich dabei handelt ?
Grüße
Heinz