I just did this, have fun ^^
you must install Mail-sendmail module
#CODE STARTS HERE
#!d:\perl\bin\perl.exe -w
use strict;
use Mail::Sendmail;
my %mymail;
# use =cut =cut for /* */
my ($To, $subject, $body);
$subject = "subject goes here";
$To = "[EMAIL PROTECTED]";
$body = "Hello friend, \nThis may be of interest to you\nEric";
%mymail = ( To => $To,
From => '[EMAIL PROTECTED]',
Message => $body,
smtp => 'local.smtp.mymailserver.com', #this could be any
local smtp
server
Subject => $subject
);
sendmail(%mymail) or die $Mail::Sendmail::error;
print "OK. log says: \n", $Mail::Sendmail::log;
#CODE ENDS HERE
*********************************************************
*Eric T. Wang *
*Bioinformatic Support *
*University of California, Irvine College of Medicine *
*Department of Biological Chemistry *
*RK Moyzis Lab *
*[EMAIL PROTECTED] *
*949-824-1870 *
*********************************************************
On Wed, 22 May 2002, Lance Prais wrote:
> HOW CAN I SEND MAIL USING PERL ON NT? DOES ANYONE KNOW OF EXAMPLES THAT
> ARE OUT THERE ON THE WE?
>
>
> THANKS
> LANCE
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
