On 02/02/2007 02:25 PM, Romeo Theriault wrote:
[...]
   my $smtp = Net::SMTP_auth->new('miranda.umfk.maine.edu');
   $smtp->auth('LOGIN', 'user', 'password');

   $smtp->mail($from);
   $smtp->to($to);
   $smtp->data();
   $smtp->datasend("To: $to\n");
   $smtp->datasend("Subject: $subject\n");

Try sending a blank line here:

        $smpt->datasend("\n");

A blank line typically separates the headers from the beginning of
message data. Look at the example at the top of the POD for Net::SMTP again.

   $smtp->datasend($file);
   $smtp->dataend();

   $smtp->quit;
}
#print $file; # this actually prints the file
close(IN);



HTH


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to