regarding the Net-SMTP for windows(i use activestate perl), i can't find, but found NetServer-SMTP. Is it the same?
in linux environment, i use the below command line to sendmail. so in windows, after installing the NetServer-SMTP, can i use back the below scripts?
if not, how is the script look like?
$mailprog = "/usr/sbin/sendmail -t";
$stmt = "SELECT DISTINCT EMAIL FROM abc
$sth = $dbh->prepare($stmt);
$sth->execute;
while($row_ref = $sth->fetchrow_arrayref) {
$D_EMAIL = $row_ref->[0];
$mail_flag = "Content-Type: text/html; charset=us-ascii"
open(MAIL, "|$mailprog"
;
print MAIL <<"mail_tag";
To: $D_EMAIL
From:
Subject: $F_SUBJECT
$mail_flag
$F_MSG
mail_tag
close(MAIL);
}
$sth->finish;
in linux environment, i use the below command line to sendmail. so in windows, after installing the NetServer-SMTP, can i use back the below scripts?
if not, how is the script look like?
$mailprog = "/usr/sbin/sendmail -t";
$stmt = "SELECT DISTINCT EMAIL FROM abc
$sth = $dbh->prepare($stmt);
$sth->execute;
while($row_ref = $sth->fetchrow_arrayref) {
$D_EMAIL = $row_ref->[0];
$mail_flag = "Content-Type: text/html; charset=us-ascii"
open(MAIL, "|$mailprog"
print MAIL <<"mail_tag";
To: $D_EMAIL
From:
Subject: $F_SUBJECT
$mail_flag
$F_MSG
mail_tag
close(MAIL);
}
$sth->finish;