From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=0.8 required=3.0 tests=BAYES_50,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.6
X-Received: by 2002:ad4:5247:: with SMTP id s7mr1301830qvq.58.1630522728011;
        Wed, 01 Sep 2021 11:58:48 -0700 (PDT)
X-Received: by 2002:a25:5444:: with SMTP id i65mr1338606ybb.277.1630522727751;
 Wed, 01 Sep 2021 11:58:47 -0700 (PDT)
Path: eternal-september.org!reader02.eternal-september.org!news.misty.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 1 Sep 2021 11:58:47 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=76.168.7.137; posting-account=d3k5YgoAAABkSw3WsP6aBXVx_QbzbTl9
NNTP-Posting-Host: 76.168.7.137
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <57c7ca69-cc99-45ae-b494-580536a99ef4n@googlegroups.com>
Subject: Attempt to send email using AWS results in Socket closed by peer
From: Juan Rayas <juan.m.rayas@gmail.com>
Injection-Date: Wed, 01 Sep 2021 18:58:48 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:62597
List-Id: <comp.lang.ada>

Hi,

 I am teaching myself Ada and tried to create a simple program that sends an email if today's date equals my birthday :).

 I am using Gnat Studio 2021, Community edition, Ubuntu 20.0.4. I downloaded, built and installed AWS. I am sending the email as follows:

procedure SendMail is
      Status : AWS.SMTP.Status;
      Auth   : aliased constant SMTP.Authentication.Plain.Credential :=
        SMTP.Authentication.Plain.Initialize
          ("myAccount", "myPassword");
      Isp : SMTP.Receiver;

   begin
      New_Line;
      Isp :=
        SMTP.Client.Initialize
          ("smtp.gmail.com", Port => 465, 
           Credential             => Auth'Unchecked_Access);

      SMTP.Client.Send
        (Isp, From => SMTP.E_Mail ("Me", "myAccount"),
         To        => SMTP.E_Mail ("Me", "myAccount"),
         Subject   => "AWS test", 
         Message   => "This is a test",
         Status    => Status);

      if not SMTP.Is_Ok (Status) then
         Text_IO.Put_Line
           ("Can't send message :" & SMTP.Status_Message (Status));
      end if;
   end SendMail;

myAccount and myPassword are removed for the purposes of  this post.

When I run my program, the SendEmail procedure fails with the following message:

raised AWS.SMTP.SERVER_ERROR : raised AWS.NET.SOCKET_ERROR : Receive : Socket closed by peer

Does anyone know how to fix this when using the gmail server? Or perhaps I am using AWS incorrectly?

Thanks,
Juan