如何於 Windows CGI 下使用如 UNIX Sendmail 方式寄信範例程式碼

以下是範例程式碼:

$|=1;
use NTsendmail; # NT需安裝 ActiveSta Perl

$ENV{"NTsendmail"} = "mail.servcomputing.com"; # 指定SMTP主機
$ENV{"NTsendmail_debug"}=1;
my $mail = new NTsendmail;
my $from = "webmaster\@servcomputing.com"; # 發信人
my $to = "123\@123.com"; # 收信人
my $subject = "Message from NTsendmail"; # 信件主題
my $message = "This a message sent by NT Sendmail "; # 信件本文
$mail->send($from, $to, $subject, $message);
exit 0;



  只要是您於本公司租用的 NT / 2000 虛擬主機上述的程式碼均可以正常無誤執行