program SendEmail;
// Sample script to send an email using a STMP Server 

const
  SMTP_Server   = '';
  SMTP_Port     = ''; 
  SMTP_Username = '';
  SMTP_Password = '';
  From_Email    = '';
  To_Email      = '';
  Subject       = '';
  Body          = '';
  Attachment    = '';
  

procedure OnDocumentComplete(URL : string);
begin         
end;
                         
begin   
  if SendEmail(SMTP_Server, StrToIntDef(SMTP_Port, 0), SMTP_UserName, SMTP_Password, 
               From_Email, To_Email, Subject, Body, Attachment) then
    ShowMessage('Email Sent')
  else            
    ShowMessage('Email not Sent');        
end.