Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://196882]
[MidLifeXis]: (5.22 at that time)
[MidLifeXis]: Yeah, I know, really helpful :-)
[Corion]: If all else fails, Spreadsheet::XLSX should be "installable" by manually copying the files, provided that the prerequisites are met
[thezip]: It fails in the "formatted 2-digit numeric" tests
[thezip]: Okay Corion, that's what I wanted to hear. Thanks!
[Corion]: Oh, a test failure... Just force-install it then? --force and potentially --notest to skip the tests alltogether ?
[ambrus]: thezip: is Activestate Perl usable for your scenario instead?
[MidLifeXis]: Yeah, --notest is good, not sure I would do --force.
[thezip]: It fails 2/10 tests in that group. What are the ramifications if I force it? What should I look for for?
[thezip]: I've migrated from ActiveState to Strawberry. No going back...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (16)
As of 2017-03-23 17:16 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (290 votes). Check out past polls.