搞web 開發 的同志可能碰到過需要在頁面裡嵌入發送郵件的功能，如果是普通的純文本的郵件還好，沒問題，用asp有好多組件，用cgi也有好工具，比如perl。在perl中使用 unix 平台下的sendmail可以實現這個目的。Perl中發送純文本郵件的典型例子如下： #!/usr/li
搞web
開發的同志可能碰到過需要在頁面裡嵌入發送郵件的功能，如果是普通的純文本的郵件還好，沒問題，用asp有好多組件，用cgi也有好工具，比如perl。在perl中使用
unix平台下的sendmail可以實現這個目的。Perl中發送純文本郵件的典型例子如下：
#!/usr/lib/perl
use strict;
my($r_mail) = '
[email protected]';
my($s_mail) = '
[email protected]';
my($subject) = 'subject';
open(MAIL,'|/usr/lib/sendmail -t');
select(MAIL);
print<<"END_TAG";
To: $r_mail
From: $s_mail
Subject: $subject
郵件內容
END_TAG
有幾點要注意，在發送郵件裡To, From和接受者郵件地址變量$r_mail以及發送者郵件$s_mail之間要留一個空格，避免不必要的報錯問題（我遇到過，不知道你有沒有碰到）。還有那個結束標記END_TAG如果是文件的最後一行，最好在後面加一兩個空行，我曾經碰到沒後面的空行perl找不到END_TAG的情況。還有，不要忘了subject之後的那個空行是必須的，它分開了郵件頭和郵件內容。
好，進入正題，如果我們需要發送html格式的郵件呢？如果寫成這樣
#!/usr/lib/perl
use strict;
my($r_mail) = '
[email protected]';
my($s_mail) = '
[email protected]';
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=#>郵件內容</a></body></html>
END_TAG
試試看，在263裡源代碼全顯示出來了，在hotmail中好點，如果郵件是個完整的html郵件，基本上能夠完整的呈現html頁面。其實這裡頭有個
MIME類型的問題。詳細的MIME資料大家自己上網找吧，否則扯得太遠，我這點水不夠倒的。如果這個html郵件沒有連接任何圖片以及此類的外部內容，那好辦，在郵件頭部分加一句Content-type:text/html就可以了。如果使用了中文需要指定一下代碼頁，直接在後面在添上charset="gb2312",中間用分號格開。完整代碼如下：
#!/usr/lib/perl
use strict;
my($r_mail) = '
[email protected]';
my($s_mail) = '
[email protected]';
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=#>郵件內容</a></body></html>
END_TAG
這樣一般使用的接收郵件的工具都能看到html格式的郵件了。如果問題再復雜一點，這個html頁面裡有圖，還有flash，那怎麼辦？會有辦法：把這些圖片放在網上，頁面的圖片都寫全路徑鏈接，這樣就根本不需要在郵件裡真的帶上這些累贅了，並且還減小了郵件的大小，一舉兩得！我嚴重贊同。但是總有碰到不能這樣干的時候，所以繼續。html頁面的對這些圖的鏈接並不能夠讓用戶收到的郵件裡有這些圖和flash文件。看到的html頁面是開了天窗的頁面。看看MIME類型，有個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是指定分隔郵件內容裡各不同各部分的標記是什麼。這裡就是----=_NextPart_000_0008_01C2BCB0.9CF9AE70了。這個值必須要怎樣我不是很清楚，我的理解是在本郵件中能夠不與任何編碼後的某段內容相同就可以了。後面那個name可以不要。說起來比較羅索，還是先看代碼吧。
下面就是個完整的發送hmtl郵件的例子。
#!/usr/lib/perl
use strict;
my($r_mail) = '
[email protected]';
my($s_mail) = '
[email protected]';
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
R0lGODlhkAGQAfcAAPCyTdvr0c
vbCJ8tTt3nAEeRGarPkRSmULrVqrRtLtbeB7CRNdTZ0LGtNaXJ
Ea
LR7ejz23e1GFir2NNMayaR0VWaLfjMRtnINsfWuYi6aGWsNevKN5PHdLZKMyZLC6smNs3nu8mI
NWetGBIqCOqXNdutkWyRRzZvEqvIK9fJSZGMNrSxSlalGO/36rS5revt6MySScswSperNZWtT9C3
------=_NextPart_000_0008_01C2BCB0.9CF9AE70--
END_TAG
有點長了，慢慢解釋吧。這封要發送的hmtl郵件裡只有一張圖片popup_thanks.gif. 裡面有一句話"This is a multi-part message in MIME format.", 放在第一個boundary出現之前，這是個描述信息，不用管它。然後就是第一個boundary:------=_NextPart_000_0008_01C2BCB0.9CF9AE70,它告訴用戶的郵件程序這裡有一部份的內容。注意這裡是--boundary,就是說在boundary前面加了兩個-,大家還請注意看最後一個boundary,它的前後都加了兩個-，表示整個郵件結束。
Content-type:text/html;charset="gb2312" 說明本部分內容的文檔類型是html格式的，Content-Transfer-Encoding: quoted-printable 說明本部分內容使用 quoted-printable 方法編碼的，當然，下面的內容要確實是 quoted-printable 編碼的，否則用戶就看不到正確的內容了。
郵件內容沒什麼好說的，然後是下一個 boundary，這裡的東西就是我們要的那個popup_thanks.gif了。
看MIME類型是：Content-Type: image/gif 圖片一般就用base64編碼，所以這裡是Content-Transfer-Encoding: base64 再看下面是一行Content-Disposition: attachment;filename="thanks.gif" 這裡的attahment表示此圖片作為附件，它還可以是inline，那樣的話這個圖片就會直接在收件人的郵件程序的郵件顯示區域裡顯示了。filename指定了在附件區域顯示什麼樣的文件名，這裡就把popup_thanks.gif改成了thanks.gif.下面還有一句Content-Location: file:///C:/DEV/perl/images/popup_thanks.gif指定文件的原始路徑。好像沒用啊？其實很重要，注意html文件裡連接這個圖片的標簽裡的src是怎麼樣寫的？這兩個之間要是對不上，那末郵件顯示的時候，附件裡有圖，但郵件還是開了天窗了。好了，基本就是這樣。不，還有個問題，做程序的時候，怎樣才能得到需要的編碼後的文件啊？perl裡怎麼樣做我不知道，CPAN裡也許有這樣的package吧，那位對編碼熟悉，也可以自己寫，不過我做得時候取巧了。
大家用過IE5的另存為.mht文件嗎？對了，就是它！把需要發送的html郵件用IE5在本地打開，再另存為mht文件，所有的編碼都得到了，而且圖片的鏈接關系也都是現成的了，其他的按需要調整一下,帖到你的程序裡就萬事大吉。更進一步，如果需要做到像263那樣，從頁面上接收包括正文，接受者以及各種可能的附件等信息再發送呢？
