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=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.6
Path: eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail
From: Doctor Who <doc@tardis.org>
Newsgroups: comp.lang.ada
Subject: Re: Attempt to send email using AWS results in Socket closed by peer
Date: Thu, 02 Sep 2021 06:03:11 +0200
Organization: A noiseless patient Spider
Message-ID: <57j0jgd920r1al3ehsbilbs39041c3eeqd@4ax.com>
References: <57c7ca69-cc99-45ae-b494-580536a99ef4n@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Injection-Info: reader02.eternal-september.org; posting-host="86bf2b29533c1d63229530be85c0816f";
	logging-data="23610"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+qQcp3XVbwqeof4tfiOwP2"
User-Agent: ForteAgent/8.00.32.1272
Cancel-Lock: sha1:mAgzjwDOoaXzTkGkFEy/cFinOnM=
Xref: reader02.eternal-september.org comp.lang.ada:62603
List-Id: <comp.lang.ada>

On Wed, 1 Sep 2021 11:58:47 -0700 (PDT), Juan Rayas
<juan.m.rayas@gmail.com> wrote:

>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


port 465 wants a TLS connection.