in reply to Sending email with attachments using Email::Mime

You need just a small change to your code, I tested on my machine and it works. You should change these lines and install Email::Sender::Simple module. I know the documentation of Email::MIME is not very clear on how to send actually the email. I use Email::Sender::Simple and works very fine, don't use the Mail::Sendmail. Here's the code: 
 
#use Mail::Sendmail;

print $email->as_string;
print "end of mail as_string\n";
use Email::Sender::Simple qw(sendmail);
my $response = sendmail($email);

print "Response = $response\n";

print "error1 $!\n";

[download]
Cheers!

Replies are listed 'Best First'.
Re^2: Sending email with attachments using Email::Mime
by gezb (Novice) on May 14, 2014 at 21:28 UTC

    Thanks for your reply. I installed Email::Sender::Simple and changed the code as you suggested. A lot closer now. I am receiving the attachments but they are 0 file size so they cant open or save the documents from the email. I am also receiving the error `error1 Illegal seek` . Should not make any difference but I am using Ubuntu. Any ideas.

[reply]
      Was curious to see what I might find about this: Not a great deal, but thought this was interesting in case you were using postfix:

      Postfix Illegal seek. Probably way outside of what your experincing... but then sometimes long shots pay off.

      Best of luck...

      ...the majority is always wrong, and always the last to know about it...
      Insanity: Doing the same thing over and over again and expecting different results...
      wjw
[reply]
      Ok, we are almost there, you need again a module and a very light change. I tried not to change your code too much just to get it work on my machine.
      You need to change, actually add one line to this part: 
       
use IO::All;    # install this module first

push @parts, Email::MIME->create(
    attributes  => {
        filename        => $attachments{doc_name},
        content_type    => $attachments{doc_mime_type},
        disposition     => 'attachment',
        encoding        => 'base64',
        name            => $attachments{doc_name}
    },
        body => io($attachments{doc_name})->all,  # add this line
);

      [download]
      For the illegal seek error, just delete these lines, you don't need them: 
      #print "error1 $!\n";
#print "error2 $Mail::Sendmail::error\n";

      [download]
      Cheers, have fun!
[reply]
[d/l]
[select]

        Thats great, all working now. Thanks for your help and advice. This is why I love Perl !!

[reply]

In Section Seekers of Perl Wisdom