#!/usr/local/bin/perl -w
use strict;
use Mail::Sender;
my $sender = new Mail::Sender { smtp => 'myserver.com' };
$sender->OpenMultipart( {
from => 'Jonathan@myserver.com',
to => 'Jonathan@anotherbox.com',
subject => 'Embedded image test',
subtype => 'related',
boundary => 'boundary-test-1',
type => 'multipart/related'} );
$sender->SendFile ( {
description => 'html body',
ctype => 'text/html; charset=us-ascii',
encoding => '7bit',
disposition => 'NONE',
file => 'test.html'} );
$sender->SendFile ( {
description => 'Company logo',
ctype => 'image/gif',
encoding => 'base64',
disposition => "inline; filename=\"picture.gif\";\r\nContent-ID,
file => 'picture.gif'} );
$sender->Close();
__END__
And the html file test.html
Test message
This is a test message