send email

send email

[Distant Worlds]

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
       
       
>>:((
       

Re: send email

[Björn Lundin]

On 2017-06-28 11:25, Distant Worlds wrote:

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

I got this running fine seding mails from Amazon.
I _think_ you need a Credential parameter in the Initialize if you say
Secure => True
And I could not point out the path to the cert, had to make that current
directory. But that may have changed now.


  procedure Mail_Saldo(Saldo, Old : Balances.Balance_Type) is
     T       : Calendar2.Time_Type := Calendar2.Clock;
     Subject : constant String             := "BetBot Saldo Report";
     use AWS;
     SMTP_Server_Name : constant String :=
     "email-smtp.eu-west-1.amazonaws.com";
     Status : SMTP.Status;
  begin

Ada.Directories.Set_Directory(Ada.Environment_Variables.Value("BOT_CONFIG")
& "/sslcert");
    declare
      Auth : aliased constant SMTP.Authentication.Plain.Credential :=
                                SMTP.Authentication.Plain.Initialize
("AKESJZDQQ2DDNB58SKQ",
                                              "SOME scrabled string");
      SMTP_Server : SMTP.Receiver := SMTP.Client.Initialize
                                  (SMTP_Server_Name,
                                   Port       => 2465,
                                   Secure     => True,
                                   Credential => Auth'Unchecked_Access);
      use Ada.Characters.Latin_1;
      Today     : Fixed_Type := Saldo.Balance + abs(Saldo.Exposure);
      Yesterday : Fixed_Type := Old.Balance + abs(Old.Exposure);
      Msg : constant String :=
          "some MSG sent from: " & GNAT.Sockets.Host_Name ;

      Receivers : constant SMTP.Recipients :=  (
                An array of the receivers
                );
    begin
      SMTP.Client.Send(Server  => SMTP_Server,
                       From    => SMTP.E_Mail ("someone",
"someone@someone.com"),
                       To      => Receivers,
                       Subject => Subject,
                       Message => Msg,
                       Status  => Status);
    end;
    if not SMTP.Is_Ok (Status) then
      Log (Me & "Mail_Saldo", "Can't send message: " &
SMTP.Status_Message (Status));
    end if;
  end Mail_Saldo;



-- 
--
Björn