はじめに
iNetSuite for .NETのPopコンポーネントとSmtpコンポーネントは、インターネット通信を使ったメール送受信機能を提供するコンポーネントです。
PopコンポーネントはEメールの受信、SmtpコンポーネントはEメールの送信を担当し、いずれもメソッドとプロパティの操作だけで簡単にEメールの送受信を行うことができます。
前回は、Popコンポーネントを使ったメール受信ソフトを作成しました。今回はSmtpコンポーネントとコンボボックス、エディットを使って、Eメールを作成して送信するアプリケーションを作成します。
メールには添付ファイルを付けられるようにし、メール送信の情報をログファイルに記録する機能も組み込みます。
対象読者
Visual Basic 2005を使ってプログラムを作ったことのある人。
必要な環境
Visual Basic 2005またはVisual Studio 2005、およびEメールの操作ができる環境。
プログラム実行時の注意事項
本稿の実行ファイル（バイナリファイル）を動かすには、zipファイルに同梱してある以下のファイルが必要になります。
- Dart.PowerTCP.Mail.dll …… 本体アセンブリファイル
- Dart.PowerTCP.Mail.Forms.dll …… フォーム用アセンブリファイル
- Dart.PowerTCP.Mail.resources.dll …… サテライトリソース
1.と2.のファイルを、実行プログラムと同じフォルダに格納します。3.のファイルはサブフォルダ「ja」を作成し、その中に格納してください。
また、.NET Framework 2.0から追加されたクラスやメンバを使用しているので、.NET Framework 2.0がインストールされていることが必須条件です。
GUIの作成
今回のアプリケーションは、「MyMail-2」というプロジェクト名で作成し、GUIはWindowsのコモンコントロールと、InputMan for .NET 4.0Jのコントロールを組み合わせて使用します。
Smtpコンポーネントは、メール送信を行うコンポーネントで、.NET Frameworkクラスライブラリにあるメール系のクラスを使うよりも簡単に送信メールを作成することができます。
フォームには、宛先や送信者のアドレス、件名と本文の入力、添付ファイルの指定を行うための入力コンポーネントを配置します。
また、ccとbccを設定した場合のアドレスと、メール送信の結果を表示するステータスバーを持たせます。
もちろん、今回のプログラムは、VS標準コントロールのテキストボックスやコンボボックスを使ってもかまいません。問題なく動作します。
コンポーネントのインストール
本稿のプログラムを試すには、コンポーネント「iNetSuite for .NET」をインストールする必要があります。インストール方法については、前稿『Popコンポーネントを利用して簡易メーラーを作成する』を参照してください。
コントロールの追加
iNetSuite for .NETをインストールしたら、ツールボックスに専用のタブを作成し、iNetSuite for .NETのコンポーネントを追加します。追加するコンポーネントは、［.NET Frameworkコンポーネント］の「Dart.PowerTCP」で始まる名前空間のコンポーネントです。
Form1の作成
フォームにコントロールを配置していきます。
- フォーム全体にContainerコンポーネントを配置します。送信者と宛先は、複数のアドレスに対応させるためにInputMan for .NET 4.0Jのコンボコンポーネントを使用します。
- 件名と本文はEditコンポーネントを使用し、いずれもContainerのキャプション設定機能を使ってキャプションを付けます。
- ccとbccのアドレス入力用としてButtonを配置します。入力はInputBoxを使用します。
- 添付ファイル用に、ButtonとLabel、OpenFileDialogコントロールを配置します。
- フォームの最下部に、StatusStripコントロールを配置します。DropDownボタンを2つと、StatusLabelを2つ組み込みます。
- Smtpコンポーネント、Popコンポーネント、Timerコントロールを配置します。Timerは、現在の日時を表示するのに使用します。
コードの作成
実装する機能の概要は次のとおりです。
- 送信者、宛先をコンボに入力します。cc、bccがある場合は、それぞれのボタンを押すとInputBoxが表示されるので、ここから入力します。cc、bccはいくつも入力できますが、実際に送信されるのは最後に入力されたアドレスのみです。
- 添付ファイルがある場合は、ボタンを押すと［ファイルを開く］ダイアログボックスが表示されるので、ここから添付ファイルを指定します。添付ファイルも1件のみ指定できます。
- 件名と本文をエディットコンポーネントに入力します。入力がないのに送信しようとすると、メッセージボックスで確認を求めます。
- メールの送信処理は、すべて［送信する］ボタンのClickイベントハンドラで行います。
- Timerコントロールを使って、StatusStripに現在の日時を表示します。
- メールの送受信を行うと、SmtpコンポーネントにはTraceイベントが発生します。このイベントハンドラの引数「SegmentEventArgs」には、メール送信の詳しいデータが格納されますので、これを使って送信記録を作成します。
cc、bccの入力と時刻表示、添付ファイル名の取得処理
［cc］［bcc］ボタンが押されたときの処理を作成します。
cc、bccはモジュールレベルの変数に格納します。
- 「Dart.PowerTCP.Mail」名前空間をインポートして、3つのモジュールレベル変数を用意します。
- ボタン［cc］のClickイベントハンドラでは、InputBoxを表示し、アドレスを入力してもらいます。そして、そのアドレスをStatusStripコントロールの
ToolStripStatusLabelオブジェクトの、DropDownItemsコレクションに追加します。 - ボタン［bcc］のイベントハンドラでも同様の処理を行います。
- TimerコントロールのTickイベントハンドラで、
Now関数を使って現在の日時を取得します。Itervalプロパティはデフォルトの100ミリ秒のままです。 - ［添付ファイル］ボタンのClickイベントハンドラで、［ファイルを開く］ダイアログボックスを表示し、ユーザーに添付ファイルを選択してもらいます。
Imports Dart.PowerTCP.Mail Public Class Form1 Public tocc As String = "" 'ccのアドレスを格納 Public tobcc As String = "" 'bccのアドレスを格納 Public attachfname As String = "" '添付ファイル名を格納
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click tocc = InputBox("ccのアドレスを入力してください") If tocc <> "" Then Me.ToolStripStatusLabel1.DropDownItems.Add(tocc) End If End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click tobcc = InputBox("bccのアドレスを入力してください") If tobcc <> "" Then Me.ToolStripStatusLabel2.DropDownItems.Add(tocc) End If End Sub
EnabledプロパティをTrueにするのを忘れないでください。Private Sub Timer1_Tick(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Timer1.Tick Me.ToolStripStatusLabel4.Text = Now() End Sub
attachfnameにフルパスで格納し、その内容をLabelで表示します。Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click Dim ret As Integer ret = Me.OpenFileDialog1.ShowDialog If ret = Windows.Forms.DialogResult.OK Then attachfname = Me.OpenFileDialog1.FileName Me.Label1.Text = attachfname End If End Sub
メール送信処理
メール送信の処理は、すべて［送信する］ボタンのClickイベントハンドラで処理します。
- 最初に、宛先が入力されているかどうかをチェックします。入力されていなければ、送信処理を中止します。
- 次に、件名と本文が入力されているかどうかをチェックします。入力されていなければ、そのまま送信するのかどうかをユーザーに確認します。
- 送信内容を作成します。これは、
MessageStreamクラスのインスタンスを作成して、送信するようにします。 - 宛先は、同じメールを同時に複数のアドレスに送信する場合があるので、
MessageStreamオブジェクトのToプロパティでMailAddressコレクションにアクセスし、Addメソッドでコレクションに追加する、という形をとります。Addメソッドの引数はアドレスを文字列で渡すのではなく、MailAddressオブジェクトに変換して渡します。MailAddressオブジェクトは、クラスのコンストラクタの引数にアドレスを文字列で渡します。 - 件名と本文は、それぞれ
SubjectプロパティとTextプロパティに文字列のまま設定します。 - 添付ファイルは、設定されていれば
MimeAttachmentStreamオブジェクトを作成し、これをAttachmentsコレクションに加える、という形をとります。これも複数のファイルを添付できるようにAttachmentオブジェクトのコレクションを使用します。 - ccとbccのアドレスが設定されている場合は、これも
MessageStreamオブジェクトに組み込みます。 - メールの送信は、
Smtpクラスのメンバを操作します。まず、メールサーバのアドレスをServerプロパティに文字列で設定します。
If MeCombo2.Text = "" Then MessageBox.Show("宛先が入力されていません") Exit Sub End If
If Edit1.Text = "" Then Dim ret As Integer = MessageBox.Show( _ "件名がありません。送信しますか？", "確認", _ MessageBoxButtons.YesNo, MessageBoxIcon.Question) If ret = Windows.Forms.DialogResult.No Then Exit Sub End If End If If Me.Edit2.Text = "" Then Dim ret As Integer = MessageBox.Show( _ "本文がありません。送信しますか？", "確認", _ MessageBoxButtons.YesNo, MessageBoxIcon.Question) If ret = Windows.Forms.DialogResult.No Then Exit Sub End If End If
Sendメソッドで行うのですが、この引数に送信者や受信者のアドレス、件名、本文を指定する際に日本語（2バイト文字）を使うと、受信するメーラーによっては文字化けを起こしてしまいます。MessageStreamオブジェクトとしてSendメソッドで送信すると、文字化けを起こしません。MessageStreamオブジェクトは、送信メールの各データを一括で格納するオブジェクトです。Dim msg As New MessageStream()
With msg .To.Add(New MailAddress(Me.Combo2.Text))
Fromプロパティに設定します。これも、アドレスを文字列からMailAddressオブジェクトに変換して設定します。.From = New MailAddress(Me.Combo1.Text)
.Subject = Edit1.Text .Text = Edit2.Text
MimeAttachmentStreamクラスのコンストラクタからインスタンス作成します。コンストラクタの引数は、添付ファイル名です。If attachfname <> "" Then Dim attach As MimeAttachmentStream = Nothing attach = New MimeAttachmentStream(attachfname)
MimeAttachmentStreamオブジェクトを、Addメソッドを使ってAttachmentsコレクションに追加します。
.Attachments.Add(attach)
End If
CCプロパティを使ってMailAddressesコレクションにアクセスし、このコレクションにMailAddressオブジェクトとして追加します。MailAddressオブジェクトは、クラスのコンストラクタを使って作成します。引数はccのアドレス文字列です。If tocc <> "" Then .CC.Add(New MailAddress(tocc)) End If
MailAddressコレクションに組み込みます。
If tobcc <> "" Then
.BCC.Add(New MailAddress(tobcc))
End If
End With
MessageStreamオブジェクトとして作成されました。With Me.Smtp1 .Server = "mail.xxxxx.ne.jp"
Sendメソッドを実行します。引数には、送信データをMessageStreamオブジェクトで指定します。
.Send(msg)
End With
Me.ToolStripStatusLabel3.Text = _
"メールを送信しました。送信ログを記録しました。"
End Sub
メール送信ログの作成処理
メールを送信すると、SmtpコンポーネントにはTraceというイベントが発生します。そして、このイベントハンドラの引数「e As Dart.PowerTCP.Mail.SegmentEventArgs」には、SMTPサーバとのやり取りなどの送信状況が記録されます。
そこで、その内容を取り出しファイルに書き出してログファイルを作成します。
Private Sub Smtp1_Trace(ByVal sender As Object, _ ByVal e As Dart.PowerTCP.Mail.SegmentEventArgs) Handles Smtp1.Trace
- まず、
Byte型の配列を用意します。そして、GetBytesメソッドを使用してイベントハンドラの引数eからの情報を取得し格納します。SegmentEventArgsオブジェクトのSegmentオブジェクトには、送受信されたデータやこのデータのバイト数などの情報が含まれています。 - つぎに、
FileStreamオブジェクトを作成してファイルを作ります。
Dim buffer As Byte() = _ System.Text.Encoding.Default.GetBytes(e.Segment.ToString())
Dim fs As New IO.FileStream("C:\メール送信ログ.log", _ IO.FileMode.Append)
FileStreamクラスのWriteメソッドを使用して、Byte型配列bufferの中身をファイルに書き出します。fs.Write(buffer, 0, buffer.Length) fs.Close()
まとめ
メール送信処理を組み込んだアプリケーションを作ってみました。
アドレスの文字列をオブジェクトに変換して使う点で少し手間がかかりますが、コンポーネントのメソッド・プロパティを操作するだけで、CCやBCC、添付ファイルなどに対応したメールを手軽に送信できるようになるのはとても魅力です。
