{$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.