Re: how do i send an email with perl in window system

[Anonymous Monk]

When facing similar things, I use the smtp method of Mail::Mailer (which depends on elements of the Net bundle).

The following example sends an e-mail composed from a terminal window. Obviously you'd need to configure the variables to your situation.

use Mail::Mailer;

print "\nTo: ";
$dest = <>;
chomp $dest;

print "Subject: ";
$subj = <>;
chomp $subj;

print "\nBody:\n";
$body = <>;

$mailer = Mail::Mailer->new( 'smtp', Server => 'pilot.msu.edu' );

$mailer->open( {
    From    => 'Mr Grits <[e-mail]>',
    To      => $dest,
    Subject => $subj,
} )
    or die "mailer->open failed: $!\n";

print $mailer $body;

$mailer->close;

[Anonymous Monk]

Boy did I butcher that up - Try 2

Well there are probablly others who could give a more elegant solution, but I used smtp method of Mail::Mailer (which depends on elemants of the Net bundle) when facing sowewhat similar thing. What this does is send an e-mail composed from a terminal window. You would need to change the smtp server to yours and the from line and also the top shebang line to something more appropriate for windows. Also the To, Subject and Body variables could be changed to your heart's content.

mailtest.pl



#!/usr/bin/perl -w

use Mail::Mailer;

print "\nTo: ";
$dest = <STDIN>;
chomp $dest;

print "Subject: ";
$subj = <STDIN>;
chomp $subj;

print "\nBody:\n";
$body = <STDIN>;

$mailer = Mail::Mailer->new("smtp", Server=> "pilot.msu.edu");

$mailer->open( { From    => 'Mr Grits <[e-mail]>',
         To    => "$dest",
         Subject => "$subj" } )
    or die "Couldnt do it: $!\n";

print $mailer $body;
$mailer->close();



Jonathan Moran (Colonel_Panic)