|
如何於 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 虛擬主機上述的程式碼均可以正常無誤執行 |
|
|