Below is the test program followed by the new trace and the screen output (server and email addresses changed to protect the innocent).
0010 ! test-email
0020 begin
0030 try_mail=0
0040 server$="server-name",port$="25",timeout=10
0050 username$="",password$=""
0060 from_addr$="facts@xxx.com"
0070 to_addr$="ken@dpiserve.com"
0080 subject$="Test Subject"
0090 body$="Test message."
0100 body$+=$0D0A0D0A$+"Server: "+server$+$0D0A$+"Port: "+port$
0110 if len(username$) then body$+=$0D0A$+"User: "+username$+tbl(nul(password$)," / "+dim(len(password$),"*"),"")
0120 print "Email Test",'LF',"=========="
0130 print "Server:",@(15),server$
0140 print "Port:",@(15),port$
0150 print "User:",@(15),username$,tbl(nul(password$)," / "+dim(len(password$),"*"),"")
0160 print "Timeout: ",@(15),str(timeout)
0170 print "From: ",@(15),from_addr$
0180 print "To: ",@(15),to_addr$
0190 print 'LF',"Subject: ",'LF',subject$
0200 print 'LF',"Body:",'LF',body$
0210 print 'LF',"Calling *web/email"; wait 0
0220 ok=0; call "*web/email",err=*next,from_addr$,"",to_addr$,"","","(*web/email) "+subject$,body$,"","",server$+";"+port$+tbl(nul(username$),";"+username$+";"+password$,""),timeout,-1,"",1,err_msg$,"",""; ok=1
0230 print 'LF',"Result:",'LF',tbl(ok,err_msg$,"Email sent.")
0240 if try_mail and not(ok) then {
0250 print 'LF',"Calling *web/mail"; wait 0
0260 ok=0; call "*web/mail",err=*next,server$+";"+port$,(from_addr$),(to_addr$),"(*web/mail) "+subject$,(body$),err_msg$; ok=1
0270 print 'LF',"Result:",'LF',tbl(ok,err_msg$,"Email sent.")
0280 }
0290 end
Trace with %trace_email=1
F:\infor\facts93\mods\TEST-EMAIL
0010 ! test-email
0020 begin
0030 try_mail=0
0040 server$="server-name",port$="25",timeout=10
0050 username$="",password$=""
0060 from_addr$="facts@xxx.com"
0070 to_addr$="ken@dpiserve.com"
0080 subject$="Test Subject"
0090 body$="Test message."
0100 body$+=$0D0A0D0A$+"Server: "+server$+$0D0A$+"Port: "+port$
0110 if len(username$) then body$+=$0D0A$+"User: "+username$+tbl(nul(password$)," / "+dim(len(password$),"*"),"")
0120 print "Email Test",'LF',"=========="
0130 print "Server:",@(15),server$
0140 print "Port:",@(15),port$
0150 print "User:",@(15),username$,tbl(nul(password$)," / "+dim(len(password$),"*"),"")
0160 print "Timeout: ",@(15),str(timeout)
0170 print "From: ",@(15),from_addr$
0180 print "To: ",@(15),to_addr$
0190 print 'LF',"Subject: ",'LF',subject$
0200 print 'LF',"Body:",'LF',body$
0210 print 'LF',"Calling *web/email"; wait 0
0220 ok=0; call "*web/email",err=*next,from_addr$,"",to_addr$,"","","(*web/email) "+subject$,body$,"","",server$+";"+port$+tbl(nul(username$),";"+username$+";"+password$,""),timeout,-1,"",1,err_msg$,"",""; ok=1
Call:*web/email [Pgm=TEST-EMAIL Stno=00220]
Error:17 Program=F:\infor\facts93\pvx\lib\_web\email@133 System errno=2
Error:17 Program=F:\infor\facts93\pvx\lib\_web\email@134 System errno=2
Error:17 Program=F:\infor\facts93\pvx\lib\_web\email@135 System errno=2
Error:17 Program=F:\infor\facts93\pvx\lib\_web\email@136 System errno=2
Error:17 Program=F:\infor\facts93\pvx\lib\_web\email@137 System errno=2
*web/email: Parsing email arguments
Open file(32767):F:\infor\facts93\pvx\lib\_web\webserv.mim [Pgm=*web/email Stno=00147]
Call:*web/address;BreakDown [Pgm=*web/email Stno=00246]
Call:*web/address;BreakDown [Pgm=*web/email Stno=00283]
*web/email: Creating email
Open file(32766):F:\infor\facts93\pvx\lib\_web\outbox\new [Pgm=*web/email Stno=01047]
Close file(32766):*web/outbox/new [Pgm=*web/email Stno=01047]
Error:26 Program=F:\infor\facts93\pvx\lib\_web\email@991 System errno=13
Tried to open F:\infor\facts93\pvx\lib\_web\outbox\new\24593497509628c40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\_web\outbox\new\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\mods\_web\outbox\new\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\mods\prog\_web\outbox\new\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\prog\_web\outbox\new\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\hotkeys\_web\outbox\new\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\link\_web\outbox\new\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\mods\prog\CS\_web\outbox\new\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\prog\CS\_web\outbox\new\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\prog\_w\_web\outbox\new\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Error:12 Program=F:\infor\facts93\pvx\lib\_web\email@996 System errno=2
Error:14 Program=F:\infor\facts93\pvx\lib\_web\email@1004 System errno=2
Error:26 Program=F:\infor\facts93\pvx\lib\_web\email@991 System errno=2
Tried to open F:\infor\facts93\pvx\lib\_web\outbox\24593497509628c40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\_web\outbox\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\mods\_web\outbox\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\mods\prog\_web\outbox\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\prog\_web\outbox\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\hotkeys\_web\outbox\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\link\_web\outbox\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\mods\prog\CS\_web\outbox\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\prog\CS\_web\outbox\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Tried to open F:\infor\facts93\prog\_w\_web\outbox\24593497509628C40211.eml and failed [Pgm=*web/email Stno=00996]
Error:12 Program=F:\infor\facts93\pvx\lib\_web\email@996 System errno=2
Error:14 Program=F:\infor\facts93\pvx\lib\_web\email@1004 System errno=2
Open file(32766):F:\infor\facts93\pvx\lib\_web\outbox\new\24593497509628c40211.eml [Pgm=*web/email Stno=00534]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00565]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00566]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00578]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00579]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00586]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00602]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00605]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00606]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00612]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00613]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00614]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00629]
Write issued to *web/outbox/new/24593497509628C40211.eml (32766) [Pgm=*web/email Stno=00653]
Close file(32766):*web/outbox/new/24593497509628C40211.eml [Pgm=*web/email Stno=00840]
*web/email: Sending emails to SMTP Server
Call:*web/smtp [Pgm=*web/email Stno=00844]
Open file(32766):F:\infor\facts93\pvx\lib\_web\outbox [Pgm=*web/smtp Stno=00523]
Close file(32766):*web/outbox [Pgm=*web/smtp Stno=00527]
Open file(32766):F:\infor\facts93\pvx\lib\_web\outbox\sent [Pgm=*web/smtp Stno=00523]
Close file(32766):*web/outbox/sent [Pgm=*web/smtp Stno=00527]
Open file(32766):F:\infor\facts93\pvx\lib\_web\outbox\sent [Pgm=*web/smtp Stno=00502]
Close file(32766):*web/outbox/sent [Pgm=*web/smtp Stno=00507]
Open file(32766):*memory* [Pgm=*web/smtp Stno=00081]
Open file(32765):F:\infor\facts93\pvx\lib\_web\outbox\new\24593497509628c40211.eml [Pgm=*web/smtp Stno=00087]
Close file(32765):F:\infor\facts93\pvx\lib\_web\outbox\new\24593497509628c40211.eml [Pgm=*web/smtp Stno=00092]
Write issued to *memory* (32766) [Pgm=*web/smtp Stno=00094]
Open file(32765):[tcp];0 [Pgm=*web/smtp Stno=00351]
Close file(32765):[tcp];0 [Pgm=*web/smtp Stno=00354]
*web/smtp: Try to connect to SMTP server
Error:0 Program=F:\infor\facts93\pvx\lib\_web\smtp@117 System errno=13
*web/smtp: [ERROR] Connect to SMTP Server: server-name;25 timed out. (0/117).
Close file(32766):*memory* [Pgm=*web/smtp Stno=00316]
Error:0 Program=F:\infor\facts93\pvx\lib\_web\email@844 System errno=13
*web/email: [ERROR] Sending to SMTP Server Failed: (0): Connect to SMTP Server: server-name;25 timed out. (0/117).
Close file(32767):*web/webserv.mim [Pgm=*web/email Stno=00901]
Error:0 Program=F:\infor\facts93\mods\TEST-EMAIL@220 System errno=2
0230 print 'LF',"Result:",'LF',tbl(ok,err_msg$,"Email sent.")
0240 if try_mail and not(ok) then {
0280 }
0290 end
Screen output:
Email Test
==========
Server: server-name
Port: 25
User:
Timeout: 10
From: facts@xxx.com
To: ken@dpiserve.com
Subject:
Test Subject
Body:
Test message.
Server: server-name
Port: 25
Calling *web/email
Result:
Sending to SMTP Server Failed: (0): Connect to SMTP Server: server-name;25 ti
med out. (0/117).