我使用Email::MIME
從Perl腳本發送郵件。所有的郵件都很好。但事情是,當我給了多個密送郵件ID,對於密件抄送地址郵件沒有發送。它不會拋出任何錯誤。 任何人都可以在這種情況下提供幫助嗎?電子郵件:: MIME不會在Perl中發送BCC地址
use Encode;
use Email::Sender::Simple qw/try_to_sendmail/;
use Email::MIME;
use Email::Sender::Transport::SMTP::TLS;
use Email::Address::XS;
my $mailinfo = shift;
my $username = usename;
my $password = password;
my $from = fromaddress;
my $to = to;
my $subject = subject;
my $body = body;
my $host = host;
my $port = port;
my $bcc = bcc;
my $email = Email::MIME->create(
header_str => [
From => Email::Address::XS->new($display_name,$from),
To => $to,
Subject => Encode::encode('MIME-Header-ISO_2022_JP', $subject),
],
parts => [ @body1 ],
);
$_->encoding_set('base64') for $email->parts;
try_to_sendmail(
$email,
{
to => [$to,$bcc],
transport => Email::Sender::Transport::SMTP::TLS->new(
host => $host,
port => $port,
username => $username,
password => $password,
)
}
) or do {
print "Error occured while mail send\n";
}
這裏'try_to_sendmail'函數從哪裏來?它似乎是來自Email :: Sender :: Simple的未記錄的導出。您的代碼包含語法錯誤,除非'usename','password',...和'bcc'是常量或函數調用。請顯示您的**真實代碼**。沒有看到實際的代碼,我們無法幫助您找到問題。 – simbabque
爲什麼你手動建立一個頭? – simbabque
我喜歡Email :: Stuffer。它來自同一作者,它將所有這些古怪都抽象出來。也許你應該試試看。 – simbabque