send email

[Distant Worlds <distantworldscorporation@gmail.com>]

with Text_IO;
with AWS.POP;
with AWS.SMTP;
with AWS.SMTP.Client;
with Ada.Text_IO;


procedure Main is
	
   SMTP_Server : AWS.SMTP.Receiver;  
   Status : AWS.SMTP.Status;
   
begin 

   SMTP_Server := AWS.SMTP.Client.Initialize(Server_Name => "smtp.mail.com", 
                                             Port => 465, 
                                             Secure => True);
   
   AWS.SMTP.Client.Send(SMTP_Server,
                        From    => AWS.SMTP.E_Mail(Name => "", Address => ""),
                        To      => AWS.SMTP.E_Mail(Name => "", Address => ""),
                        Subject => "Subject",
                        Message => "Message",
                        Status  => Status);
   
   if not AWS.SMTP.Is_Ok (Status) then
      Ada.Text_IO.Put_Line ("Can't send message: " & AWS.SMTP.Status_Message (Status));
   end if;
                        
end Main;


/********************************************************************/

raised PROGRAM_ERROR : finalize/adjust raised exception
   
/********************************************************************/
     
     CentOS 6.9 Ada GNAT 2017
       
       
>>:((