Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

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

( #33548=categorized answer: print w/ replies, xml ) Need Help??

Q&A > mail and news > how do i send an email with perl in window system contributed by 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 <moranjon@pilot.msu.edu>', To => $dest, Subject => $subj, } ) or die "mailer->open failed: $!\n"; print $mailer $body; $mailer->close;

Comment on Answer: how do i send an email with perl in window system
Select or Download Code
RE: Answer: how do i send an email with perl in window system
by Anonymous Monk on Sep 21, 2000 at 23:25 UTC
    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 <moranjon@pilot.msu.edu>', To => "$dest", Subject => "$subj" } ) or die "Couldnt do it: $!\n"; print $mailer $body; $mailer->close();


    Jonathan Moran (Colonel_Panic)
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2014-08-29 00:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (275 votes), past polls