project BLF > class Mail > method SendHandler
Description
This method handles the messages to be send to the mail server.
Parameters
icString | input | character | This is the string send to the smtp server, this contains SMTP commands |
iiNewState | input | integer | the value of the state: to keep the sequence in which the smtp messages are sent to the smtp server. |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
program code (program1/mail.p)
assign viStep = iinewState.
if icstring = ?
then do:
assign oiReturnStatus = -98.
return.
end.
if icString = "[skip-line]":U
then assign icstring = "":U.
assign icString = icstring + chr(13) + chr(10).
set-size(vmbuffer) = 0.
SET-SIZE(vmbuffer) = LENGTH(icstring, "RAW":U) + 1.
PUT-STRING(vmbuffer,1) = icstring.
if vhSocket:WRITE(vmbuffer, 1, GET-SIZE(vmbuffer) - 1)
then oiReturnstatus = 0.
else oiReturnstatus = -98.
/* debugging */
publish "Logging.BusinessCode"
("packet out : ":U + icstring + "Step : ":U + string(viStep) + chr(10) + (if oiReturnStatus = 0 then "succeeded":U else "failed":U), "").
finally:
SET-SIZE(vmbuffer) = 0.
end finally.