求助Perl 发邮件模块

sumin_0527

UID: 26879
帖子: 2
积分: 4
在线时间: 10 分钟

1^# sumin_0527 发表于 2008-03-17 16:52

求助Perl 发邮件模块

请教一下大家,

Perl中有没有发邮件的模块,可以控制邮件正文中的字体,颜色的呢?我现在用的 Net::SMTP 模块好像不行啊~
谢谢勒

JasonLee8872

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

2^# JasonLee8872 发表于 2008-03-17 23:01

你用Net::SMTP就不应该会有这个问题，因为Net::SMTP用得最底层。
猜也应该猜到嘛（其实我就是猜到的），在邮件头里加入Content-type:text/html，你应该能够想到什么结果了吧？

odacharlee

UID: 7090
帖子: 37
积分: 85
在线时间: 2 小时

3^# odacharlee 发表于 2008-03-18 00:38

Net::SMTP是负责发送邮件的
而lz说的邮件字体颜色等问题，属于制作的范畴。
如2楼所说，Content-Type:text/html 之后，在邮件中直接写HTML代码即可。
复杂邮件建议使用MIME::Entity来构造。

sumin_0527

UID: 26879
帖子: 2
积分: 4
在线时间: 10 分钟

4^# sumin_0527 发表于 2008-03-18 08:59

还是不太明白啊~~初学Perl的
请达人们贴个示范看看啊~谢谢勒

print "Content-type: text/html\n\n";
print "<html><head>\n";
print "<title>Hello, world!</title></head>\n";
print "<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#FF0000\" vlink=\"#800000\">\n";
print "<h1>Hello, world!</h1>\n";
print "<a href=\"../perl/tutorial.html\"><b>Back</b></a> to the Tutorial\n";
print "</body></html>\n";

如:上面这段HTML代码应该加在哪里啊?? 我直接加在 datasend 中老是报错啊

use Net::SMTP;
my $smtp = new Net::SMTP 'SHMAIL-1';
$smtp -> mail('A');
$smtp -> to('B');
$smtp -> data();
$smtp -> datasend("From: A\n");
$smtp -> datasend("To: B\n");
$smtp -> datasend("Subject: TEST\n");
$smtp -> datasend("\n");

$smtp -> datasend(内容);
$smtp ->dataend();
$smtp ->quit;

JasonLee8872

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

5^# JasonLee8872 发表于 2008-03-19 12:43

原理没错，显然是你语法哪写错了。

sumin_0527

UID: 26879
帖子: 2
积分: 4
在线时间: 10 分钟

6^# sumin_0527 发表于 2008-03-19 14:15

哪位兄台能告诉一下应该怎么写啊?谢谢了

use Net::SMTP;
my $smtp = new Net::SMTP 'SHMAIL-1';
$smtp -> mail('A');
$smtp -> to('B');
$smtp -> data();
$smtp -> datasend("From: A\n");
$smtp -> datasend("To: B\n");
$smtp -> datasend("Subject: TEST\n");
$smtp -> datasend("\n");

open(IN,'c:/test.html');
while(<IN>){
$smtp -> datasend("$_");
}
$smtp ->dataend();
$smtp ->quit;

我把HTML格式存为了 test.html 文件

Content-type: text/html
<html>
<body>
<p>
A moving image:
<img src="c:/multidepthpie.png">
</p>

<p>
Note that the syntax of inserting a moving image is no different from that of a non-moving image.
</p>

</body>
</html>

收到的邮件内容就是读到的内容,没任何效果呀~

King_Leo

UID: 24392
帖子: 142
积分: 326
在线时间: 1 天 3 小时

7^# King_Leo 发表于 2008-03-19 18:27

perl 网络编程这本书也许可以帮你

JasonLee8872

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

8^# JasonLee8872 发表于 2008-03-20 08:39

QUOTE:

原帖由 sumin_0527 于 2008-3-19 14:15 发表
哪位兄台能告诉一下应该怎么写啊?谢谢了

use Net::SMTP;
my $smtp = new Net::SMTP 'SHMAIL-1';
$smtp -> mail('A');
$smtp -> to('B');
$smtp -> data();
$smtp -> datasend("From: A\n");
$smtp ...

我就说你写错了你还不信…… 你是不是不知道header是怎么回事？Header内容完了之后之后空一行，表示结束。Content-type是要加进header里的，你看你在Content-type之前就把header结束了，那当然用不了HTML。（而且Content-type后面你又没空行，怎么看都make no sense）
下面是一个可以工作的邮件内容：
From:XXXXXXX
To:XXXXXXXXXXX
Subject:XXXXXXXXX
Content-type:text/html

HTML Code.....

sumin_0527

UID: 26879
帖子: 2
积分: 4
在线时间: 10 分钟

9^# sumin_0527 发表于 2008-03-20 10:03

谢谢老大~~~终于明白了~~~搞定了~~