And please take some effort when spelling and choosing a title

# example from the module docs:
use Mail::Sender;
eval {
(new Mail::Sender {on_errors => 'die'})
        ->OpenMultipart({
            smtp    => 'destination.mail.server',
            to      => 'destination_email_addr',
            subject => 'your subject',
            from    => 'source_email_addr'
        })
        ->Body({ msg => <<'*END*' })
Could anybody pleassss send ma any sample scrip
using Mail::Mailer and send mail. Sending mail form on NT.
Massege is coming from Html page. Its urgent plssss thanks
  _End_ of letter
*END*
        ->Attach({
           description => 'Perl module Mail::Sender.pm',
           ctype       => 'application/x-zip-encoded',
           encoding    => 'Base64',
           disposition => 'attachment; filename="Sender.zip"; type="ZI
+P archive"',
           file        => 'c:\boot.ini'
        })
        ->Close();
} or print "Error sending mail: $@\n";
[download]

Do you actually have sendmail installed on your server? I would imagine sendmail could be compiled on NT, but I've never heard of it actually being used there. I could be wrong, but if so it can't be very common. You might want to use SMTP instead. In that case you need to know the SMTP server address, which might or might not be localhost. Other posts show how to use Mail::Mailer with SMTP.

If you are running IIS with the Microsoft SMTP Service locally, and want to use it directly for some reason, something like the following code ought to work (untested since my win32 box is not here) update: switched to newer CDO version:

use Win32::OLE;
my $mailer = new Win32::OLE 'CDO.Message';
$mailer->{From} = 'me@example.com';
$mailer->{To} = 'you@example.com';
$mailer->{Subject} = 'subject here';
$mailer->{BodyText} = 'body here';
$mailer->Send();
[download]