|
发表于 2004-1-14 21:57:44
|
显示全部楼层
置顶有一贴是发电子邮件的。
以下有HOME兄发表:
来自internet使用Mial::Internet发送电子邮件。
#!/usr/bin/perl -w
use Mail::Internet; #load module.
my $head=Mail::Header->new;
$head->add(From => 'John Doe <doe@acme.org>'); #创建邮件的头部,use Mail::Header model.please look at perldoc Mail::Header
$head->add(To => 'L Stein <lstein@lsjs.org>' );
$head->add(Cc => 'jac@acome.org');
$head->add(Cc => 'vvd@acome.org');
$head->add(Subject => 'hello there');
my $body = <<END ; #editor contain of mail
This is just a simple e-mail message.
Nothing to get excited about.
Regards, JD
END
$mail =Mail::Internet->new(Header => $head ,#这几行是创建Mail::Internet对象,
Body => [$body] ,
Modify => 1 );
print $mail->send('sendmail'); #发送邮件。 |
|