windows下发送邮件不知道错在那里

junchen2

use Mail::Sender;

my $sender = new Mail::Sender {
        smtp => 'smtp.yahoo.com.cn',
     from => 'wjc19851102wjc@yahoo.com.cn',
     auth => 'LOGIN',
     authid => 'wjc19851102wjc',
     authpwd => '我的密码',
     on_errors => undef,
} or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";
$sender->MailFile({to =>'wjc19851102wjcwjc@yahoo.cn',
       subject => 'Here is the file',
       msg => "I'm sending you the list you wanted.",
       file => 'mail.txt'}) or print $Mail::Sender::Error;
$sender ->Close();

#上面的代码是网上找的然后替换自己邮箱地址。虽然运行不报错，但是不能将邮件成功发送出去，望大家指点，不好意思本人很菜

[ 本帖最后由 junchen2 于 2008-9-13 22:41 编辑 ]

forlorngenius

不 成功的原因有n 多种，这样怎么 知道错在哪。

ynchnluiti

确定邮件服务器，用户名，密码填写正确
确定正确配置了dns

cenalulu

我没仔细看内容。先说说yahoo。com。cn的邮件服务器

stmp是smtp.mail.yahoo.com
pop3是pop.mail.yahoo.com.cn
并且yahoo。com。cn后缀是默认不开启邮件本地服务器的功能的。具体方法baidu “yahoo” + “pop3“有具体开启方法。
我的建议是，先用foxmail把stmp地址等信息先验证通过了，能发信了。。。再放到perl里尝试

cocao

:wink: