请教如何收取邮件？

perl911

请问雅虎邮箱支持pop3吗？如果不支持该用什么模块达到目的？

俺到网上找了一个代码，试了一下无法连接！

#!/usr/bin/perl

use strict;

use Net::POP3;

my $POP3Server='http://mail.yahoo.com';

my $user="user";

my $passwd="passwd";

my ($pop,$host,$msg_id,$rl_msg);

my $mail=Net::POP3->new($POP3Server,Timeout=>30) or die "Can't connect to $host: $!\n";

my $n=$mail->login($user=>$passwd) or die "Can't log in: ",$pop->message,"\n";

my $r_msgs=$mail->list();

$mail->quie;


出错代码：
my $mail=Net::POP3->new($POP3Server,Timeout=>30) or die "Can't connect to $host: $!\n";
提示：
Can't connect to : Invalid argument

俺看到有的程序通过调用FoxMail 5.0中自带的小工具FoxHot，使pop3协议到HTML的转换

以实现Web mail方式访问。

不知perl能否调用FoxHot及其返回的数据？

请大家指点一下，多谢了！

[[i] 本帖最后由 perl911 于 2006-2-1 18:11 编辑 [/i]]

wenjinchu

你需要确认一下几个问题：

1.你的pop3邮件服务器地址是否有错？
  yahoo.com应该是美国雅虎，印象中pop3邮件服务器是mail.pop.yahoo.com
   确认对象代码：my $POP3Server='http://mail.yahoo.com';

2.你的用户名密码是否正确？
  中国雅虎和美国雅虎的ID似乎不能共同（当然根据出错信息来看，还没到用户验证这一步）
  确认对象代码：my $user="user";  
                        my $passwd="passwd";

以上两点确认无误的话，应该可以接入邮箱。

抱歉我现在的工作环境因为安全问题无法访问WEB邮箱，不可以帮你做确证

wolfman.wu

确认 yahoo 提供 pop3 了吗?  好象它们的只能用webmail形式.

wenjinchu

至少我这里的雅虎是可以的，在新手指南里有邮件服务器地址等详细说明。

apile

你有没有试过Telnet到那台mail server的port 110...
如果连得上...你的程序才能跑....
另外..
POP跟HTTP没有关系...
请把http://拿掉....

[ 本帖最后由 apile 于 2006-2-3 09:00 编辑 ]

perl911

感谢apile兄和wenjinchu兄的指点！

俺有点明白了。

但情况是，有时候只知道收件人邮箱的地址，不知道具体的POP3服务器，

用什么方法能获知真实的POP3服务器地址？

另外，再想问一下用LWP能否达到登录邮箱的目的？

如果能，该用到哪个模块？请大家给点提示，谢谢！！！

[ 本帖最后由 perl911 于 2006-2-3 11:44 编辑 ]