而使用HTML格式的Perl的Net :: SMTP电子邮件的大小问题(Perl Net::SMTP

我在Perl通过SMTP发送电子邮件。 邮件中包含了一些表格，链接和列表。 我使用的HTML格式的数据。

$smtp->data();
$smtp->datasend("MIME-Version: 1.0\nContent-Type: text/html; charset=UTF-8 \n\n<H1>");
$smtp->datasend("$message");
...
$smtp->dataend();
$smtp->quit;

有时，电子邮件的大小大约是太大1mb 。 有没有什么办法可以减少电子邮件的大小，而不会降低data.I量不希望的邮件作为附件。 我使用Outlook打开邮件。

Answer 1:

您应该使用的Mail ::发件人为通过邮件发送附件

#!/usr/bin/perl
use Mail::Sender

$to = '[e-mail],[e-mail]';
$sender =new Mail::Sender {
        smtp => 'smtp.mailserver.com',
        from => '[e-mail],
        });

$subject = 'This is a Test Email';
$sender->OpenMultipart({
        to      => "$to",
        subject => "$subject",
        });

$sender->Body;
$sender->SendLineEnc("Test line 1");
$sender->SendLineEnc("Test line 2");

$sender->Attach({
        description     => 'Test file',
        ctype           => 'application/x-zip-encoded',
        encoding        => 'Base64',
        disposition     => 'attachment;
        filename="File.zip"; type="ZIP archive"',
        file            => "$file",
        });

$sender->Close();
exit();

或使用MIME ::精简版

use MIME::Lite;

$msg = MIME::Lite->new (
  From => $from_address,
  To => $to_address,
  Subject => $subject,
  Type =>'multipart/mixed'
) or die "$!\n";

### Add the ZIP file
$msg->attach (
   Type => 'application/zip',
   Path => $my_file_zip,
   Filename => $your_file_zip,
   Disposition => 'attachment'
) or die "Error adding $file_zip: $!\n";

### Send the Message
$msg->send('smtp', $mail_host, Timeout=>60);

文章来源: Perl Net::SMTP Email Size issue while using html format