作者u9423504 (波哥)
看板Perl
标题[问题]使用Net::SMTP::SSL寄信乱码的问题
时间Mon May 10 18:39:30 2010
小弟使用Net::SMTP::SSL的模组写寄信的程式，
程式可以正常的执行无误，但是发现有些信箱收信正常(如gmail、msn hotmail)，有些
信箱收箱却有乱码的情况发生(如pchome)。
以下是完整程式码：
#!/usr/bin/perl
use Net::SMTP;
use MIME::Lite;
use Net::SMTP::SSL;
# setting
my $mailhost = 'smtp.gmail.com';
my $username = '
[email protected]';
my $password = 'n123';
my $from = '
[email protected]';
my $to = '
[email protected]';
my $subject = '中文测式'; # mail title
my $content = '邮件测式'; # the content of email
my $attachment = '/home/james/1.jpeg';
my $attachment2='/home/james/json.txt';
$smtp = Net::SMTP::SSL->new($mailhost,
Port => 465, Timeout => 120, Debug => 1);
# anth login
$smtp->auth($username, $password);
my $msg = MIME::Lite->new(
From => $from,
To => $to,
Subject => $subject,
Type => 'TEXT',
Data => $content,
);
# Attach
$msg->attach(
Type => 'image/gif', # the attachment mime type
Path => $attachment, # local address of the attachment
Filename => 'jpeg', # the name of attachment in email
);
$msg->attach(
Type => 'text', # the attachment mime type
Path => $attachment2, # local address of the attachment
Filename => 'jason', # the name of attachment in email
);
my $str = $msg->as_string() or die "Convert the message as a string: $!\n";
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend($str);
$smtp->dataend();
$smtp->quit;
--
波哥IT私房菜：
http://i-pogo.blogspot.com/
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.117.126.25
1F：推 herculus6502:why not use Email::Send::Gmail? see post 1997 05/11 20:44