Skip to Content.
Sympa Menu

fr - Re: envoyer un msg a la main ?

Subject: Pour les administrateurs de serveurs de listes utilisant le logiciel Sympa

List archive

Chronological Thread  
  • From: "brix" <address@concealed>
  • To: <address@concealed>
  • Subject: Re: envoyer un msg a la main ?
  • Date: Fri, 24 Nov 2000 17:39:03 +0100

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 :

address@concealed (Alain BARBET) ecrivait dans
<address@concealed> :

>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
>





Archive powered by MHonArc 2.6.19+.

Top of Page