RE: :SMTP / HTML

Thu, 12 Sep 2002 04:22:08 -0700 

#!/usr/bin/perl -w

# Link for Sven:
# http://search.cpan.org/author/ERYQ/MIME-Lite-2.117/lib/MIME/Lite.pm


# Send HTML document with inline images

# MIME::Lite a purely perly sorta thing, so
# if it's not installed in @INC we can put
# it there without problems....

BEGIN {
 unshift(@INC,"/path/to/our/own/modules");
}

use strict;
use MIME::Lite;

# Create a new MIME Lite object
my $msg = MIME::Lite->new(
   From    =>'[EMAIL PROTECTED]',
   To      =>'[EMAIL PROTECTED]',
   Subject =>'Hi',
   Type    =>'multipart/related');

# Add the body to your HTML message
$msg->attach(Type => 'text/html',
             Data => qq{ <BODY BGCOLOR=#FFFFFF>
             <H2>Hi</H2>
                 <P ALIGN="left">
                  This is an HTML message.
                 </P>
                 <P ALIGN="left">
                  <A HREF="http://foo123.com/";>Here's a link</A>.
                 </P>
                 <P ALIGN="middle">
                  <IMG SRC="cid:img.jpg";>
                 </P>
                 </BODY> });

# Attach the image
$msg->attach(Type => 'image/gif',
             Id   => 'img.gif',
             Path => '/path/to/img.gif');

# Send it
$msg->send();


-----
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
http://www.insiteful.tv



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to