KB#00798-Sample Program to Send Mail Messages through PRO/5 Socket

Title:

Sample Program to Send Mail Messages through PRO/5 Socket

Description:

0001 REM YOU CAN CALL THIS PROGRAM AS: 
0002 REM CALL"MAIL.BBX","me@here.com","you@there.com","How to send email","this is great" 
0005 ENTER TO$,FROM$,SUBJECT$,MESSAGE$ 
0010 LET N0=UNT; OPEN (N0,MODE="host=mail.there.com,port=25")"N0" 
0015 REM "N0" IS A TCP SOCKET ALIAS (REV 2.20) 
0020 LET O$="",I$="220"; GOSUB MAIL 
0030 LET O$="HELO",I$="250"; GOSUB MAIL 
0035 REM FOR MORE INFORMATION ON MAIL COMMANDS CHECK OUT RFC821 
0040 LET O$="MAIL From:<"+FROM$+">",I$="250"; GOSUB MAIL 
0050 LET O$="RCPT To:<"+TO$+">",I$="250"; GOSUB MAIL 
0070 LET O$="DATA",I$="354"; GOSUB MAIL 
0080 LET O$="Subject: "+SUBJECT$+" ",I$=""; GOSUB WMAIL 
0090 LET O$="From: "+FROM$,I$=""; GOSUB WMAIL 
0100 LET O$="To: "+TO$,I$=""; GOSUB WMAIL 
0110 LET O$="Content-Type: text/html; charset=us-ascii",I$=""; GOSUB WMAIL 
0130 LET O$=$0A$,I$=""; GOSUB WMAIL 
0150 LET O$=MESSAGE$,I$=""; GOSUB WMAIL 
0240 LET O$=".",I$="250"; GOSUB WMAIL 
0250 LET O$="QUIT",I$="221"; GOSUB WMAIL 
0270 EXIT 
0280 MAIL: 
0290 IF LEN(O$) THEN LET OUT$=O$+$0D0A$; WRITE RECORD(N0)OUT$ 
0310 READ (N0,TIM=3,ERR=0320)IN$; READ (N0,TIM=3,ERR=0320)X$; LET IN$=IN$+X$ 
0321 IF LEN(I$) AND POS(I$=IN$)<>1 THEN PRINT (N0)'CR','LF'; GOTO 0300 
0330 RETURN 
0400 REM 
0480 WMAIL: 
0490 IF LEN(O$) THEN LET OUT$=O$+$0D0A$; WRITE RECORD(N0)OUT$ 
0530 RETURN 

Last Modified: 02/23/2004 Product: PRO/5

BASIS structures five components of their technology into the BBx Generations.