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.
: 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.