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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 107e1d,286c41706bf0d634,start
X-Google-Attributes: gid107e1d,public
X-Google-Thread: 103376,286c41706bf0d634,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2000-12-16 11:52:41 PST
Path: 
 supernews.google.com!sn-xit-02!supernews.com!newsfeed.online.be!fr.clara.net!heighliner.fr.clara.net!wanadoo.fr!not-for-mail
From: Pascal Obry <p.obry@wanadoo.fr>
Newsgroups: comp.lang.ada,fr.comp.lang.ada
Subject: ANNOUNCE: SMTP component
Date: 16 Dec 2000 20:53:35 +0100
Organization: Home - http://perso.wanadoo.fr/pascal.obry
Message-ID: <ulmtg16tc.fsf@wanadoo.fr>
NNTP-Posting-Host: mix-velizy-107-1-162.abo.wanadoo.fr
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: wanadoo.fr 976996360 7482 193.249.44.162 (16 Dec 2000 19:52:40 GMT)
X-Complaints-To: abuse@wanadoo.fr
NNTP-Posting-Date: 16 Dec 2000 19:52:40 GMT
User-Agent: Gnus/5.0807 (Gnus v5.8.7) Emacs/20.7
Xref: supernews.google.com comp.lang.ada:3209 fr.comp.lang.ada:282
Date: 2000-12-16T19:52:40+00:00
List-Id: <comp.lang.ada>


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"