my $msg = MIME::Lite->new(
To =>'blah@blah.blah',
from =>'inline@images@suq',
Subject =>'HTML with in-line images!',
Disposition =>'inline',
Type =>'multipart/related'
);
$msg->attach(Type => 'text/html',
Data => qq{
Here's my image:
test
}
);
$msg->attach(Type => 'image/jpeg',
Id => 'twitter-white.jpg',
Path => 'twitter-white.jpg',
);
test
}
);
$msg->attach(Type => 'image/jpeg',
Id => 'twitter-white.jpg',
Path => 'twitter-white.jpg',
);