Re^2: Sending email with attachments using Email::Mime

[gezb]

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.

[wjw]

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...

[cord-bin]

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

For the illegal seek error, just delete these lines, you don't need them:

#print "error1 $!\n";
#print "error2 $Mail::Sendmail::error\n";

Cheers, have fun!

[gezb]

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