• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

windows95/98,nt下如何发email

在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

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)正常运行过
# sender's 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\"")

　　

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范