http://qs321.pair.com?node_id=391887


in reply to Help sending with MIME::Lite

Try attaching the file: 

sub mailme {
        my $msg = MIME::Lite->new(
           From    => 'EDM01 <root@edm01.ohnet>', 
           To     =>  'Derek Smith <dbsmith@ohiohealth.com>',
           Subject => "EDM Return Tapes",
           Data    =>"Hey here is your file!\n" );
             
           $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

Replies are listed 'Best First'.
Re^2: Help sending with MIME::Lite
by drock (Beadle) on Sep 17, 2004 at 21:07 UTC
    sweetness, it is attaching the file but not the actual data with the file??? so I have an email with an attachment but when I open the attachment it contains my Data => "Here are you files today"
[reply]
      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
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom