Perl发送Email的2个问题

finixlei

第一个问题是正文部分无法显示
第二个问题是如果要发送给多个人，应该怎么写
代码如下，谢谢！

#!/usr/bin/perl -w

use Net::SMTP;
use Net::SMTP_auth;
use MIME::Base64;
$mail_server = 'smtp.163.com';
$mail_from = 'me@163.com';
$mail_to = 'me@gmail.com';  # 这里如何写才能发送给多个人呢？我试过了分号分隔，逗号分隔和空格分隔，但都失败了
$uname='me';
$passwd='mypasswd';

#开启Debug模式
$smtp = Net::SMTP->new("$mail_server" , Debug => 1);
#普通发送模式
#$smtp = Net::SMTP->new("$mail_server" );
$smtp->auth("$uname", "$passwd");
$smtp->mail("$mail_from");
$smtp->to("$mail_to");
$smtp->data();
$smtp->datasend("From: $mail_from\n");
$smtp->datasend("To: $mail_to\n");
$smtp->datasend("Reply-To: $mail_from\n");
$smtp->datasend("Return-Path: $mail_from\n");
$smtp->datasend("Subject: Your Subject\n");
$smtp->datasend("Content-Type: text/plain; ChartSet=gb2312");
$smtp->datasend("I am a cat!\n"); # 收到的邮件中没有显示该句
$smtp->datasend("\n");
$smtp->quit;

小公猫

$mail_to =( 'me@gmail.com','xxxx@xxx.com')
...
foreach ($mail_to)
{
    $smtp->to($_);
}

小公猫

不用这句：$smtp->datasend("Content-Type: text/plain; ChartSet=gb2312");
试试

finixlei

3楼不行，更复杂的方法我都试过了

finixlei

2楼也不对，你那样的话，A收到信的时候看不到B也收到了

小公猫

原帖由 finixlei 于 2009-4-5 11:52 发表
2楼也不对，你那样的话，A收到信的时候看不到B也收到了

你原来没说要让B看到A有收到信呀
你是说抄送的意思吗？

dugu072

$smtp->mail("$mail_from");
这里需要一个 list 环境，所以多个receiver可以如此：

$smtp->mail(‘a@a.com’, ‘b@b.com’);
楼主直接传一个scalar，当然只会认为是一个邮箱名了……

finixlei

可以理解成抄送（但和web邮件中的抄送不一样，就是一次发送给多个人，抄送的list里没有人）

小公猫

原帖由 finixlei 于 2009-4-5 13:03 发表
可以理解成抄送（但和web邮件中的抄送不一样，就是一次发送给多个人，抄送的list里没有人）

那你就把list发给每个接收人~

finixlei

放在正文里面？那肯定不对啊