var SMTP_port : int := 25
var stream : int
var HOST_ADDRESS : string := Net.HostAddressFromName("www.hotmail.com")
stream := Net.OpenConnection(HOST_ADDRESS,SMTP_port)
if stream <= 0 then
    put "NO GO!"
end if
put ""
put "CONNECTED TO ", HOST_ADDRESS
put ""
%%so we connected to hotmail? now we sent it info ??
%%makes no sense but lets try it anyways,,

put : stream, "HELO local.domain"
delay(5000)  %%should be suffice enough time to get reply no?
if Net.LineAvailable (stream) then
    var line : string
    get : stream, line : *
    put line
end if
%%SHOULD GET A REPLAY FROM SERVER?!?

proc getAndPrintResponse (stream : int)
    var t := Time.Elapsed
    var c : char
    loop
        if Time.Elapsed - t > 5000 then
            put "Timeout waiting for response"
            return
        elsif Net.CharAvailable (stream) then
            loop
                if not Net.CharAvailable (stream) then
                    put ""
                    return
                end if
                get : stream, c
                put c..
            end loop
        end if
    end loop
end getAndPrintResponse

% Wait until an entire line is available on the given stream, then read it into
% the given variable. Note the (optional) debug printing statement.
proc NET_RECV_LINE ( stream : int, var line : string )
    loop
        exit when Net.LineAvailable ( stream )
        delay ( 10 )    % avoid a strict busy-wait
    end loop
    get : stream, line : *
   
    put line
end NET_RECV_LINE


const SMTP_PORT : int := 25
const HOST : string := "smtp.gmail.com"
const HOST_ADDRESS : string := Net.HostAddressFromName ( HOST )

put "Connecting to "+HOST+" at "+HOST_ADDRESS
 
var stream : int := Net.OpenConnection ( HOST_ADDRESS, SMTP_PORT )
 
if stream <= 0 then
    put "Connection failed"
    return
end if

put "Connection succeeded"

var line : string := ""

NET_RECV_LINE ( stream, line )      % 220 mx.google.com ESMTP

put : stream, "HELO my.example.com"

NET_RECV_LINE ( stream, line )      % 250 mx.google.com at your service

put : stream, "MAIL FROM:<YourEmail@gmail.com>"

NET_RECV_LINE ( stream, line )      % 530 5.7.0 Must issue a STARTTLS command first.

proc flush (stream : int)
    var c : char
    loop
        exit when not Net.CharAvailable (stream)
        get : stream, c
        put c ..
    end loop
    put ""
end flush

proc printResponse (stream : int)
    var t := Time.Elapsed
    loop
        if Time.Elapsed - t > 5000 then
            put "Timeout waiting for response"
            return
        elsif Net.CharAvailable (stream) then
            flush (stream)
            return
        end if
    end loop
end printResponse

proc sendAndPrintResponse (stream : int, str : string)
    put str
    put : stream, str
    printResponse (stream)
end sendAndPrintResponse


const SMTP_PORT := 25
const SMTP_SERVER := "smtp.gmail.com"
const SMTP_ADDRESS := Net.HostAddressFromName (SMTP_SERVER)
const END_OF_BODY := "\r\n.\r\n"    %Don't change this

% You must have a valid Gmail account.
const UNAME_64 := "Gmail Username"  % Must be Base64-encoded. Here's an encoder:
const PWORD_64 := "Gmail Password"  % http://www.motobit.com/util/base64-decoder-encoder.asp

% Email Content
const MAIL_FROM := "Sender's email"
const SEND_TO := "Recipient's email"
const SUBJECT_TEXT := "Test Subject"
const BODY_TEXT := "Test Body"


setscreen ("text")


var stream := Net.OpenConnection (SMTP_ADDRESS, SMTP_PORT)
if stream > 0 then
    put "Connection established with ", SMTP_SERVER, " @ ", SMTP_ADDRESS
    printResponse (stream)
else
    put "Connection attempt timed out"
    return
end if


sendAndPrintResponse (stream, "EHLO " + Net.LocalName)

sendAndPrintResponse (stream, "AUTH LOGIN")

sendAndPrintResponse (stream, UNAME_64)

sendAndPrintResponse (stream, PWORD_64)

sendAndPrintResponse (stream, "MAIL FROM: " + "<" + MAIL_FROM + ">")

sendAndPrintResponse (stream, "RCPT TO: " + "<" + SEND_TO + ">")

sendAndPrintResponse (stream, "DATA")

sendAndPrintResponse (stream, "Subject:" + SUBJECT_TEXT + "\n" + BODY_TEXT + END_OF_BODY)