在Perl中使用sendmail傳送MIME郵件 (轉)

在Perl中使用sendmail傳送MIME郵件 (轉)[@more@]

在中使用send傳送MIME

作者：oulix
郵件：">oulix@263.net

初次寫文，有疏漏、錯誤的地方請指正。

搞開發的同志可能碰到過需要在頁面裡嵌入傳送郵件的功能，如果是普通的純文字的郵件還好，沒問題，用有好多，用cgi也有好工具，比如perl。在perl中使用平臺下的可以實現這個目的。Perl中傳送純文字郵件的典型例子如下：

#!/usr/lib/perl
use strict;

my($r_mail) = ;
my($s_mail) = ;
my($subject) = 'subject';

open(MAIL,'|/usr/lib/sendmail -t');
(MAIL);

print<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) = ;
my($s_mail) = ;
my($subject) = 'subject';

open(MAIL,'|/usr/lib/sendmail -t');
select(MAIL);

print<To: $r_mail
From: $s_mail
Subject: $subject

郵件內容

END_TAG

試試看，在263裡全顯示出來了，在中好點，如果郵件是個完整的html郵件，基本上
能夠完整的呈現html頁面。其實這裡頭有個MIME型別的問題。詳細的MIME資料大家自己上網找吧，
否則扯得太遠，我這點水不夠倒的。如果這個html郵件沒有連線任何圖片以及此類的外部內容，那好辦，
在郵件頭部分加一句Content-type:text/html就可以了。如果使用了中文需要指定一下內碼表，直接
在後面在添上charset="gb2312",中間用分號格開。完整程式碼如下：

#!/usr/lib/perl
use strict;

my($r_mail) = ;
my($s_mail) = ;
my($subject) = 'subject';

open(MAIL,'|/usr/lib/sendmail -t');
select(MAIL);

print<To: $r_mail
From: $s_mail
Subject: $subject
Content-type:text/html;charset="gb2312"

郵件內容

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) = ;
my($s_mail) = ;
my($subject) = 'subject';

open(MAIL,'|/usr/lib/sendmail -t');
select(MAIL);

print<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-Traner-Encoding: quoted-printable

height=3D400=20
src=3D"file:///C:/DEV/perl/images/popup_thanks.gif" =
width=3D400=20
border=3D0>

------=_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

R0lGODlhkAGQAfcAAPCyTdvr0cvbCJ8tTt3nAEeRGkRSmULrVqrRtLtbeB7CRNdTZ0LGtNaXJ
EaLR7ejz23e1GFir2NNMayaR0VWaLfjMRtnINsfWuYi6aGWsNevKN5PHdLZKMyZLC6smNs3nu8mI
NWetGBIqCOqXNdutkWyRRzZvEqvIK9fJSZGMNrSalGO/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吧，那位對編碼熟悉，也可以自己寫，不過我做得時候取巧了。
大家用過的另存為.mht檔案嗎？對了，就是它！把需要傳送的html郵件用IE5在本地開啟，再另存為
mht檔案，所有的編碼都得到了，而且圖片的連結關係也都是現成的了，其他的按需要調整一下,帖到你的
程式裡就萬事大吉。更進一步，如果需要做到像263那樣，從頁面上接收包括正文，接受者以及各種可能的附件
等資訊再傳送呢？有點複雜了，也不是這裡要討論的，那位高手做過這些東西，可以把貢獻出來，讓
我們一起學習，這篇就是拋磚之作了。
 
 
 書面版權所有，書刊轉載請與本人聯絡
 參考了系列好文《用傳送MIME郵件》，裡面有較為詳細的MIME介紹，強烈建議閱讀
 致謝此文作者：Kartic Krishnamurthy 和譯者：limodou