Simple Plain Text Messages
This case does not require much elaboration. Just put your message either entirely in the body parameter, either as a text string with CRLF between each line or as a file, or put the header items in the header parameter and the rest of the message in the body parameter. The signature is optional, and if present is treated logically just like a continuation of the message body. No special flags are needed in opflags. Here is an extremely simple example which does not even use on a configuration file:
MAP1 EMAIL’PARAMS
MAP2 EM’TO,S,200
MAP2 EM’FROM,S,50
MAP2 EM’HEADER,S,1000
MAP2 EM’BODY,S,2000
MAP2 EM’SERVER,S,20,"mail.king.net"
MAP2 EM’HOST,S,20,"looseheads.net"
MAP2 EM’ERRMSG,S,100
MAP2 CRLF$,S,2
MAP2 EM’STATUS,F
EM’TO = "louisxvi@versailles.gov" + chr(13) + "robespierre@reignofterror.org"
EM’FROM = "marie@foodnet.org"
CRLF$ = chr(13) + chr(10)
EM’HEADER = "To: Louis" + CRLF$ + "From: Marie" + CRLF$ &
+ "Subject: cake recipes"
EM’BODY = "Dear Louis," + CRLF$ &
+ "What is this ‘cake’ I keep hearing so much about?" &
+ CRLF$ + "Je t’aime, Marie"
XCALL EMAILX,0,"",EM’TO,EM’HEADER,EM’BODY,EM’STATUS,EM’FROM,"","",EM’ERRMSG,SOCKET,SERVER,HOST
IF EM’STATUS # 0 then print "Error #";EM’STATUS;" – ";EM’ERRMSG
