my $msg=MIME::Lite->new(
   From=>$Mail_From,
   To=>$Mail_To,
   CC=>$Mail_CC,
   subject=>$Mail_Subject,
   Type=>'$Mail_Type',
   Path=>$Mail_Path,
   Filename=>$Mail_Filename
);
[download]

oh yes ... i have changed to and then without error ... thx ...

    ### Cat (Unix only):
    if (1) {
    my $path = "$gifpath";
    $msg->attach(Subject => "Cat path to pipe, and read that",
             Path => $path,
[download]

the program can run without error ... however ... i can't receive the mail ... maybe my program can't send actually after reading the docs in the module : Change how messages are sent

    ### Do something like this in your 'main':
    if ($I_DONT_HAVE_SENDMAIL) {
       MIME::Lite->send('smtp', "smtp.myisp.net", Timeout=>60);
    }
     
    ### Now this will do the right thing:
    $msg->send;         ### will now use Net::SMTP as shown above
[download]

my NT machine hasn't SENDMAIL ... how can i change the way of how i send ? here is my test mail written so far...

#!/usr/bin/perl -w

use strict;
use MIME::Lite;
use Getopt::Std;

#------------------------------
# main
#------------------------------
sub main {
    my %opts;

    ### Get options:
    getopts('', \%opts) or die "usage error\n";
    my $gifpath = $ARGV[0] || die "missing path to GIF\n";

    ### Create message:
    my $msg = MIME::Lite->new(
                    To       => 'ustchu@sinaman.com',
                    Subject  => 'GIF test',
                    Type     => 'multipart/mixed');
    

    ### Read data:
    open IN, "<$gifpath" or die "open $gifpath: $!\n";
    binmode IN;
    my @data;
    local $_ = '';
    while (read(IN, $_, 1024)) {
    push @data, $_;
    }
    close IN;

    ### Direct path:
    if (1) {
    my $path = $gifpath;
    $msg->attach(Subject => "Read path directly",
             Path => $path,
             Type => 'image/gif');
    }

    ### Cat (Unix only):
    if (1) {
    my $path = "$gifpath";
    $msg->attach(Subject => "Cat path to pipe, and read that",
             Path => $path,
             Type => 'image/gif');
    }

    ### Array:
    if (1) {
    $msg->attach(Subject => "Read data as array",
             Data => \@data,
             Type => 'image/gif');
    }

    ### String:
    if (1) {
    $msg->attach(Subject => "Read data as string",
             Data => join('', @data),
             Type => 'image/gif');
    }

    ### Output:
#    $msg->print(\*STDOUT);
}
exit(&main ? 0 : -1);
1;
__END__
[download]

Edit: 2001-03-09 by mirod: added <code> tags

MIME::Lite->send('smtp','mailrelay');
[download]

  #$i is an object i declared previously

  #read in all values (using CGI.pm)
  my @names = &param();
  foreach my $field (@names) {
      $FORM{$field} = &param($field);
  }
  #read in the data uploaded, and save it into a hashkey
  if ($FORM{'resume'}) {
    #read in the resume's data
    my ($data,$size);
    while( $size = read( $FORM{'resume'}, $data, 1024) ) {
        $FORM{'resume_data'} .= $data;
        $FORM{'resume_size'} += $size;
    }
  }

#----

  #resume is the form field of type 'FILE'
  $FORM{'resume'} =~ m!([^/:\\]*)$!;    #get file name/ext
  my $shortname = $1;            #file name (with no slashes or colons
+)

#----

  #create a new message
  my $msg = MIME::Lite->new(
    From    => "$FORM{'email'}",
    To    => "personnel\@company.com",
    Subject    => "Resume",
    Type    => 'TEXT',
    Data    => "Resume is <attached> to this email as <$shortname>",
  ) || return $i->error("Cannot create new email message object!");

    
  #attach resume data 
  $msg->attach(
    Type     => 'application/octet-stream',
    Encoding => 'base64',
    Data     => $FORM{'resume_data'},
    Filename => $shortname,
  ) || return $i->error("Cannot attach your resume to the email!");


  #tell MIME::Lite how to send this email
  MIME::Lite->send('smtp', 'company.com', Timeout=>30)
    || return $i->error("Unable to set the email 'send' properties!");

  #actually send it
  $msg->send()
    || return $i->error("Unable to send email with your resume!");
[download]

See RE: sending email for an example of code that works on Linux and NT. (Narrowing down operating systems like this reminds me of the Blues Brothers: "What types of music do you have here?" "Oh, both types: Country and Western.")

Chris
M-x auto-bs-mode