好资源导航 » 文章资讯 » 使用Perl通过电子邮件发送附件

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

2024-05-18 18:04:05 458

如果您想使用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()方法在电子邮件中附加任意数量的文件。

返回顶部
3162201930
czq8825@qq.com

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

热门推荐

随机推荐