Looking for package Email

Looking for package Email

[M. A. Alves]

I want to send email messages from an Ada program.  Any package out
there?  Suggestions?  Thanks.

-- 
   ,
 M A R I O   data miner, LIACC, room 221   tel 351+226078830, ext 121
 A M A D O   Rua Campo Alegre, 823         fax 351+226003654
 A L V E S   P-4150 PORTO, Portugal        mob 351+939354002

Re: Looking for package Email

[Gerhard Häring]

On Mon, 18 Jun 2001 16:08:02 +0100 (WEST), M. A. Alves <maa@liacc.up.pt> wrote:
>I want to send email messages from an Ada program.  Any package out
>there?  Suggestions?  Thanks.

pyAda (http://pyada.sf.net) contains an example that makes Python's smtplib
library available as Ada objects and methods.

If you have any comments on pyAda, I'd like to hear.

Gerhard
-- 
mail:   gerhard <at> bigfoot <dot> de       registered Linux user #64239
web:    http://highqualdev.com              public key at homepage
public key fingerprint: DEC1 1D02 5743 1159 CD20  A4B6 7B22 6575 86AB 43C0
reduce(lambda x,y:x+y,map(lambda x:chr(ord(x)^42),tuple('zS^BED\nX_FOY\x0b')))

Re: Looking for package Email

[Mark Johnson]

"M. A. Alves" wrote:

> I want to send email messages from an Ada program.  Any package out
> there?  Suggestions?  Thanks.
>
> --
>    ,
>  M A R I O   data miner, LIACC, room 221   tel 351+226078830, ext 121
>  A M A D O   Rua Campo Alegre, 823         fax 351+226003654
>  A L V E S   P-4150 PORTO, Portugal        mob 351+939354002

Hmm. I believe the short answer is "maybe", but I am not sure. I could
answer this at several levels...

[1] On many systems, generate your mail message as a text file & use an
OS call to run your mail utility program to send it.

[2] Use a package such as...
>
http://www.informatik.uni-stuttgart.de/ifi/ps/AdaBasis/pal_1195/ada/asr/ddn/smtp/

(assuming you have the other prerequisites - such as a server that
accepts SMTP)

[3] Hook into another email interface - varies by system.

What kind of system do you want run this Ada based "send email" from?
  --Mark

Re: Looking for package Email

[Samuel Tardieu]

>>>>> "Mark" == Mark Johnson <mark_h_johnson@raytheon.com> writes:

Mark> "M. A. Alves" wrote:
>> I want to send email messages from an Ada program.  Any package out
>> there?  Suggestions?  Thanks.

Mark> Hmm. I believe the short answer is "maybe", but I am not sure. I
Mark> could answer this at several levels...

There is also Pascal Obry's SMTP package at

  http://perso.wanadoo.fr/pascal.obry/contrib.html

 Sam
-- 
Samuel Tardieu -- sam@ada.eu.org

Re: Looking for package Email

[M. A. Alves]

> [1] On many systems, generate your mail message as a text file & use an
> OS call to run your mail utility program to send it.

Doing that now.  Using the "mail" utility on a Linux system, in a call to
the POSIX "system" function.  Simplest way, I think.  It works---as long
as the system settings associated with the "mail" utility are ok of
course.

package Mail is

  Error: exception;

  procedure Send_Message(
    To: String;
    CC: String := "";
    BC: String := "";
    Reply_To: String := "";
    Subject: String := "";
    Text: String := "");

end Mail;

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Text_Io; use Ada.Text_Io;
with Posix; use Posix;

package body Mail is

  procedure Send_Message(
    To: String;
    CC: String := "";
    BC: String := "";
    Reply_To: String := "";
    Subject: String := "";
    Text: String := "")
  is
    Tempfilename: String := "/tmp/a_temporary_mail_message_text_file";
    Tempfile: File_Type;
    U: Unbounded_String;
    R: Integer;
  begin
    Create(Tempfile, Out_File, Tempfilename);
    Put(Tempfile, Text);
    Append(U, "mail");
    if CC /= "" then
      Append(U, " -c" & CC);
    end if;
    if BC /= "" then
      Append(U, " -b" & BC);
    end if;
    if Subject /= "" then
      Append(U, " -s """ & Subject & """");
    end if;
    Append(U, " " & To & " < " & Tempfilename);
    R := System(To_String(U));
    Delete(Tempfile);
    if R = 127 or R = -1 then raise Error; end if;
  end Send_Message;

end Mail;

package Posix is

  function System(Command: String) return Integer;

end Posix;

with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings; use Interfaces.C.Strings;

package body Posix is

  function C_System(Command: chars_ptr) return int;
  pragma Import(C, C_System, "system");

  function System(Command: String) return Integer is
    C_Command : aliased char_array := To_C(Command);
  begin
    return(Integer(C_System(To_Chars_Ptr(C_Command'Unrestricted_Access))));
  end System;

end Posix;

-- 
   ,
 M A R I O   data miner, LIACC, room 221   tel 351+226078830, ext 121
 A M A D O   Rua Campo Alegre, 823         fax 351+226003654
 A L V E S   P-4150 PORTO, Portugal        mob 351+939354002

Re: Looking for package Email

[Ken Thomas]

Look at Pascal Obry's package STMP.
http://perso.wanadoo.fr/pascal.obry/contrib.html

Ken Thomas
"M. A. Alves" <maa@liacc.up.pt> wrote in message
news:mailman.992873360.13616.comp.lang.ada@ada.eu.org...
> I want to send email messages from an Ada program.  Any package out
> there?  Suggestions?  Thanks.
>
> --
>    ,
>  M A R I O   data miner, LIACC, room 221   tel 351+226078830, ext 121
>  A M A D O   Rua Campo Alegre, 823         fax 351+226003654
>  A L V E S   P-4150 PORTO, Portugal        mob 351+939354002
>