ref: 566c0d9f7779de4fefb4a28117df43a003eb4a9d
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);
};