Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
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


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

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 chanting in the Monastery: (11)
As of 2014-09-30 20:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (383 votes), past polls