ANNOUNCE: SMTP component

[Pascal Obry <p.obry@wanadoo.fr>]

I have just uploaded an STMP client Ada package into my homepage. The
interface is simple and this is the first version to be consided as beta. This
package (distributed into the GNAT modified GPL for library) let you send
e-mail using an SMTP server.

Documentation is to be found into smtp.ads there is also a simple example on
how to use it, here it is:

<<
with SMTP;

procedure Test_Mail is

   Server : SMTP.Server := SMTP.Initialize ("smtp.wanadoo.fr");

   Stat : SMTP.Status;

begin
   for K in 1 .. 2 loop
      SMTP.Send (Server,
                 From    => SMTP.E_Mail ("Pascal Obry", "p.obry@wanadoo.fr"),
                 To      => (SMTP.E_Mail ("Pascal Obry", "p.obry@wanadoo.fr"),
                             SMTP.E_Mail ("Pascal Obry", "p.obry@der.edf.fr")),
                 Subject => "Well, well...",
                 Message => "Simple message " & Positive'Image (K),
                 Status  => Stat);
   end loop;
end Test_Mail;
>>

Please do not run it as is as I do not want to get hundred of messages :)

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|         http://perso.wanadoo.fr/pascal.obry
--|
--| "The best way to travel is by means of imagination"