Document Scheduler Email Log
Date : 091213
Time : 10:05:42.12
Gateway = G01
WEOL 1
+OK CRLF will be appended to each print
CONNECT smtp1.sympatico.ca MAIL
+OK Connected to smtp1.sympatico.ca on port 25



! *** Connect to SMTP server (Gateway command format is: 'CONNECT smtp.server.name MAIL')

363	READ (40,DATA),EXCP=UnexpectedEOF			! Read SMTP server name
364	CMD$ = STRIP(DATA$)					! Set command string
365	GOSUB CONTROL						! Go to control subroutine
366	IF SUB(RESULT$,1,1) NE "+" THEN				! Check result string
367		GOTO QUIT
368	ENDIF
369
370	GOSUB RECV						! To to recv subroutine
371	IF SUB(RESULT$,1,3) NE "220" THEN			! Check result string
372		GOTO QUIT
373	ENDIF




!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Recv:
590	Input (20) RESULT$					! Get the result string
591
592	SELECT CASE DISPLAY$					! Check display flag
593	CASE "YES"						! If YES,
594	  Print (SF);RESULT$;(SB)				! Echo result to screen
595	CASE "WEB"						! If WEB,
596	  Print RESULT$;"<BR>"					! Echo result in HTML
597	CASE "SPL"
598	  Print (LP) RESULT$  
599	ENDSELECT
600     PRINT (EMAILLOG) RESULT$
601	RETURN