请问邮件发送服务器的问题

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

1^# JasonLee8872 发表于 2008-03-11 17:01

请问邮件发送服务器的问题

最近才学着用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;

请教诸位这是怎么回事？多谢！

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-03-11 17:03

sohu 的肯定可以。
sohu 的邮箱太好了！

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

3^# JasonLee8872 发表于 2008-03-11 17:08

…… 但是有问题的问题出在哪啊？能解决吗？

或者有其他替代Net::SMTP的好选择。之前见你在另一个帖子里说Net::SMTP老了

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

4^# JasonLee8872 发表于 2008-03-11 17:26

PS：刚才试了一下，Sohu好慢啊……

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

5^# JasonLee8872 发表于 2008-03-12 10:41

顶一下，有人能指点吗？