Perlメモ/MIME::Liteモジュール - Walrus, Digit.HTMLメールã§ã€ã•ã‚‰ã«æœ¬æ–‡å†…ã«è¡¨ç¤ºã™ã‚‹ç”»åƒã‚’添付ã—ãŸMIMEデータを簡å˜ã«ä½œæˆã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚MIME::Liteã®ãƒ‰ã‚ュメントã®Send an HTML document... with images included!ã®é …ã«ã€ã‚µãƒ³ãƒ—ルコードãŒã‚ã‚Šã¾ã™ã€‚以下2点ãŒãƒã‚¤ãƒ³ãƒˆã®ã‚ˆã†ã§ã™ã€‚ ç”»åƒã‚’attachã™ã‚‹éš›ã€Idを指定ã™ã‚‹ã€‚ HTML（本文）内ã«imgã‚¿ã‚°ã®srcã«ã¯ã€"cid:（画åƒæ·»ä»˜æ™‚ã«æŒ‡å®šã—ãŸId）"を指定ã™ã‚‹ã€‚ 以下ã¯ã€ActivePerlã«åŒæ¢±ã•ã‚Œã¦ãã‚‹ç”»åƒã‚’埋ã‚込んã メールデータを作æˆã—ã€æ¨™æº–出力ã«å‡ºåŠ›ã™ã‚‹ä¾‹ã§ã™ã€‚ Fromã€Toã¯é©åˆ‡ãªã‚¢ãƒ‰ãƒ¬ã‚¹ã«å¤‰æ›´ã—ã¦ãã ã•ã„。 use MIME::Lite; use Jcode; my $subject = "PerlScriptãƒã‚´"; my $data = <<EOF; <body> PerlScriptãƒã‚´<br />
http://www.hidekik.com/cookbook/p2h.cgi?id=smtptls
{{#tags}}- {{label}}
{{/tags}}