主頁(yè) > 知識(shí)庫(kù) > Perl中使用MIME::Lite發(fā)送郵件實(shí)例

Perl中使用MIME::Lite發(fā)送郵件實(shí)例

熱門標(biāo)簽:電話機(jī)器人哪里有賣 上海企業(yè)外呼系統(tǒng) 河南虛擬外呼系統(tǒng)公司 okcc外呼系統(tǒng)怎么調(diào)速度 外呼電信系統(tǒng) 熱門電銷機(jī)器人 智能機(jī)器人電銷神器 惠州龍門400電話要怎么申請(qǐng) 萬(wàn)利達(dá)百貨商場(chǎng)地圖標(biāo)注

有時(shí)候我們?cè)诓渴鹉_本的時(shí)候,我們想知道,我們的程序執(zhí)行的怎么樣了,想得到執(zhí)行的結(jié)果,這樣我們也能放心很多是吧,那么在程序執(zhí)行成功或失敗的時(shí)候能夠給我沒(méi)發(fā)個(gè)郵件很是很不錯(cuò)的。

其實(shí)利用perl發(fā)郵件的方法有很多種,包括你在cpan上搜索mail關(guān)鍵字是一大堆,經(jīng)過(guò)實(shí)踐,MIME::Lite用來(lái)發(fā)郵件還是很合適的,最不可思議的是它可以幫你輕松的發(fā)送帶有附件的郵件哦。

下面我們就以MIME::Lite發(fā)郵件為例:

在cpan上面有關(guān)于它的詳細(xì)的用法(http://search.cpan.org/~rjbs/MIME-Lite-3.028/lib/MIME/Lite.pm)

它發(fā)郵件的方式有兩種,第一種最簡(jiǎn)單就是利用系統(tǒng)自身的mail程序,比如sendmail來(lái)進(jìn)行,運(yùn)行sendmail當(dāng)然也許要具有root的權(quán)限了

另一個(gè)就是通過(guò)smtp的方式了,我們會(huì)以網(wǎng)易的163郵箱為例說(shuō)明。

我們先以默認(rèn)發(fā)送方式(sendmail)為例說(shuō)明:

復(fù)制代碼 代碼如下:

#!/usr/bin/perl -w
use MIME::Lite;
my    $msg = MIME::Lite->new(
From     => ‘chenqing663@163.com',

To       => ‘chenqing663@foxmail.com',

Cc       => ‘some@other.com, some@more.com',
Subject  => ‘hello,my first mail from chenqing.org',
Type  => ‘multipart/mixed',
Data =>' other data'
);

$msg->attach(
Type     => ‘image/png',
Disposition => ‘a(chǎn)ttachment',
Filename => ‘other.png',
Path => ‘/home/king/perl/logo.png'
);

$msg->send;


再來(lái)一個(gè)html格式的:

復(fù)制代碼 代碼如下:

#!/usr/bin/perl -w
use MIME::Lite;
my    $msg = MIME::Lite->new(
From     => ‘chenqing663@163.com',

To       => ‘chenqing663@foxmail.com',

Cc       => ‘some@other.com, some@more.com',
Subject  => ‘hello,my first mail from chenqing.org',
Type  => ‘multipart/mixed',
Data =>' other data'
);

$msg->attach(
Type => ‘text/html',
Data => qq{
body>
這是我的 b>good/b> image:
img src=”cid:logo.png”>
/body>
},
);

$msg->attach(
Type     => ‘image/png',
Disposition => ‘a(chǎn)ttachment',
Filename => ‘other.png',

Id => ‘logo.png',
Path => ‘/home/king/perl/logo.png'
);

$msg->send;

下面看看怎么用smtp的方式發(fā)送:

復(fù)制代碼 代碼如下:

#!/usr/bin/perl -w

use MIME::Lite;

use MIME::Base64;
use Authen::SASL;
my $host='smtp.163.com';
my $pass='yourpass';
my $user='xxx@163.com';
my    $msg = MIME::Lite->new(
From     => ‘xxx@163.com',

To       => ‘chenqing663@foxmail.com',

Cc       => ‘some@other.com, some@more.com',
Subject  => ‘hello,my first mail from chenqing.org',
Type  => ‘multipart/mixed',
Data =>' other data'
);

$msg->attach(
Type => ‘text/html',
Data => qq{
body>
這是我的 b>good/b> image:
img src=”cid:logo.png”>
/body>
},
);

$msg->attach(
Type     => ‘image/png',
Disposition => ‘a(chǎn)ttachment',
Filename => ‘other.png',

Id => ‘logo.png',
Path => ‘/home/king/perl/logo.png'
);

MIME::Lite->send(‘smtp', $host, Timeout=>60,    AuthUser=>$user, AuthPass=>$pass);
$msg->send;

是不是很簡(jiǎn)單呢?

標(biāo)簽:綿陽(yáng) 秦皇島 淮安 合肥 周口 周口 百色 綏化

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《Perl中使用MIME::Lite發(fā)送郵件實(shí)例》,本文關(guān)鍵詞  Perl,中,使用,MIME,Lite,發(fā)送,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《Perl中使用MIME::Lite發(fā)送郵件實(shí)例》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于Perl中使用MIME::Lite發(fā)送郵件實(shí)例的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章