Email Demo

From QB64 Wiki
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
IMPORTANT: This is a QB64 only program that requires the TCP/IP upgrade.
YOU MUST CHANGE the _OPENCLIENT statement TO YOUR ISP'S SMTP SERVER ADDRESS


c = _OPENCLIENT("tcp/ip:25:YOUR ISP SMTP SERVER ADDRESS") IF c = 0 THEN PRINT "Couldn't connect to SMTP server!": SYSTEM crlf$ = CHR$(13) + CHR$(10) ' carriage return + line feed ASCII characters a$ = "HELO localhost" + crlf$ PUT #c, , a$: SLEEP 2 GET #c, , b$: PRINT b$; ' send command, wait & print server reply a$ = "MAIL FROM:<anonymous@verizon.net>" + crlf$ PUT #c, , a$: SLEEP 2: GET #c, , b$: PRINT b$; ' send command, wait & print server reply a$ = "RCPT TO:<galleondragon@gmail.com>" + crlf$ PUT #c, , a$: SLEEP 2: GET #c, , b$: PRINT b$; ' send command, wait & print server reply a$ = "DATA" + crlf$ PUT #c, , a$: SLEEP 2: GET #c, , b$: PRINT b$; ' send command, wait & print server reply a$ = "" ' assemble communication string a$ = a$ + "From: Paul <anonymous@verizon.net>" + crlf$ ' your email address a$ = a$ + "To: Galleon <galleondragon@gmail.com>" + crlf$ ' send email to address a$ = a$ + "Subject: My first QB64 email" + crlf$ a$ = a$ + crlf$ ' space a$ = a$ + "Please reply to let me know if this works!" + crlf$ ' message a$ = a$ + "Thanks for developing QB64!" + crlf$ a$ = a$ + "." + crlf$ PUT #c, , a$: SLEEP 2 GET #c, , b$: PRINT b$; ' send message, wait & print server reply a$ = "QUIT" + crlf$ PUT #c, , a$: SLEEP 2: GET #c, , b$: PRINT b$; ' end message, wait & print server reply CLOSE c PRINT "Send Email request complete." END

' Notes:' Your SMTP address is something like "mail.myisp.com" or "outgoing.verizon.net". Crlf ASCII characters 13 + 10 signal the end of a message or command line. Some IP servers may block your outgoing email if they suspect that messages are SPAM! The block may be for a few hours! Keep that in mind when using this demo.


See also:



Navigation:
Keyword Reference - Alphabetical
Keyword Reference - By usage
Main WIKI Page