Perl Net :: SMTP Email Size error when using html format

Question

I am sending email via SMTP in perl. The letter contains some tables, links and lists. I am using the html data format.

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

Sometimes the email size is too large around 1mb . Is there a way to reduce the size of email without reducing the amount of data. I do not want the message to be attached. I use Outlook to open emails.

Answer 1

You must use Mail :: Sender to send email attachments

 #!/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(); 

or using MIME :: Lite

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