ref: 71292834bbafcf6bc409cfd7691f9e6650df025b
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);
};