Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
TKMP.DLLを使用してメールを受信したい(.NET)
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=10580#CommentId22135
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
LINK
 (社会人)
投稿日時
2011/11/21 11:04:08
サンプルソースは古いバージョン(2.4.21)であれば
[http://uwa.potetihouse.com/dlfiles/index.html]から
.NET 2.0用 サンプルコード付のファイルをダウンロードすることができるようです。
サンプルコードからの引用~
' リストビューをダブルクリックでメール本文の解析を行う
Private Sub listView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles listView1.DoubleClick
Dim lvi As System.Windows.Forms.ListViewItem = listView1.FocusedItem
If lvi Is Nothing Then
Return
End If
Dim mi As MailItem = CType(lvi, MailItem)
'受信未完了時にメール全文を受信する
If mi.MailData.DataStream Is Nothing Then
AddHandler mi.MailData.BodyDataReceive, AddressOf MailData_DataReceive
Dim GetFlag As Boolean = mi.MailData.ReadBody()
RemoveHandler mi.MailData.BodyDataReceive, AddressOf MailData_DataReceive
If Not GetFlag Then
Return
End If
End If
'リーダークラスへ受信したメールデータを渡す
Dim re As New TKMP.Reader.MailReader(mi.MailData.DataStream, False)
'添付ファイルの情報を表示
Dim s As String = String.Empty
If re.FileCount <> 0 Then
s += "-------------------------添付ファイル---------------------" + Microsoft.VisualBasic.ControlChars.CrLf
For Each f As TKMP.Reader.File In re.FileCollection
s += f.FileName + " (" + f.FileSize.ToString() + "byte)" + Microsoft.VisualBasic.ControlChars.CrLf
Next
s += "----------------------------------------------------------" + Microsoft.VisualBasic.ControlChars.CrLf
End If
'メールの本文をテキストボックスに表示
Me.textBox1.Text = s + re.MainText
End Sub
引用ここまで
本文だけなら
'リーダークラスへ受信したメールデータを渡す
Dim re As New TKMP.Reader.MailReader(mi.MailData.DataStream, False)
'メールの本文をテキストボックスに表示
Me.textBox1.Text = re.MainText
で、取得できると思います。
以上