21 lines
597 B
Plaintext
21 lines
597 B
Plaintext
{$X+,B-,V-} {essential compiler directives}
|
|
|
|
Program xpmail;
|
|
|
|
{ Example program for the pmail unit / NwTP 0.6 API. (c) 1993,1994, R.Spronk }
|
|
|
|
uses nwMisc,nwBindry,pmail;
|
|
|
|
CONST MsgBodyTXTfile='a:testmsg.txt';
|
|
|
|
{ Simple program illustrating the use of the SendMailFile call. }
|
|
begin
|
|
IF NOT PmailInstalled
|
|
then begin
|
|
writeln('PMail not installed on the current server.');
|
|
halt(1);
|
|
end;
|
|
IF NOT SendMailFile('SUPERVISOR',OT_USER,
|
|
'testmessage',MsgBodyTXTfile)
|
|
then writeln('Error sending file as mail. err# :',HexStr(pmail.result,4));
|
|
end. |