SMTP Demonstration

Configuration

These definitions should be changed for your system.

create SMTPserver       \ -- addr
Holds the remote SMTP server IP address in network order. Modify this for your own remote SMTP server.

#25 constant SMTPport   \ -- port#
The port number used by SMTP servers.

: Sender$       \ -- addr len
Returns a string containing the sender's email address. Note the use of the angle brackets.

: Receiver$     \ -- addr len
Returns a string containing the receiver's email address. Note the use of the angle brackets.

: Domain$       \ -- addr len
Returns a string containing the sender's domain name. Note the use of the angle brackets.

Sending mail

: SendBody      \ hsock --
Send the body of the message. All errors are handled by THROWing.

: send-demo-email       \ -- ior
This shows how to send eMail via SMTP. The ior is returned 0 for success.