program Send_Test_Email;

// Sample script to test sending an email.

procedure OnDocumentComplete(URL : string);
begin         
end;
                         
begin  
    ShowMessage('SMTP Server: '+ GetParam('smtp_server') + #13 +
                'SMTP Port: ' + GetParam('smtp_port') + #13 +
                'User name: '+ GetParam('smtp_username') + #13 +
                'Password: '+ GetParam('smtp_password') + #13 + 
                'From: '+ GetParam('from_email') + #13 + 
                'To: ' + GetParam('email_recipient') + #13); 
                                 
    if SendEmail(GetParam('smtp_server'), StrToIntDef(GetParam('smtp_port'), 0), GetParam('smtp_username'), GetParam('smtp_password'), 
                        GetParam('from_email'), GetParam('email_recipient'), 
                        'test email', 'Sending test email', '') then
      ShowMessage('Email sent successfully.')
    else
      ShowMessage('Unable to send email.')                         
end.