comp.lang.ada
 help / color / mirror / Atom feed
* ANNOUNCE: SMTP component
@ 2000-12-16 19:53 Pascal Obry
  2000-12-18  7:14 ` Brian Orpin
  0 siblings, 1 reply; 5+ messages in thread
From: Pascal Obry @ 2000-12-16 19:53 UTC (permalink / raw)



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"



^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2000-12-19  0:02 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2000-12-16 19:53 ANNOUNCE: SMTP component Pascal Obry
2000-12-18  7:14 ` Brian Orpin
2000-12-18 21:42   ` Pascal Obry
2000-12-18 23:26     ` Vincent Marciante
2000-12-19  0:02     ` Ted Dennison

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox