gistfile1.txt

with Ada.Text_IO;

with AWS.SMTP;
with AWS.SMTP.Client;

procedure Text_Email is
  Sample_Mail : String := "Hello there!";

  SMTP_Server : AWS.SMTP.Receiver := AWS.SMTP.Client.Initialize("localhost");
  Sts : AWS.SMTP.Status;
begin
  AWS.SMTP.Client.Send
   (SMTP_Server,
    From    => AWS.SMTP.E_Mail("Andrew", "andrew.shvets@gmail.com"),
    To      => AWS.SMTP.E_Mail("Andrew", "andrew.shvets@gmail.com"),
    Subject => "Oh, who is it?",
    Message => Sample_Mail,
    Status  => Sts);

  if not AWS.SMTP.Is_Ok(Sts) then
    Ada.Text_IO.Put_Line("ERROR: Can't send message: " & AWS.SMTP.Status_Message(Sts));
  end if;

  Ada.Text_IO.Put_Line("This is the reply code's message:");
  Ada.Text_IO.Put_Line("   " & AWS.SMTP.Message(AWS.SMTP.Status_Code(Sts)));
end Text_Email;