perl发送html格式的邮件,使用html格式时出现Perl Net :: SMTP电子邮件大小问题

#!/usr/bin/perl

use Mail::Sender

$to = '[email protected],[email protected]';

$sender =new Mail::Sender {

smtp => 'smtp.mailserver.com',

from => '[email protected],

});

$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);