作者：oulix
郵件：oulix@263.net
初次寫文，有疏漏、錯誤的地方請指正。
搞web開發(fā)的同志可能碰到過需要在頁面里嵌入發(fā)送郵件的功能，如果是普通的純文本的郵件還好，沒問題，用asp有好多組件，用cgi也有好工具，比如perl。在perl中使用unix平臺下的sendmail可以實現(xiàn)這個目的。Perl中發(fā)送純文本郵件的典型例子如下：
#!/usr/lib/perl
use strict;
my($r_mail) = 'recipients@aaa.net';
my($s_mail) = 'sender@bbb.com';
my($subject) = 'subject';
open(MAIL,'|/usr/lib/sendmail -t');
select(MAIL);
print<<"END_TAG";
To: $r_mail
From: $s_mail
Subject: $subject
郵件內(nèi)容
END_TAG
有幾點要注意，在發(fā)送郵件里To, From和接受者郵件地址變量$r_mail以及發(fā)送者郵件$s_mail之間
要留一個空格，避免不必要的報錯問題（我遇到過，不知道你有沒有碰到）。還有那個結(jié)束標(biāo)記
END_TAG如果是文件的最后一行，最好在后面加一兩個空行，我曾經(jīng)碰到?jīng)]后面的空行perl找不到
END_TAG的情況。還有，不要忘了subject之后的那個空行是必須的，它分開了郵件頭和郵件內(nèi)容。
好，進(jìn)入正題，如果我們需要發(fā)送html格式的郵件呢？如果寫成這樣
#!/usr/lib/perl
use strict;
my($r_mail) = 'recipients@aaa.net';
my($s_mail) = 'sender@bbb.com';
my($subject) = 'subject';
open(MAIL,'|/usr/lib/sendmail -t');
select(MAIL);
print<<"END_TAG";
To: $r_mail
From: $s_mail
Subject: $subject
<html><body><a href=#>郵件內(nèi)容</a></body></html>
END_TAG
試試看，在263里源代碼全顯示出來了，在hotmail中好點，如果郵件是個完整的html郵件，基本上
能夠完整的呈現(xiàn)html頁面。其實這里頭有個MIME類型的問題。詳細(xì)的MIME資料大家自己上網(wǎng)找吧，
否則扯得太遠(yuǎn)，我這點水不夠倒的。如果這個html郵件沒有連接任何圖片以及此類的外部內(nèi)容，那好辦，
在郵件頭部分加一句Content-type:text/html就可以了。如果使用了中文需要指定一下代碼頁，直接
在后面在添上charset="gb2312",中間用分號格開。完整代碼如下：
#!/usr/lib/perl
use strict;
my($r_mail) = 'recipients@aaa.net';
my($s_mail) = 'sender@bbb.com';
my($subject) = 'subject';
open(MAIL,'|/usr/lib/sendmail -t');
select(MAIL);
print<<"END_TAG";
To: $r_mail
From: $s_mail
Subject: $subject
Content-type:text/html;charset="gb2312"
<html><body><a href=#>郵件內(nèi)容</a></body></html>
END_TAG
這樣一般使用的接收郵件的工具都能看到html格式的郵件了。如果問題再復(fù)雜一點，
這個html頁面里有圖，還有flash，那怎么辦？會有辦法：把這些圖片放在網(wǎng)上，
頁面的圖片都寫全路徑鏈接，這樣就根本不需要在郵件里真的帶上這些累贅了，并且
還減小了郵件的大小，一舉兩得！我嚴(yán)重贊同。但是總有碰到不能這樣干的時候，所以
繼續(xù)。html頁面的對這些圖的鏈接并不能夠讓用戶收到的郵件里有這些圖和flash文件。
看到的html頁面是開了天窗的頁面?？纯碝IME類型，有個multipart/mixed的類型能夠完
成我們的最終目的，讓用戶收到的郵件是圖文并舉的完整頁面。首先需要按一定的編碼
方法對圖片或者flash等文件編碼，電子郵件中最常用的是base64編碼，還有
quoted-printable編碼。找個工具，把圖片等需要鏈入hmtl郵件的文件使用base64編碼，
對html郵件則使用quoted-printable編碼。然后，在郵件頭寫
Content-Type: multipart/mixed;boundary="----=_NextPart_000_0008_01C2BCB0.9CF9AE70" name="thanks.gif"
這里的multipart/mixed表示本郵件是混合類型的郵件。接下來的boundary是指定分隔
郵件內(nèi)容里各不同各部分的標(biāo)記是什么。這里就是----=_NextPart_000_0008_01C2BCB0.9CF9AE70了。
這個值必須要怎樣我不是很清楚，我的理解是在本郵件中能夠不與任何編碼后的某段
內(nèi)容相同就可以了。后面那個name可以不要。說起來比較羅索，還是先看代碼吧。
下面就是個完整的發(fā)送hmtl郵件的例子。
#!/usr/lib/perl
use strict;
my($r_mail) = 'recipients@aaa.net';
my($s_mail) = 'sender@bbb.com';
my($subject) = 'subject';
open(MAIL,'|/usr/lib/sendmail -t');
select(MAIL);
print<<"END_TAG";
To: $r_mail
From: $s_mail
Subject: $subject
Content-Type: multipart/mixed;boundary="----=_NextPart_000_0008_01C2BCB0.9CF9AE70"
This is a multi-part message in MIME format.
------=_NextPart_000_0008_01C2BCB0.9CF9AE70
Content-Type: text/html;charset="gb2312"
Content-Transfer-Encoding: quoted-printable
<HTML><HEAD><TITLE>=D0=BB=D0=BB=C4=FA=B5=C4=B2=CE=D3=EB=A3=A1</TITLE>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Dgb2312">
<META content=3D"MSHTML 6.00.2800.1126" name=3DGENERATOR></HEAD>
<BODY text=3D#000000 bgColor=3D#ffffff leftMargin=3D0 topMargin=3D0><IMG =
height=3D400=20
src=3D"file:///C:/DEV/perl/images/popup_thanks.gif" =
width=3D400=20
border=3D0></BODY></HTML>
------=_NextPart_000_0008_01C2BCB0.9CF9AE70
Content-Type: image/gif
Content-Transfer-Encoding: base64
Content-Disposition: attachment;filename="thanks.gif"
Content-Location: file:///C:/DEV/perl/images/popup_thanks.gif
R0lGODlhkAGQAfcAAPCyTdvr0cvbCJ8tTt3nAEeRGarPkRSmULrVqrRtLtbeB7CRNdTZ0LGtNaXJ
EaLR7ejz23e1GFir2NNMayaR0VWaLfjMRtnINsfWuYi6aGWsNevKN5PHdLZKMyZLC6smNs3nu8mI
NWetGBIqCOqXNdutkWyRRzZvEqvIK9fJSZGMNrSxSlalGO/36rS5revt6MySScswSperNZWtT9C3
------=_NextPart_000_0008_01C2BCB0.9CF9AE70--
END_TAG
有點長了，慢慢解釋吧。這封要發(fā)送的hmtl郵件里只有一張圖片popup_thanks.gif. 里面有一句話"This is a multi-part message in MIME format.", 放在第一個boundary出現(xiàn)
之前，這是個描述信息，不用管它。然后就是第一個boundary:
------=_NextPart_000_0008_01C2BCB0.9CF9AE70,它告訴用戶的郵件程序這里有一部份的內(nèi)容。注意這里是--boundary,就是說在boundary前面加了兩個-,大家還請注意看最后一個boundary,它的前后都加了兩個-，表示整個郵件結(jié)束。
Content-type:text/html;charset="gb2312" 說明本部分內(nèi)容的文檔類型是html格式的，
Content-Transfer-Encoding: quoted-printable 說明本部分內(nèi)容使用 quoted-printable 方法
編碼的，當(dāng)然，下面的內(nèi)容要確實是 quoted-printable 編碼的，否則用戶就看不到正確的內(nèi)容了。
郵件內(nèi)容沒什么好說的，然后是下一個 boundary，這里的東西就是我們要的那個popup_thanks.gif了。
看MIME類型是：Content-Type: image/gif 圖片一般就用base64編碼，所以這里是
Content-Transfer-Encoding: base64 再看下面是一行
Content-Disposition: attachment;filename="thanks.gif"
這里的attahment表示此圖片作為附件，它還可以是inline，那樣的話這個圖片就會直接在收件人的
郵件程序的郵件顯示區(qū)域里顯示了。filename指定了在附件區(qū)域顯示什么樣的文件名，這里就把
popup_thanks.gif改成了thanks.gif.下面還有一句
Content-Location: file:///C:/DEV/perl/images/popup_thanks.gif
指定文件的原始路徑。好像沒用啊？其實很重要，注意html文件里連接這個圖片的標(biāo)簽里的src是怎么樣寫
的？這兩個之間要是對不上，那末郵件顯示的時候，附件里有圖，但郵件還是開了天窗了。好了，基本
就是這樣。不，還有個問題，做程序的時候，怎樣才能得到需要的編碼后的文件?。縫erl里怎么樣做
我不知道，CPAN里也許有這樣的package吧，那位對編碼熟悉，也可以自己寫，不過我做得時候取巧了。
大家用過IE5的另存為.mht文件嗎？對了，就是它！把需要發(fā)送的html郵件用IE5在本地打開，再另存為
mht文件，所有的編碼都得到了，而且圖片的鏈接關(guān)系也都是現(xiàn)成的了，其他的按需要調(diào)整一下,帖到你的
程序里就萬事大吉。更進(jìn)一步，如果需要做到像263那樣，從頁面上接收包括正文，接受者以及各種可能的附件
等信息再發(fā)送呢？有點復(fù)雜了，也不是這里要討論的，那位高手做過這些東西，可以把經(jīng)驗貢獻(xiàn)出來，讓
我們一起學(xué)習(xí)，這篇就是拋磚之作了。
書面版權(quán)所有，書刊轉(zhuǎn)載請與本人聯(lián)系
參考了系列好文《用PHP發(fā)送MIME郵件》，里面有較為詳細(xì)的MIME介紹，強烈建議閱讀
致謝此文作者：Kartic Krishnamurthy 和譯者：limodou
桂公網(wǎng)安備45010502000253號
電子營業(yè)執(zhí)照
