大牛Help ，我只要发送邮件就行，新学者，求模版

mcskyding

我用的是Imap邮箱，（Exchange的），希望可以给个模板。不是我想伸手啊，是真的看不懂好多英语啊，而且我下了模块，运行的时候总提醒can't locate Encode,can't locate Mail/ImapClient.pm.
求助了，谢谢了！

mcskyding

自顶一番，求人来助！

旋转小马

用sendEmail，网上直接下载，是一个perl脚本，可以直接调用

mcskyding

回复 3# 旋转小马


    sendmail发出去的邮件，我们公司网络全部拒接，163，qq这些邮箱公司网连不上，只能用perl连接IMAP了

旋转小马

#!/usr/bin/perl
use strict;
use warnings;
use Net::SMTP;
use Encode;
my $mailhost="mail.qq.com";#邮箱服务器
my $mailfrom='1256517918@qq.com';#发件人
my $mailto='123456123@qq.com';#收件人
my $subject="test";
my $text="钓鱼岛是中国的，苍井空是世界的！";#邮件内容
$subject=decode("utf8",$subject);
$subject=encode("GB2312",$subject);
$text=decode("utf8",$text);
$text=encode("GB2312",$text);
my $smtp = Net::SMTP->new($mailhost, Hello => 'localhost', Timeout => 120, Debug => 1);
$smtp->auth('1256517918','haoren123');#括号内第一个单引号之内是发件人，第二个单引号之内是密码
#my @arry=<TXT>;
$smtp->mail($mailfrom);
$smtp->to($mailto);
$smtp->data();
$smtp->datasend("To: $mailto\n");
$smtp->datasend("From: $mailfrom\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$text\n");
#$smtp->datasend("@arry\n");
$smtp->dataend();
$smtp->quit;

这是很久之前写过的了，不知道现在还适用不适用，你自己再调试调试吧