in reply to Re: mail::sender - email header - IPAD
in thread mail::sender - email header - IPAD
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";
}
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: mail::sender - email header - IPAD
by Anonymous Monk on Apr 18, 2012 at 05:45 UTC |