使用 Perl 通过电子邮件发送附件

如果您想通过 Perl 在电子邮件中发送附件，则可以使用以下脚本 −

#!/usr/bin/perl
use MIME::Lite;
$to = 'abcd@gmail.com';
$cc = 'efgh@mail.com';
$from = 'webmaster@yourdomain.com';
$subject = 'Test Email';
$message = 'This is test email sent by Perl Script';
$msg = MIME::Lite-=>new(
   From => $from,
   To => $to,
   Cc => $cc,
   Subject => $subject,
   Type => 'multipart/mixed'
);
# Add your text message.
$msg->attach(
   Type => 'text',
   Data => $message
);
# Specify your file as attachement.
$msg->attach(Type => 'image/gif',
   Path => '/tmp/logo.gif',
   Filename => 'logo.gif',
   Disposition => 'attachment'
);
$msg->send;
print "Email Sent Successfully\n";

您可以在电子邮件中使用 attach() 方法附加任意数量的文件。

Mohd Mohtashim

更新于： 2019 年 11 月 29 日

2K+ 次浏览

开启你的 职业生涯

通过完成课程获得认证

开始