使用perl的Net::SMTP::SSL模块发送smtps带附件的邮件

最新推荐文章于 2019-01-15 22:34:55 发布

原创最新推荐文章于 2019-01-15 22:34:55 发布 · 2.9k 阅读

0 ·

CC 4.0 BY-SA版权

Perl 同时被 3 个专栏收录

44 篇文章

订阅专栏

Linux

32 篇文章

订阅专栏

脚本

11 篇文章

订阅专栏

本文提供了一个使用Perl语言通过Net::SMTP::SSL模块发送带有附件的邮件的示例代码。该示例展示了如何配置SMTP服务器并利用MIME::Lite模块构建包含文本内容及附件的邮件。

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

use Net::SMTP::SSL;
use MIME::Lite;

my $mail_from = 'user1@mail.smtpstest.com';
my $mail_to = 'user2@mail.smtpstest.com';
my $mail_subject = "Perl smtps testing1\n";
my $username = "user1";
my $password = "123";

sub SendAttachMail
{
    my $mail_content = shift;
    my $mail_attach = shift;

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

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

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

    my @tmp = split/\\/,$mail_attach;
    my $attach_name = pop(@tmp);
    my $msg=MIME::Lite->new(
                    From=>$mail_from,
                    To=>$mail_to,
                    Subject=>$mail_subject,
                    Type=>'TEXT',
                    Data=>$mail_content,);

    $msg->attach(
            Type=>'AUTO',
            Path=>$mail_attach,
            Filename=>$attach_name,);

    my $content_string=$msg->as_string() or die "$!";


    $smtp->mail($mail_from);
    $smtp->to($mail_to);
    #$smtp->cc($mail_cc);
    #$smtp->bcc($mail_bcc);
    $smtp->data();
    $smtp->datasend($content_string);
    $smtp->dataend();
    $smtp->quit;
}
SendAttachMail("附件是一个virus文件",'/test/test.txt');