Re: envoyer un msg a la main ?

["brix" <adresse@cachée>]

Le vendredi 24 novembre 2000 a 15:19, antwan a ecrit :

> y'a-t-il un moyen d'envoyer un message a la main ? c'est a dire grace a
> une commande unix directement sur le server ? si oui comment ? et si non
> quelle serait la marche a suivre pour y arriver ( fction perl de sympa
> a recuperer, spool ou injecter le message...etc..) ?? 

Si vous avez sendmail sur la machine -
Dans un script Perl :
sub mailer{
  my ($from,$to,$sujet,$message) = @_;
  $MAILLEUR = "/usr/lib/sendmail";
  open (MAIL, "|$MAILLEUR -t $to") || die ("Erreur du pipe a l ouverture du 
mailleur $MAILEUR");
  print MAIL ("From: ",$from,"\n","To: ",$to,"\n","Subject: 
",$sujet,"\n\n","$message");
  close (MAIL);
}

Regarder dans la FAQ Perl :
perldoc -q "send mail"

Ou encore :

adresse@cachée (Alain BARBET) ecrivait dans 
<adresse@cachée> :

>Bonjour,
>
>> J'aimerai savoir comment envoyer un email sans passer par sendmail
>> mais en passant par SMTP ?
>
>Par MIME::Lite, le comportement par défaut c'est $mail->send; et il va
>utiliser sendmail.
>Sinon un passage de la doc d'Eryq dit:
>
>Change how messages are sent
>    ### Do something like this in your 'main':
>    if ($I_DONT_HAVE_SENDMAIL) {
>       MIME::Lite->send('smtp', "smtp.myisp.net", Timeout=>60);
>    }
>
>    ### Now this will do the right thing:
>    $msg->send;         ### will now use Net::SMTP as shown above
>
>HTH,
>--
>Alain BARBET
>http://www.alianwebserver.com/informatique/languages/perl/mail.htm
>