Perl SMTP发送邮件

最新推荐文章于 2025-04-13 22:17:17 发布

转载最新推荐文章于 2025-04-13 22:17:17 发布 · 734 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/xiechaoyong/blog/210121

文章标签：

#python

本文提供了一个使用Perl编程语言发送邮件的简单示例代码，包括邮件正文、主题和抄送设置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

2019独角兽企业重金招聘Python工程师标准>>>

sub smtp_mailto
{
use Net::SMTP::SSL;
my ($mail_to, $mail_subject, $mail_content) = @_; 
my $sendAccount = 'yourqq@qq.com';
my $sendAccountPw = 'yourpasswd';
my $mail_cc = 'ccemail';

my $smtp = Net::SMTP::SSL->new(
'smtp.qq.com',
Hello=>'HELLO',
Port=>465,
LocalPort=>0,
Debug=>1);

die("smtp undefined: $@") if !defined $smtp;

my $auth_return = $smtp->auth($sendAccount,$sendAccountPw);
die("auth error: $@") if !defined $auth_return;

$smtp->mail($sendAccount);
$smtp->to($mail_to);
$smtp->cc($mail_cc);
#$smtp->bcc($mail_bcc);
$smtp->data();
$smtp->datasend("From: $sendAccount\n");
$smtp->datasend("To: $mail_to\n");
$smtp->datasend("Subject: $mail_subject\n");
$smtp->datasend("\n");
$smtp->datasend("$mail_content");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;
}

转载于:https://my.oschina.net/xiechaoyong/blog/210121