- 论坛徽章:
- 0
|
小弟用Net::SMTP_auth写了一个发送邮件的脚本:
内容如下:- #!/usr/bin/perl
- use Net::SMTP_auth;
- if(@ARGV < 3) { die "Usage: ./$0 mailbox centent subject\n\n";}
- $mail_server='smtp.abc.cn';
- $mail_from='service@abc.cn';
- $smtp=Net::SMTP->new("$mail_server",Debug=>1);
- $smtp->auth('guest@abc.cn','123456');
- $smtp->mail($mail_from);
- $smtp->to("$ARGV[0]");
- $smtp->data();
- $smtp->datasend("from:$mail_from\n");
- $smtp->datasend("to:$ARGV[0]\n");
- $smtp->datasend("subject:$ARGV[2]\n");
- $smtp->datasend("content-type:text/html;charset=utf-8\n\n");
- $smtp->datasend("$ARGV[1]\n");
- $smtp->dataend();
- $smtp->quit;
复制代码 主要的问题是,发送的内容是$ARGV[1],其中内容包括:
"请点击此链接:<a>http://www.test.com</a>"
可是邮箱收到的内容只是普通的文本,并没有在内容中有http://www.test.com这个链接。是不是“content-type:text/html;charset=utf-8\n\n”有问题,请大侠们帮忙!!! |
|