1.windows环境下发邮件程序
这类程序很多,如blat,sendmail for windows,cgimail等等,它们的用法和unix下的sendmail极其相似,许多unix下cgi程序不用怎么修改就可以在windows下使用.
blat http://www.blat.com (免费)
sendmail for nt http://www.sendmail.com (商业软件)
cgimail http://www.stalkerlab.ch/ (免费)
sendmail for windows http://www.green-bean.com/bcware/sendmail.htm (共享软件)
另外zeng hui朋友(zeng_h@mail.hb.cnpc.com.cn)给我来信说他发现在sambar 4.1中的bin目录下有个mailit.exe文件,其功能与blat.exe相同,而且不用先安装.
2.采用perl模块net::smtp
系统必须支持smtp协议,nt中可安装exchange server
use net::smtp;
{
my $to = preston@home.com;
my $from = $env{user} || $env{username};
my $subject = "another test";
my $smtp = net::smtp->new(mail);
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("to: $to\n");
$smtp->datasend("from: $from\n");
$smtp->datasend("subject: $subject\n");
$smtp->datasend("x-mytoken: abcd\n");
$smtp->datasend("\n");
$smtp->datasend("a simple test message\n");
$smtp->dataend() || print "failed send!\n";
$smtp->quit;
}
print "\nmail sent ok\n";
-----
注意"$env{user}"是unix中用的,而$env{username}"是windows nt中用的
3.用outlook发邮件
下面的程序在perl for win32 (build 316)正常运行过
# senders name and password
#
my $sender = "microsoft outlook"; # profile to be used
my $passwd = "ms exhange settings password"; #profile password
# create a new mapi session
#
use ole;
$session = createobject ole mapi.session || die $!;
my $err = $session->logon($sender, $passwd);
if ($err) {
die "logon failed: $!";
}
# add a new message to the outbox.
#
$msg = $session->outbox->messages->add();
# add the recipient.
#
$rcpt = $msg->recipients->add();
$rcpt->{name} = recepient@host.org; # email address of recepient
$rcpt->resolve();
# create a subject and a body.
#
$msg->{subject} = "test message";
$msg->{text} =
"this is a sample test message. using nt 4.0.
cheers,
mr. email";
# send the message and log off.
#
$msg->update();
$msg->send(0, 0, 0);
$session->logoff();
发送附件和拷贝也可以
$recipient=user@host.com;
$attachment=c:/attach.doc
$profile="ms exchange settings";#profile name
$mailmeessage="hello";
$password="ms exhange settings password";#profile password
$subject=test;
system("mapisend -u \"$profile\" -p \"$password\" -f \"$attachment\" -s
\"$subject\" -r $recipient -m \"$mailmessage\"")
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
