ref: 76f5318cbd58fbe2bfc8cb51856bfa217c673bb7
dir: /module/smtp.m/
# smtp protocol independent access to an email server.
Smtp : module
{
PATH : con "/dis/lib/smtp.dis";
# all functions return status (-ve when error)
# open a connection with the email server
# requires the email server's name or address or nil if a default server is to be used
# returns (status, errror string)
open: fn(server : string) : (int, string);
# send mail - returns (status, error string)
sendmail: fn(fromwho: string,
towho: list of string,
cc : list of string,
msg: list of string) : (int, string);
# close the connection - returns (status, error string)
close: fn() : (int, string);
};