From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.129.83.213 with SMTP id h204mr5681838ywb.135.1498641905609;
        Wed, 28 Jun 2017 02:25:05 -0700 (PDT)
X-Received: by 10.36.19.1 with SMTP id 1mr109295itz.4.1498641905571; Wed, 28
 Jun 2017 02:25:05 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.glorb.com!v31no1191650qtb.0!news-out.google.com!s132ni465itb.0!nntp.google.com!185no1849901itv.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 28 Jun 2017 02:25:05 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=37.45.143.37;
 posting-account=0_d8hgkAAACpDgvmgtX4IJ__4N6Cx4Rv
NNTP-Posting-Host: 37.45.143.37
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <aede705a-3a5d-4891-87e3-5d86563ee86c@googlegroups.com>
Subject: send email
From: Distant Worlds <distantworldscorporation@gmail.com>
Injection-Date: Wed, 28 Jun 2017 09:25:05 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: news.eternal-september.org comp.lang.ada:47154
Date: 2017-06-28T02:25:05-07:00
List-Id: <comp.lang.ada>

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