メール受信

Size: px

Start display at page:

Download "メール受信"

こうしろうすわ
5 years ago
Views:

1 メール.NET で POP サーバからメールを受信する方法初めに.NET Framework にはメールを送信する為の System.Web.Mail.SmtpMail クラスが用意されて居る.NET Framework 2.0 には System.Net.Mail.SmtpClient クラスが用意されて居る ( 猶 2.0 にも System.Web.Mail.SmtpMail クラスは有るが System.Net.Mail.SmtpClient クラスの使用が推奨されて居る ) 併し残念乍メールを受信するクラスは用意されて居ない其処で此処では TcpClient クラスを使用して直接メールサーバからメールを受信する方法を解説する併せて受信したメールのヘッダ部分から Subject From To 等のヘッダ情報を取得したり添付ファイルを取り出したりする方法に付いても解説する必要な環境サンプルは Visual Studio.NET 2003 で作成され.NET Framework 1.1 で動作確認をして居る亦 Visual Studio 2005.NET Framework 2.0 での動作も確認して居るインターネットメールの仕組みインターネットメールは SMTP と呼ばれるプロトコルを使ってインターネット内を配送されて居る SMTP は Simple Mail Transfer Protocol の頭文字で文字通り単純なメール転送プロトコルと成って居る此処では SMTP の詳細に付いては省略するが SMTP は RFC 2821 等に解説されて居る前述の様にメールは SMTP を使用して配送される訳だが SMTP に依って配送されるのは SMTP サーバ迄で有る個々のユーザー迄配送する仕組みは特に無い実世界に例えると総てのメールは郵便局止めに成って居て各家庭や事務所の郵便ポスト迄は配達して下れないと謂う事に成る其れでは何うするかと謂うとメールを受け取り度い人が夫々れ郵便局迄取りに行く事に成るメーラーメールユーザーエージェント (Mail User Agent:MUA) 等と呼ばれる Outlook Express Outlook 2003 Mozilla Thunderbird Becky! と謂うインターネットメール用のソフトウェアが有るが此等は孰れも定期的に郵便局 ( メールサーバ ) にメールが届いて居るか何うかを確認し必要に応じてメールを取りに行く様に成って居る此の時に使われるプロトコルの代表的な物が POP で有る POP は Post Office Protocol の頭文字で文字通り郵便局プロトコルで有る現在一般的に使われて居る POP はバージョン 3 と成って居るので POP3 と表記される事も良く有る ( 以下単に POP と表記するが POP3 の事と考えて問題無い ) POP に付いては RFC 1939 で解説されて居る猶インターネットメールは SMTP と POP を使わなくては成らないと謂う訳では無い POP より高機能な IMAP(Internet Message Access Protocol) と謂うプロトコルも有る (RFC 2060) 亦 SMTP で配送されたメールをハードディスクにファイルと仕て保存して其れをテキストエディタで閲覧すると謂う事も可能で有る ( 勿論其の様な事が出来るメールサーバを用意する必要が有る ) 此の様にインターネットメールの配送に SMTP が使われるのは粗確実だが SMTP で配送された後のメールを何の様に扱うかは非常に自由度が高い仕組みと成って居た併しインターネットサービスプロバイダや企業のメールサーバの様に多数の人にメールサービスを提供する場合は統一された手法が無いと不便なので現在ではメールの送信には SMTP をメールの受信には POP を使用するのが一般的に成って居る ( 勿論 Web メールと呼ばれる様なブラウザ上で而巳メールサービスを提供して居る場合は除く ) 亦メーラーも粗例外無く SMTP と POP をサポートして居ると謂っても良い状況に成って居る -1-

2 RFC とは :RFC は Request For Comment の頭文字でインターネットに関連するさまざまな技術の仕様等に付いてまとめられた文書の事で有る RFC には番号が付けられていて RFC 2821 は SMTP の仕様 RFC 2616 は HTTP の仕様等と成って居る中には RFC 1149( 鳥を使って IP データを送受信する事に関する仕様 ) の様にジョーク RFC も存在する改訂版が出る場合は新しい番号が振られて別の文書と仕て公開されるのが通常で有る SMTP の場合最初の RFC は 821 其の後の改訂版は 2821 と成って居る RFC の文書は英語で書かれて居るが主要な RFC に付いては日本語訳を公開して居る場合も有るので検索してみて下さいメール受信時に特定の処理を行うには特定のメールアドレスにメールが届いた時に其のメールを自動的に受信して何等かの処理を行う様なシステムを作成するには次の様な方法が考えられるメールサーバの機能を使うメーラーの機能を使う POP で受信するメールサーバの機能を使うメールサーバ ( 正確には SMTP サーバ ) にはメールが届いた時に外部プログラムを起動すると謂う機能を持つ物が有る此の機能を使ってメール受信時に処理を行うシステムを作成する事が出来るメーリングリストと謂うの物が存在するがメーリングリストでは或るメールアドレスにメールを送ると予め登録された会員全員に其のメールが自動的に配送される此の様なメーリングリスト機能はメールサーバにメーリングリスト処理を行う外部プログラムを登録して実現されて居る場合が多く有る此の外部プログラム起動方式はメール受信時に直ぐ様外部プログラムが呼び出されるのが一般的だし必要な時に必要な処理丈を行う様に出来る当然レスポンスの面でもメールサーバに与える負荷の面でも優れたシステムに出来る可能性が高いと謂える併し外部プログラムの登録にはメールサーバの設定を変更する必要が有り誤った外部プログラムを登録した場合はメールサービス自体を使用不能に陥らせる危険性も有る此の設定変更を行うにはメールサーバの管理者か其れに匹敵する権限が必要だし既存のメールサーバに対して設定を行う場合は細心の注意を仕て作業する必要が有る其の為残念乍誰にでも出来る方法とは謂えない特にインターネットサービスプロバイダのメールサービスを使用して居る場合は外部プログラムを登録する事は出来ないと考えた方が良いと思う此の方法の場合上記の理由に依り自分の管理下に有るメールサーバが必要に成る亦何の様な事が出来るのか何の様な外部プログラムを作れば良いのかは使用するメールサーバに依り変わるメーラーの機能を使うメーラーに依ってはプラグインの様な形で機能を拡張追加したりマクロ言語が搭載されて居たりする此等の機能を使ってメール受信時の処理を作り込む事が出来る場合が有る旨く使えば簡単に目的を実現出来る場合も有ると思うが何の様な事が出来何の様にすれば良いのかは完全にメーラーに依存するので此処では解説しない POP で受信する本資料で解説する方法で有るメールサーバに TCP で接続し POP を使用してメールを受信する此の方法は上記のメールサーバの機能を使うの様な手法と違いインターネットを使用してメール -2-

3 サーバに接続出来る環境で有れば何処でも実行する事が出来るメーラーのメール受信処理而巳を自分で実装して実行して居るのと変わらない実際メールサーバに取ってはメーラーからのアクセスと区別が付かないで有ろう此の方法の欠点は即時性に欠ける事で有る POP はメールサーバにメールが届いて居るかを此方から問い合わせる様なプロトコルと成って居る殆どのメーラーには新着メールのチェック間隔の様な設定項目が有って何の程度の間隔でメールサーバに問い合わせに行くのかを設定出来る様に成って居る仮に 5 分とするとメールが送られて来てから最大 5 分は遅延する事に成る間隔を短くすれば即時性は高まるが極端に短い間隔にするとメールサーバの負荷を高める事にも成り兼ねないので避けた方が良いインターネットメールは元々即時性が保障された仕組みでは無いメールが直ぐに届く事も有るが少し時間が懸かる事も普通に有る従って此の即時性に欠けると謂う点は余り問題に成らない事が多いかと思う逆に問題に成る様な場合はメールを使うと謂う事自体を見直す必要が有る POP でメールを受信する手順サンプルソースコードに含まれる PopClient クラスは POP を使用してメールサーバからメールを受信するクラスで有る以下主要部分に付いて解説する 1. POP サーバとの接続 POP サーバは通常 TCP の 110 番ポートで待ち受けして居る其処に TcpClient で接続する此の処理は PopClient のコンストラクタで行われて居る Visual Basic Public Sub New(ByVal hostname As String, ByVal port As Integer) ' サーバと接続 Me.tcp = New TcpClient(hostname, port) Me.reader = New StreamReader(Me.tcp.GetStream(), Encoding.ASCII) ' オープニング受信 Dim s As String = ReadLine( ) If Not s.startswith("+ok") Then Throw New PopClientException(" 接続時に POP サーバが """ & s & """ を返しました ") End Sub C# public PopClient(string hostname, int port) // サーバと接続 this.tcp = new TcpClient(hostname, port); this.reader = new StreamReader(this.tcp.GetStream( ), Encoding.ASCII); // オープニング受信 string s = ReadLine( ); if (!s.startswith("+ok")) throw new PopClientException(" 接続時に POP サーバが "" + s + " " を返しました "); -3-

4 上記の ReadLine( ) メソッドは行末迄の 1 行を読み込む private メソッドで有る POP では 8bit ASCII で遣り取りが行われる ( メールが何んな文字コードで書かれて居るかではなく POP 自体の遣り取りの事で有る ) 其の為 Encoding.ASCII を指定した StreamReader を予め作成して置いてテキストの読み込みに使用して居る猶 POP での行末は必ず CR LF(C# での " r n" ) と決められて居る亦 ReadLine( ) メソッドは動作確認用に受信したテキストをコンソールに書き出す様にも成って居る POP サーバに接続すると最初にオープニングのテキストが 1 行送られて来るオープニングのテキストの最初は "+OK" で始まる最短の場合は此の 3 文字と改行丈の場合も有るが多くの場合は "+OK POP3 server ready." の様なテキストが返される "+OK" より後ろの部分のテキストには特に意味は無い POP サーバの名称やバージョンが記述されて居る事が多い様で有る POP サーバに問題が有る為に使用出来ない場合等は受信テキストの先頭が "+OK" 以外 ("-ERR") に成る其の為上記の様に先頭が "+OK" で無い場合は例外を投げる様に仕て居る猶サンプルソースコードでは s.startswith("+ok") として居るが必ずしも大文字で有るとは限らない其の為 s.toupper( ).StartsWith("+OK") の様な判定を行った方が汎用性が増す以下のログインやリストの取得等 POP サーバから返されるリザルト文字列は総て同様の事が謂えるので注意して欲しい 2. ログイン POP サーバを使用するには通常ユーザー名パスワードを使用してログインする必要が有る Login( ) メソッドにてログイン処理を行って居る Visual Basic Public Sub Login(ByVal username As String, ByVal password As String) ' ユーザー名送信 SendLine("USER " & username) Dim s As String = ReadLine( ) If Not s.startswith("+ok") Then Throw New PopClientException( _ "USER 送信時に POP サーバが """ & s & """ を返しました ") ' パスワード送信 SendLine("PASS " & password) s = ReadLine( ) If Not s.startswith("+ok") Then Throw New PopClientException( _ "PASS 送信時に POP サーバが """ & s & """ を返しました ") End Sub C# public void Login(string username, string password) // ユーザー名送信 SendLine("USER " + username); string s = ReadLine( ); if (!s.startswith("+ok")) throw new PopClientException( "USER 送信時に POP サーバが "" + s + " " を返しました "); -4-

5 // パスワード送信 SendLine("PASS " + password); s = ReadLine( ); if (!s.startswith("+ok")) throw new PopClientException( "PASS 送信時に POP サーバが "" + s + " " を返しました "); SendLine( ) メソッドは引数のテキストに改行 (CR LF:C# での " r n") を付加して送信する private メソッドで有る送信時も 8bit ASCII にする為 Encoding.ASCII.GetBytes( ) を使用して変換した後に送信する様に仕て居る亦 SendLine( ) メソッドは動作確認用に送信するテキストをコンソールに書き出す様にも成って居るログインするには先ず USER コマンドでユーザー名を送信する此のコマンドは最初に "USER" 半角スペース続けてユーザー名最後に改行 (CR LF) と謂う書式に成って居るユーザー名の前は半角スペースを空ける例えばユーザー名が abc@example.com の場合は次の様に送信するユーザー名が正常な場合には "+OK" で始まるテキストが返されるオープニングのテキストと同じ様に "+OK" の後には "+OK username is ok." の様に任意のテキストが付いて来る場合も有るユーザー名が正常では無いと判断された場合は "+OK" 以外 ("-ERR") が返される次に PASS コマンドでパスワードを送信する内容はサンプルコードを参照され度い此の様に POP は総てテキストの遣り取り丈で構成された非常に単純で扱い易いプロトコルで有る殆どの遣り取りは上記の USER コマンドや PASS コマンドの様にコマンドのテキストを送信すると其れに対する返事のテキストが返って来ると謂う形に成って居る 3. リストの取得 POP にはメールを取得したり削除したりするコマンドが有る POP サーバに複数のメールが溜まって居る場合は何のメールを取得したり削除したりするのかを番号で指定する此の番号は予め LIST コマンドで取得して置く必要が有る Public Function GetList( ) As ArrayList ' LIST 送信 SendLine("LIST") Dim s As String = ReadLine( ) Visual Basic -5-

6 If Not s.startswith("+ok") Then Throw New PopClientException( _ "LIST 送信時に POP サーバが """ & s & """ を返しました ") ' サーバに溜まって居るメールの数を取得 Dim list As ArrayList = New ArrayList Do While True s = ReadLine( ) If s = "." Then ' 終端に到達 Exit Do ' メール番号部分而巳を取り出し格納 Dim p As Integer = s.indexof(" "c) If p > 0 Then s = s.substring(0, p) list.add(s) Loop Return list End Function C# public ArrayList GetList( ) // LIST 送信 SendLine("LIST"); string s = ReadLine( ); if (!s.startswith("+ok")) throw new PopClientException( "LIST 送信時に POP サーバが "" + s + " " を返しました "); // サーバに溜まって居るメールの数を取得 ArrayList list = new ArrayList( ); while (true) s = ReadLine( ); if (s == ".") // 終端に到達 break; // メール番号部分而巳を取り出し格納 int p = s.indexof(' '); if (p > 0) s = s.substring(0, p); list.add(s); return list; -6-

番号のリストを取得するには先ず LIST コマンドを送信する LIST コマンドには引数は無い為単に "LIST" と改行而巳を送信する丈で有る問題が無ければ POP サーバは次の様な一連のテキストを返す他のコマンドと同様に "+OK" で始まる 1 行のテキストを返す通常は "+OK" の後に半角スペースで区切って POP サーバに溜まって居るメールの数が記述されて居る此の例では

"( ピリオド ) 而巳の行と成るメールの番号は現在のセッション中丈で有効と成る上記の例では 1 番 201 番 202 番のメールが有る事に成るが現在のセッションを切断し再び接続した時に同じ番号のメールが有るか何うかは解らないし仮令有ったと仕ても同じメールで有るとは限らない従って POP サーバに接続する度に LIST コマンドで番号を取得する必要が有る

7 番号のリストを取得するには先ず LIST コマンドを送信する LIST コマンドには引数は無い為単に "LIST" と改行而巳を送信する丈で有る問題が無ければ POP サーバは次の様な一連のテキストを返す他のコマンドと同様に "+OK" で始まる 1 行のテキストを返す通常は "+OK" の後に半角スペースで区切って POP サーバに溜まって居るメールの数が記述されて居る此の例ではメールの数は 3 通だった事が解る何か問題が有ってリストを返せない場合は "-ERR" に成る "+OK" 行の下に続いて居るのがメールのリストで POP サーバに溜まって居るメールの数と同じ行数有る夫々れの行頭にメールの番号が有り半角スペースで区切ってオプションのテキストが続く ( 半角スペース以降が無い場合も有る ) リストの最後は "."( ピリオド ) 而巳の行と成るメールの番号は現在のセッション中丈で有効と成る上記の例では 1 番 201 番 202 番のメールが有る事に成るが現在のセッションを切断し再び接続した時に同じ番号のメールが有るか何うかは解らないし仮令有ったと仕ても同じメールで有るとは限らない従って POP サーバに接続する度に LIST コマンドで番号を取得する必要が有る今回のサンプルコードでは取得した番号のリストを ArrayList に格納して返す様に仕て居る 4. メールの取得メールの番号が解ればメール本体を取得する事が出来るメール本体を取得するには RETR コマンドを使用する Visual Basic Public Function GetMail(ByVal num As String) As String ' RETR 送信 SendLine("RETR " & num) Dim s As String = ReadLine( ) If Not s.startswith("+ok") Then Throw New PopClientException( _ "RETR 送信時に POP サーバが """ & s & """ を返しました ") ' メール取得 Dim sb As StringBuilder = New StringBuilder Do While True s = ReadLine( ) -7-

8 If s = "." Then ' "." 而巳の場合はメールの終端を表す Exit Do sb.append(s) sb.append(vbcrlf) Loop Return sb.tostring( ) End Function C# public string GetMail(string num) // RETR 送信 SendLine("RETR " + num); string s = ReadLine( ); if (!s.startswith("+ok")) throw new PopClientException( "RETR 送信時に POP サーバが "" + s + " " を返しました "); // メール取得 StringBuilder sb = new StringBuilder( ); while (true) s = ReadLine( ); if (s == ".") // "." 而巳の場合はメールの終端を表す break; sb.append(s); sb.append(" r n"); return sb.tostring( ); RETR コマンドは "RETR"+ 半角スペース +LIST コマンドで取り出したメールの番号の内の 1 つ + 改行と謂うテキストを送信する POP サーバから返って来るテキストは "+OK" の行メール本体 "." 而巳の行と成る -8-

s.startswith("+ok") Then Throw New PopClientException( _ "DELE 送信時に POP サーバが """ & s & """ を返しました ") End Sub C# public void DeleteMail(string num) // DELE 送信 SendLine("DELE " + num); string s =

9 メール本体は SMTP で配送されて居る其の儘の形で有る此の形式は通常のテキスト形式のメールと殆ど同じで有る唯一の注意点は行頭に "."( ピリオド ) が有る場合は ".."( ピリオド 2 つ ) と成って居るメール本体の詳細は後述する 5. メールの削除 POP ではメールを取得しても自動的に削除される事は無いメールを削除する場合は DELE コマンドで明示的に削除する必要が有る Visual Basic Public Sub Delet (ByVal num As String) ' DELE 送信 SendLine("DELE " & num) Dim s As String = ReadLine( ) If Not s.startswith("+ok") Then Throw New PopClientException( _ "DELE 送信時に POP サーバが """ & s & """ を返しました ") End Sub C# public void Delet (string num) // DELE 送信 SendLine("DELE " + num); string s = ReadLine( ); if (!s.startswith("+ok")) throw new PopClientException( "DELE 送信時に POP サーバが "" + s + " " を返しました "); メールを削除する時は "DELE"+ 半角スペース +LIST コマンドで取り出したメールの番号の内の 1 つ + 改行と謂うテキストを送信する猶削除したメールを元に戻す事は出来ないので注意を要する 6. クローズ POP との接続を切断する際には QUIT コマンドを使用する DELE コマンドに依るメールの削除等は QUIT コマンドを発行して初めて有効に成ると RFC では既定されて居る従って切断時には必ず QUIT コマンドを発行する様にす可きで有る ( 行き成り TCP のセッションを切断するのは問題が有る ) Public Sub Close( ) ' QUIT 送信 Visual Basic -9-

10 SendLine("QUIT") Dim s As String = ReadLine( ) If Not s.startswith("+ok") Then Throw New PopClientException( _ "QUIT 送信時に POP サーバが """ & s & """ を返しました ") CType(Me.reader, IDisposable).Dispose( ) Me.reader = Nothing CType(Me.tcp, IDisposable).Dispose( ) Me.tcp = Nothing End Sub C# public void Close( ) // QUIT 送信 SendLine("QUIT"); string s = ReadLine( ); if (!s.startswith("+ok")) throw new PopClientException( "QUIT 送信時に POP サーバが "" + s + " " を返しました "); ((IDisposable)this.reader).Dispose( ); this.reader = null; ((IDisposable)this.tcp).Dispose( ); this.tcp = null; PopClient クラスの使用例サンプルソースコードの PopMailMain クラスの PopTest( ) メソッドが PopClient クラスの使用例と成って居る Visual Basic ' POP サーバに接続 Dim pop As PopClient = New PopClient("POP サーバ ", 110) ' ログイン pop.login(" ユーザー名 ", " パスワード ") ' POP サーバに溜まって居るメールのリストを取得 Dim list As ArrayList = pop.getlist( ) For i As Integer = 0 To list.count - 1 ' メール本体を取得 Dim mail As String = pop.getmail(ctype(list(i), String)) ' メールを処理 ' メールを POP サーバから取得 pop.delet (ctype(list(i), String)) Next ' 切断 pop.close( ) // POP サーバに接続 C# -10-

11 PopClient pop = new PopClient("POP サーバ ", 110); // ログイン pop.login(" ユーザー名 ", " パスワード "); // POP サーバに溜まって居るメールのリストを取得 ArrayList list = pop.getlist( ); for (int i = 0; i < list.count; ++i) // メール本体を取得 string mail = pop.getmail((string)list[i]); // メールを処理 // メールを POP サーバから取得 pop.delet ((string)list[i]); // 切断 pop.close( ); 此の使用例では POP に貯まって居る総てのメールを取得して何等かの処理を行って居る上記の例ではコメント而巳で何等処理も行って居ないが本来ならメールの内容を解釈し其れに応じて何等かの処理を行う事に成る添付のサンプルソースコードでは処理する代わりに適当なファイル名で保存する様に成って居る其れでは引き続きメールを解釈する方法に付いて解説する POP から取得したメールの解釈 POP からメールを取得する事が出来たので続いて取得したメールを解釈するサンプルソースコードの Mail クラスはメールの内容を解釈し簡単に使用出来る様にするクラスで有るメールの構造先ずは POP サーバから受け取ったメール本体が何の様な構造に成って居るか観る事にする猶下記のメールの実例 ( sample1.txt と sample2.txt ) はサンプルソースコードと共に含めて有る上記は可成り単純化したメール本体の例で有るメールはヘッダ部とボディ部に分かれて居る最初の空行迄がヘッダ部で其れ以降がボディ部で有る上記の例では 8 行目迄がヘッダ部以降がボディ部と成るメールヘッダの各項目は項目名 : 内容と謂う形式に成って居るヘッダ部の形式や項目の詳細に付いては RFC 2822 等に纏められて居る To( 宛先 ) From( 差出人 ) Subject( 件名 ) 等の様に比較的解 -11-

り易い名前が付いて居るので大体の意味は解ると思う通常は 1 つの項目が 1 行に成るのだが 1 行に収まり切らない場合 ( 上記の例の Subject Content-Type) 継続行の行頭が空白 ( タブか半角スペース ) に成るメールボディはメールの本文で有る日本語のメールの場合多くは iso-2022-jp が使われて居る何の様なコードが使われて居るかはヘッダ部の

12 り易い名前が付いて居るので大体の意味は解ると思う通常は 1 つの項目が 1 行に成るのだが 1 行に収まり切らない場合 ( 上記の例の Subject Content-Type) 継続行の行頭が空白 ( タブか半角スペース ) に成るメールボディはメールの本文で有る日本語のメールの場合多くは iso-2022-jp が使われて居る何の様なコードが使われて居るかはヘッダ部の Content-Type の charset を参照する事に依り解る猶上記の例で [ESC] と書かれて居る部分は実際にはエスケープコード (ASCII コード 1B) で有る亦本文 2 行目はピリオド 2 つで始まる行で有る POP から取得した状態では終端と間違うのを防ぐ為にピリオド 2 つに成って居る Content-Type の記述方法や其れに合わせたメールボディの形式は MIME(Multipurpose Internet Mail Extensions) と呼ばれる仕様に纏められて居る亦上記の例の From To Subject には日本語が使われて居るが此の日本語部分の記述方法も MIME に依って決められて居る MIME の仕様は多岐に渡る為主要な物丈でも次の様に複数に分かれて居る亦此等以外にも MIME 関連の RFC は多数有る Part 1 - RFC 2045 Part 2 - RFC 2046 Part 3 - RFC 2047 Part 4 - RFC 4289 Part 5 - RFC 2049 添付ファイル次にメールに添付ファイルが有る場合を観る事にする以下の例は GIF 画像が添付されて居るメールの例で有る -12-

13 此の boundary はメール毎に変わるし形式も色々な物が有る boundary で分割された部分は夫々れヘッダ部ボディ部で構成されて居る最初のパートは Content-Type が text/plain と成って居るので普通のテキストで有ると解る此の部分は iso-2022-jp にエンコードされたメール本文で有る次のパートは image/gif と成って居て此れが添付された GIF 画像で有る GIF 画像の様なバイナリファイルは其の儘メールの本文と仕て表現する事が出来ない為何等かのエンコードを行う必要が有るメールの場合は BASE64 と謂うエンコード方式を使うのが一般的に成って居るエンコード方式は Content-Transfer-Encoding を観ると解る BASE64 は然程複雑なエンコード方式では無いが.NET Framework では Convert.FromBase64String メソッド Convert.ToBase64String メソッドが用意されて居るので簡単に変換する事が出来るサンプルソースコードの Mail クラスは上記の様なメール本体を受け取って解釈する但しメール本体の構造は非常に柔軟性が有るし関連する RFC も多岐に亘る Mail クラスは其の総てに対応して居る訳では無い為一部解釈出来ないメールも有るかも知れない併しメールの構造を理解する第一歩には成るかと思う Mail クラスの使用例 Mail クラスの使用例と仕てサンプルのソースコードの PopMailMain クラスの MailTest_Sample1( ) メソッド MailTest_Sample2( ) メソッドを示す MailTest_Sample1( ) メソッドは添付ファイル等が無い本文テキスト而巳の sample1.txt を解釈する例で有る Visual Basic Private Shared Sub MailTest_Sample1( ) ' テストの為に POP から取得する代わりにファイルから読み込む Dim mailtext As String = Nothing Dim sr As StreamReader = Nothing Try sr = New StreamReader("sample1.txt") mailtext = sr.readtoend( ) Finally If Not sr Is Nothing Then CType(sr, IDisposable).Dispose( ) End Try ' Mail クラスを作成 Dim mymail As Mail = New Mail(mailtext) ' From To Subject を表示 Console.WriteLine(mymail.Header("From")(0)) Console.WriteLine(mymail.Header("To")(0)) Console.WriteLine(mymail.Header("Subject")(0)) Console.WriteLine("--") ' デコードした From To Subject を表示 Console.WriteLine(MailHeader.Decode(mymail.Header("From")(0))) Console.WriteLine(MailHeader.Decode(mymail.Header("To")(0))) Console.WriteLine(MailHeader.Decode(mymail.Header("Subject")(0))) Console.WriteLine("--") ' Content-Type を表示 Console.WriteLine(mymail.Header("Content-Type")(0)) Console.WriteLine("--") -13-

14 ' メール本文を表示 ' 本来は Content-Type の charset を参照してデコードす可きだが ' 此処ではサンプルと仕て iso-2022-jp 固定でデコードする Dim bytes As Byte( ) = Encoding.ASCII.GetBytes(mymail.Body.Text) Dim mymailbody As String = Encoding.GetEncoding("iso-2022-jp").GetString(bytes) Console.WriteLine(" 本文 ") Console.WriteLine(mymailbody) End Sub C# private static void MailTest_Sample1( ) // テストの為に POP から取得する代わりにファイルから読み込む string mailtext = null; using (StreamReader sr = new StreamReader("sample1.txt")) mailtext = sr.readtoend( ); // Mail クラスを作成 Mail mail = new Mail(mailtext); // From To Subject を表示 Console.WriteLine(mail.Header["From"][0]); Console.WriteLine(mail.Header["To"][0]); Console.WriteLine(mail.Header["Subject"][0]); Console.WriteLine("--"); // デコードした From To Subject を表示 Console.WriteLine(MailHeader.Decode(mail.Header["From"][0])); Console.WriteLine(MailHeader.Decode(mail.Header["To"][0])); Console.WriteLine(MailHeader.Decode(mail.Header["Subject"][0])); Console.WriteLine("--"); // Content-Type を表示 Console.WriteLine(mail.Header["Content-Type"][0]); Console.WriteLine("--"); // メール本文を表示 // 本来は Content-Type の charset を参照してデコードす可きだが // 此処ではサンプルとして iso-2022-jp 固定でデコードする byte[] bytes = Encoding.ASCII.GetBytes(mail.Body.Text); string mailbody = Encoding.GetEncoding("iso-2022-jp").GetString(bytes); Console.WriteLine(" 本文 "); Console.WriteLine(mailbody); テストし易くする為に予め保存して置いた sample1.txt を読み込んで Mail クラスのインスタンスを生成して居る本来なら POP サーバから取得したメール本体を直接渡す事に成るかと思う続いて From To Subject の各ヘッダ項目をコンソールに出力して居る mail.header["from"] 等各ヘッダ項目は String のコレクションに成って居る此れは複数の宛先に送信したメールは To が複数に成る場合が有る等ヘッダ項目は複数に成り得る為で有る上記の例では最初の要素而巳を出力して居る亦全く要素数のチェック等を行って居ないが Subject が無いメール等も有り得るので本来は手を抜かずにチェックする必要が有る -14-

15 上記の出力を観ると解るが日本語部分は "=?iso-2022-jp?b?gyrcqxc/ljxugyhc?=" の様にエンコードされた儘と成って居る此れを MailHeader.Decode( ) メソッドを使ってデコードして出力して居る最後に Content-Type とボディ部のメール本文を出力して居るボディ部も iso-2022-jp でエンコードされて居るので System.Text.Encoding クラスを使ってデコードする例では iso-2022-jp に決め打ちで処理して居るが本来で有れば Content-Type の charset を参照して判断す可きで有る続く MailTest_Sample2( ) メソッドは GIF ファイルが添付されて居る sample2.txt を解釈する例で有る Private Shared Sub MailTest_Sample2( ) ' 省略 Visual Basic ' 1 つ目のパートの Content-Type メール本文を表示 ' 本来は Content-Type の charset を参照してデコードす可きだが ' 此処ではサンプルとして iso-2022-jp 固定でデコードする Dim part1 As MailMultipart = mymail.body.multiparts(0) Console.WriteLine(" パート 1") Console.WriteLine(part1.Header("Content-Type")(0)) Console.WriteLine("--") Dim bytes As Byte( ) = Encoding.ASCII.GetBytes(part1.Body.Text) Dim mymailbody As String = Encoding.GetEncoding("iso-2022-jp").GetString(bytes) Console.WriteLine(" 本文 ") Console.WriteLine(mymailbody) Console.WriteLine("--") ' 2 つ目のパートの Content-Type を表示し BASE64 をデコードしてファイルと仕て保存する ' 本来は Content-Transfer-Encoding が base64 で有る事を確認したり ' Content-Type の name を参照してファイル名を決めたりす可きだが此処では省略して居る Dim part2 As MailMultipart = mymail.body.multiparts(1) Console.WriteLine(" パート 2") Console.WriteLine(part2.Header("Content-Type")(0)) Console.WriteLine("--") bytes = Convert.FromBase64String(part2.Body.Text) Dim stm As Stream = Nothing Dim bw As BinaryWriter = Nothing Try stm = File.Open("sample2.gif", FileMode.Create) bw = New BinaryWriter(stm) bw.write(bytes) Finally If Not bw Is Nothing Then CType(bw, IDisposable).Dispose( ) If Not stm Is Nothing Then CType(stm, IDisposable).Dispose( ) End Try Console.WriteLine( " 添付ファイルを保存しましたファイル名は sample2.gif です ") End Sub C# private static void MailTest_Sample2( ) // 省略 -15-

16 // 1 つ目のパートの Content-Type メール本文を表示 // 本来は Content-Type の charset を参照してデコードす可きだが // 此処ではサンプルとして iso-2022-jp 固定でデコードする MailMultipart part1 = mail.body.multiparts[0]; Console.WriteLine(" パート 1"); Console.WriteLine(part1.Header["Content-Type"][0]); Console.WriteLine("--"); byte[] bytes = Encoding.ASCII.GetBytes(part1.Body.Text); string mailbody = Encoding.GetEncoding("iso-2022-jp").GetString(bytes); Console.WriteLine(" 本文 "); Console.WriteLine(mailbody); Console.WriteLine("--"); // 2 つ目のパートの Content-Type を表示し BASE64 をデコードしてファイルとして保存する // 本来は Content-Transfer-Encoding が base64 で有る事を確認したり // Content-Type の name を参照してファイル名を決めたりす可きだが此処では省略して居る MailMultipart part2 = mail.body.multiparts[1]; Console.WriteLine(" パート 2"); Console.WriteLine(part2.Header["Content-Type"][0]); Console.WriteLine("--"); bytes = Convert.FromBase64String(part2.Body.Text); using (Stream stm = File.Open("sample2.gif", FileMode.Create)) using (BinaryWriter bw = new BinaryWriter(stm)) bw.write(bytes); Console.WriteLine( " 添付ファイルを保存しましたファイル名は sample2.gif です "); 前半部分は MailTest_Sample1( ) メソッドと殆ど同様なので省略して居る最初に 1 つ目のパートを iso-2022-jp でデコードして出力して居る完全に決め打ちで処理して居るが実際にはパートの数や Content-Type charset の確認等が必要に成る続いて 2 つ目のパートを System.Convert.FromBase64String( ) メソッドを用いてデコードし sample2.gif と謂うファイル名で保存して居る此方も実際には Content-Type や Content-Transfer-Encoding 等のチェックが必要で有る纏めメールの内容を自動的にデータベースに格納する様なシステムを開発する場合 POP サーバからのメールの取得と其のメールの解釈が必要に成る其の様な場合に本資料が参考に成ればと思う参考資料本稿の内容に関連する RFC( 英文 ) で有る RFC 2821 "Simple Mail Transfer Protocol" RFC 1939 "Post Office Protocol - Version 3" RFC 2060 "INTERNET MESSAGE ACCESS PROTOCOL - VERSION 4rev1" RFC 2822 "Internet Message Format" RFC 2045 "Multipurpose Internet Mail Extensions (MIME) Part One: Format of Internet Message Bodies" RFC 2046 "Multipurpose Internet Mail Extensions (MIME) Part Two: Media Types" RFC 2047 "MIME (Multipurpose Internet Mail Extensions) Part Three: Message Header Extensions for Non-ASCII Text" RFC 4289 "Multipurpose Internet Mail Extensions (MIME) Part Four: Registration Procedures" RFC 2049 "Multipurpose Internet Mail Extensions (MIME) Part Five: Conformance Criteria and Examples"

メーラーの新規メール作成ウィン図 1 ドウを起動する際 mailto: の後に指定したメールアドレスが宛先欄に記述される亦件名 (subject) や本文 (body) 等を記述する場合宛名 (mailto: メールアドレス ) の後に? で続けて記述する実装コードは以下の通りで有る Private Sub Button1_Click(ByVal sender As System.

17 デフォルトメーラーを起動する方法デフォルトのメーラーを使用してメールの送信を行う場合 Visual Basic 6.0 では Microsoft MAPI Controls 6.0 を使用して居た一方 Visual Basic.NET では Process クラスの Start メソッドを使用して新規メール作成ウィンドウを表示する其処で此処では図 1 のテキストボックス内のデータを本文の値に設定した新規メール作成ウィンドウを表示する方法を紹介する Process クラスの Start メソッドに mailto: で始まる文字列を指定する事でデフォルトのメーラーを起動する事が出来るメーラーの新規メール作成ウィン図 1 ドウを起動する際 mailto: の後に指定したメールアドレスが宛先欄に記述される亦件名 (subject) や本文 (body) 等を記述する場合宛名 (mailto: メールアドレス ) の後に? で続けて記述する実装コードは以下の通りで有る Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim strbody As String strbody = textbox1.text Process.Start("mailto:Test@xxx.co.jp?subject= メーラーの起動 &body=" & strbody) End Sub リスト 1 リスト 1 の Process.Start("mailto:Test@xxx.co.jp?subject= メーラーの起動 &body=" & strbody) で宛先 (mailto:test@xxx.co.jp) メールの件名 (subject= メーラーの起動 ) 本文 (body=strbody: テキストボックス内のデータ ) の値を指定した新規メールウィンドウが表示される上記を実装しメーラーの起動ボタン ( 図 1) をクリックすると図 2 が表示される図 2-17-

18 上記では改行されたデータも図 2 の様に改行されずに表示される此れは新規メール作成ウィンドウを起動する場合総ての文字が其の儘使用出来るとは限らないからで有る其の儘使用出来ない文字は文字コード表示に置き換えて使用する必要が有る例えば本文等で使用する改行は %0D%0A と謂う文字コード表示に置き換える図 1 の様に改行されたデータを其の儘新規メール作成ウィンドウに表示する場合 Dim strbody As String strbody = textbox1.text を下記のコードに変更する Dim txtlines( ) As String Dim n As Integer txtlines = TextBox1.Lines For n = 0 To txtlines.getupperbound(0) strbody = strbody & txtlines(n) & "%0D%0A" Next リスト 2 リスト 2 を実装し図 1 のメーラーの起動ボタンをクリックすると図 3 の様に表示される図 3-18-

ICONファイルフォーマット

ICONファイルフォーマットグラフィックス画像フォーマットエンコーダパラメータ様々なフォーマットで画像を保存 Bitmap クラスを用いる事でビットマップ JPEG GIF PNG 等様々なフォーマットの画像を読み込み操作する事が出来る更に Bitmap クラスや Graphics コンテナを用いて描画処理等を施したイメージをファイルに保存する事も出来る此の時読み込めるフォーマット同様に保存するフォーマットを選択する事が出来る