Sample code:
use Mail::Sender;
$sender = new Mail::Sender;
if (ref $sender->OpenMultipart({
from => 'someone@somewhere.net', to => 'abc@xyz.com',
subject => 'Embedded Image Test',
ctype => "text/html",
boundary => 'boundary-test-1',
encoding => 'base64',
multipart => 'mixed'})) {
$sender->Body({msg => 'Hello World <img src="cid:smile1"
/>'});
$sender->Attach(
{description => 'pdf',
# ctype => 'appledouble',
encoding => 'base64',
disposition => "attachment;
filename=\"AWD.pdf\";",
file => '../AWD.pdf'
});
$sender->Attach({
# description => 'ed\'s JPG',
# ctype => 'appledouble',
encoding => 'base64',
disposition => "inline; filename=\"28055.JPG
\";\r\nContent-ID: <smile1>",
file => '../28055.JPG'
});
$sender->Close() or die "Close failed! $Mail::Sender::Error\n";
} else {
die "Cannot send mail: $Mail::Sender::Error\n";
}
In reply to Re^2: mail::sender - email header - IPAD
by themonk
in thread mail::sender - email header - IPAD
by themonk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |