Ändere den Code wie folgt:
Code: Alles auswählen
If !empty( cAdress )
oMail:Recipients:Add( cAdress)
endif
Moderator: Moderatoren
Code: Alles auswählen
If !empty( cAdress )
oMail:Recipients:Add( cAdress)
endif
Code: Alles auswählen
#include "activex.ch"
#pragma library( "ascom10.lib" )
Function MailWithOutlook( cAdress, cSubject, cBody, cAttach)
Local oMail
Local oOutlook
Local oMailItem := NIL
cAdress := IIF( cAdress == NIL,"", cAdress)
cSubject := IIF( cBody == NIL ,"", cSubject)
cBody := IIF (cBody == NIL, "", cBody )
oOutlook := CreateObject("Outlook.Application")
IF Empty( oOutlook )
MsgBox( "Outlook nicht installiert" )
RETURN ( NIL )
ENDIF
oMail := oOutlook:CreateItem(0)
oMail:Recipients:Add( cAdress)
oMail:BCC := cBCC
oMail:CC := cCC
ENDIF
oMail:Subject := cSubject
oMail:body := cBody
if ! emty( cAttach )
oMail:Attachments:Add(cAttach)
ENDIF
oMail:Send()
oMail:= NIL
oOutLook:quit()
oOutlook:destroy()
Return ( NIL )
Code: Alles auswählen
Function MailWithOutlook( cAdress, cSubject, cBody, cAttach, cCC, cBCC)
DEFAULT cCC to ""
DEFAULT cBCC to ""
..
Code: Alles auswählen
oMail:= oOutlook:CreateItem(0)
IF acAdress <> nil
FOR i:=1 TO len(acAdress )
oMail:Recipients:Add( acAdress[i] )
NEXT
ELSEIF !empt( acBCC )
oMail:BCC := cBCC
ELSEIF !empt( acCC )
oMail:CC := cCC
ENDIF
Code: Alles auswählen
oMail:Send()
oMail:= NIL
oOutLook:quit()
oOutlook:destroy()
Code: Alles auswählen
oOutLook:quit()
oOutlook:destroy()