- 论坛徽章:
- 0
|
最近才学着用Net::SMTP，但昨天遇到点麻烦。基本的倒是搞清楚了，但除了163的发送服务器其他的都没连上，Gmail、Sina、Tom都试过。这是怎么回事啊？
代码：
#! /usr/bin/perl
use strict;
use Net::SMTP;
my $smtp = Net::SMTP -> new ('smtp.sina.com', Debug => 1);
$smtp -> auth('*****@sina.com', '**********');
$smtp -> mail('*****@sina.com');
$smtp -> to('*****@163.com');
$smtp -> data();
$smtp->datasend("From:*****\@sina.com\n");
$smtp->datasend("To:*****\@163.com\n");
$smtp->datasend("Subject:hello\n");
$smtp->datasend("Content-type:text/html\n\n");
$smtp->datasend("<b>this is a test email</b>\n");
$smtp -> dataend();
$smtp->quit; |
请教诸位这是怎么回事？多谢！
[ 本帖最后由 JasonLee8872 于 2008-3-11 17:02 编辑 ] |
|
免费注册
发表于 2008-03-11 17:01
发表于 2008-03-11 17:03