use Mail::Sender;
eval {
(new Mail::Sender)
->OpenMultipart({
to => 'someone@somewhere.com',
subject => 'Alternatives with images',
# debug => 'c:\temp\zkMailFlow.log',
multipart => 'related',
})
->Part({ctype => 'multipart/alternative'})
->Part({ ctype => 'text/plain', disposition => 'NONE', msg => <<'*END*' })
A long
mail
message.
*END*
->Part({ctype => 'text/html', disposition => 'NONE', msg => <<'*END*'})
A long
mail
message.
*END*
->EndPart("multipart/alternative")
->Attach({
description => 'ed\'s jpg',
ctype => 'image/jpeg',
encoding => 'base64',
disposition => "inline; filename=\"0518m_b.jpg\";\r\nContent-ID: ",
file => 'E:\pix\humor\0518m_b.jpg'
})
->Close();
} or print "Error sending mail: $Mail::Sender::Error\n";