Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Getting Net::POP3 to grab mail then forward it on.

by jlongino (Parson)
on Sep 11, 2002 at 07:33 UTC ( #196882=note: print w/replies, xml ) Need Help??


in reply to Getting Net::POP3 to grab mail then forward it on.

As Kanji suggests, use Net::SMTP. I used the following code and it worked for the three messages I had in my pop3 account but I haven't extensively tested it:
# ... use Net::SMTP; my $smtp = Net::SMTP->new(Debug => 1, # other stuff ); # ... for $msg_id (keys(%$Messages)) { print "Retrieving Msg: $msg_id\n"; my $MsgContent = $pop3->get($msg_id); # Here's where I'd like to forward it on.. $smtp->mail($resentby); $smtp->to($target); $smtp->data(); for (@$MsgContent) { $smtp->datasend($_); } $smtp->dataend(); } $smtp->quit;
The debug mode will help pinpoint problems. If you get a "broken pipe" message, then one of your supplied arguments ($smtp->mail or $smtp->to) is most likely the culprit.

--Jim

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://196882]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (11)
As of 2016-09-27 15:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Extraterrestrials haven't visited the Earth yet because:







    Results (507 votes). Check out past polls.