• <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>
    • 軟件測試技術
    • 軟件測試博客
    • 軟件測試視頻
    • 開源軟件測試技術
    • 軟件測試論壇
    • 軟件測試沙龍
    • 軟件測試資料下載
    • 軟件測試雜志
    • 軟件測試人才招聘
      暫時沒有公告

    字號: | 推薦給好友 上一篇 | 下一篇

    在Perl中使用sendmail發送MIME郵件

    發布: 2007-7-04 20:04 | 作者: admin | 來源:  網友評論 | 查看: 131次 | 進入軟件測試論壇討論

    領測軟件測試網


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

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

    #!/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

    郵件內容

    END_TAG

    有幾點要注意,在發送郵件里To, From和接受者郵件地址變量$r_mail以及發送者郵件$s_mail之間
    要留一個空格,避免不必要的報錯問題(我遇到過,不知道你有沒有碰到)。還有那個結束標記
    END_TAG如果是文件的最后一行,最好在后面加一兩個空行,我曾經碰到沒后面的空行perl找不到
    END_TAG的情況。還有,不要忘了subject之后的那個空行是必須的,它分開了郵件頭和郵件內容。

    好,進入正題,如果我們需要發送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=#>郵件內容</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) = '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=#>郵件內容</a></body></html>

    END_TAG

    這樣一般使用的接收郵件的工具都能看到html格式的郵件了。如果問題再復雜一點,
    這個html頁面里有圖,還有flash,那怎么辦?會有辦法:把這些圖片放在網上,
    頁面的圖片都寫全路徑鏈接,這樣就根本不需要在郵件里真的帶上這些累贅了,并且
    還減小了郵件的大小,一舉兩得!我嚴重贊同。但是總有碰到不能這樣干的時候,所以
    繼續。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是指定分隔
    郵件內容里各不同各部分的標記是什么。這里就是----=_NextPart_000_0008_01C2BCB0.9CF9AE70了。
    這個值必須要怎樣我不是很清楚,我的理解是在本郵件中能夠不與任何編碼后的某段
    內容相同就可以了。后面那個name可以不要。說起來比較羅索,還是先看代碼吧。
    下面就是個完整的發送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="/Files/BeyondPic/2005-11/11/05111107332034632.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

    有點長了,慢慢解釋吧。這封要發送的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那樣,從頁面上接收包括正文,接受者以及各種可能的附件
    等信息再發送呢?有點復雜了,也不是這里要討論的,那位高手做過這些東西,可以把經驗貢獻出來,讓
    我們一起學習,這篇就是拋磚之作了。


    書面版權所有,書刊轉載請與本人聯系
    參考了系列好文《用PHP發送MIME郵件》,里面有較為詳細的MIME介紹,強烈建議閱讀
    致謝此文作者:Kartic Krishnamurthy 和譯者:limodou

    延伸閱讀

    文章來源于領測軟件測試網 http://www.kjueaiud.com/


    關于領測軟件測試網 | 領測軟件測試網合作伙伴 | 廣告服務 | 投稿指南 | 聯系我們 | 網站地圖 | 友情鏈接
    版權所有(C) 2003-2010 TestAge(領測軟件測試網)|領測國際科技(北京)有限公司|軟件測試工程師培訓網 All Rights Reserved
    北京市海淀區中關村南大街9號北京理工科技大廈1402室 京ICP備2023014753號-2
    技術支持和業務聯系:info@testage.com.cn 電話:010-51297073

    軟件測試 | 領測國際ISTQBISTQB官網TMMiTMMi認證國際軟件測試工程師認證領測軟件測試網

    老湿亚洲永久精品ww47香蕉图片_日韩欧美中文字幕北美法律_国产AV永久无码天堂影院_久久婷婷综合色丁香五月

  • <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>