Windows9598,NT下如何发EMAIL

cnangel

作者：小歪歪
email: annysun@163.net
日期：2000-9-1 15:38:46
在UNIX环境下,CGI程序发EMAIL都是用sendmail, 在Windows95/98,NT没有sendmail,CGI程序如何发邮件呢?其实方法多得很呢!
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

1. use Net::SMTP;
2. {
3. my $to = ';preston@home.com';;
4. my $from = $ENV{USER} || $ENV{USERNAME};
5. my $subject = "Another test";
6. my $smtp = Net::SMTP->new(';mail';);
7. $smtp->mail($from);
8. $smtp->to($to);
9. $smtp->data();
10. $smtp->datasend("To: $to\n");
11. $smtp->datasend("From: $from\n");
12. $smtp->datasend("Subject: $subject\n");
13. $smtp->datasend("X-MyToken: ABCD\n");
14. $smtp->datasend("\n");
15. $smtp->datasend("A simple test message\n");
16. $smtp->dataend() || print "FAILED send!\n";
17. $smtp->quit;
18. }
19. print "\nMAIL sent OK\n";

复制代码

-----
注意"$ENV{USER}"是Unix中用的,而$ENV{USERNAME}"是Windows NT中用的
3.用Outlook发邮件
下面的程序在Perl for Win32 (build 316)正常运行过

1. # Sender';s Name and Password
2. #
3. my $sender = "Microsoft Outlook"; # profile to be used
4. my $passwd = "MS Exhange Settings Password"; #profile password
5. # Create a new MAPI Session
6. #
7. use OLE;
8. $session = CreateObject OLE ';MAPI.Session'; || die $!;
9. my $err = $session->Logon($sender, $passwd);
10. if ($err) {
11. die "Logon failed: $!";
12. }
13. # Add a new message to the Outbox.
14. #
15. $msg = $session->Outbox->Messages->Add();
16. # Add the recipient.
17. #
18. $rcpt = $msg->Recipients->Add();
19. $rcpt->{Name} = ';recepient@host.org';; # email address of recepient
20. $rcpt->Resolve();
21. # Create a subject and a body.
22. #
23. $msg->{Subject} = "Test Message";
24. $msg->{Text} =
25. "This is a sample test message. Using NT 4.0.
26. Cheers,
27. Mr. Email";
28. # Send the message and log off.
29. #
30. $msg->Update();
31. $msg->Send(0, 0, 0);
32. $session->Logoff();
33. [code]
34. 发送附件和拷贝也可以
35. [code]
36. $recipient=';user@host.com';;
37. $attachment=';c:/attach.doc';
38. $profile="MS Exchange Settings";#profile name
39. $mailmeessage="HELLO";
40. $password="MS Exhange Settings Password";#profile password
41. $subject=';TEST';;
42. system("mapisend -u \"$profile\" -p \"$password\" -f \"$attachment\" -s
43. \"$subject\" -r $recipient -m \"$mailmessage\"")

复制代码