in reply to Problem in sending mail with file as inline
#!/usr/bin/perl use strict; use warnings; use MIME::Lite; my $msg = MIME::Lite->new( From => 'some1@somewhere', To => 'some1@somewhere', Cc => 'some2@somewhere,some3@somewhere,some4@somewhere,some5@ +somewhere', Subject => "Fetch issues as on 'dateFile'", Type => 'multipart/mixed', ); $msg->attach( Type => 'TEXT', Data => "Hi,Please find attachement for Fetch issues seen in c +ategories as on 'dateFile'", ); $msg->attach( Type => 'text/plain', Path => '/root/Desktop/exceptions_reasons.txt', Filename => 'differences.txt', ); $msg->send;
|
|---|