大牛Help ，我只要發(fā)送郵件就行，新學(xué)者，求模版

mcskyding

我用的是Imap郵箱，（Exchange的），希望可以給個模板。不是我想伸手啊，是真的看不懂好多英語啊，而且我下了模塊，運行的時候總提醒can't locate Encode,can't locate Mail/ImapClient.pm.
求助了，謝謝了！

mcskyding

自頂一番，求人來助！

旋轉(zhuǎn)小馬

用sendEmail，網(wǎng)上直接下載，是一個perl腳本，可以直接調(diào)用

mcskyding

回復(fù) 3# 旋轉(zhuǎn)小馬


    sendmail發(fā)出去的郵件，我們公司網(wǎng)絡(luò)全部拒接，163，qq這些郵箱公司網(wǎng)連不上，只能用perl連接IMAP了

旋轉(zhuǎn)小馬

#!/usr/bin/perl
use strict;
use warnings;
use Net::SMTP;
use Encode;
my $mailhost="mail.qq.com";#郵箱服務(wù)器
my $mailfrom='1256517918@qq.com';#發(fā)件人
my $mailto='123456123@qq.com';#收件人
my $subject="test";
my $text="釣魚島是中國的，蒼井空是世界的！";#郵件內(nèi)容
$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');#括號內(nèi)第一個單引號之內(nèi)是發(fā)件人，第二個單引號之內(nèi)是密碼
#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;

這是很久之前寫過的了，不知道現(xiàn)在還適用不適用，你自己再調(diào)試調(diào)試吧