RE: Related to: RE: email on win32

[Hill, Ronald]

> -----Original Message-----
> From: Mark Ross [mailto:[EMAIL PROTECTED]]
> Subject: Related to: RE: email on win32
> 
> How would one modify this to add an attachment to the email. 
> Say, a gif or
> jpg?
> 
you need the mimetools module for this.

use Mail::Internet;
use MIME::Entity;

$top = MIME::Entity-> build(   Type     => "multipart/mixed",
                               From    => 'you',
                               To      => 'me',
                               Subject => "test message",
                               );   

                               

$top->attach(    Path     => 'd:/hillr/yourstuff.doc',
                 Type     => "application/msword",
                 Encoding => "base64");

$top->attach(Path=>"d:/hillr/setup.log");

$top->smtpsend(host=>'cypntx.ugsolutions.com');