Re^3: Help sending with MIME::Lite


Just another Perl shrine
	PerlMonks

Re^3: Help sending with MIME::Lite

by waswas-fng (Curate)

on Sep 17, 2004 at 21:40 UTC ( [id://391906]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Help sending with MIME::Lite
in thread Help sending with MIME::Lite

err remove Data =>"Hey here is your file!\n" so it looks like:

sub mailme {
        my $msg = MIME::Lite->new(
           From    => 'EDM01 <root@edm01.ohnet>', 
           To     =>  'Derek Smith <dbsmith@ohiohealth.com>',
           Subject => "EDM Return Tapes" );
             
           $msg->attach(Type     =>'image/gif',  #whatever the MIME ty
+pe is
                 Path     =>"$scratchps",
                 Filename =>'scratchps',
                 Disposition => 'attachment'
                 );
        $msg->send;
        }

if ( -s $scratchtps ) {
        &mailme;
}
[download]

-Waswas