本文の取得について |
- 日時: 2008/04/30 20:46
- 名前: KUMABO
- TKMPで動作を確認している素人です。
TKMP ver 2.4.13 VisualStudio 2008
Dim Mails As TKMP.Net.MailData() = PopClient.MailDatas Dim i As Integer
For i = 0 To Mails.Length - 1 Debug.WriteLine("受信数 " + (i + 1).ToString() + " / " + Mails.Length.ToString()) Dim Data As TKMP.Net.MailData = CType(Mails(i), TKMP.Net.MailData)
If Not Data.ReadHeader() Then '受信に失敗 Return End If
Dim Stream As System.IO.Stream = Data.HeaderStream Dim reader As New TKMP.Reader.MailReader(Stream, False)
Debug.WriteLine("From:" & reader.HeaderCollection("From")) Debug.WriteLine("To:" & reader.HeaderCollection("To")) Debug.WriteLine("Subject:" & reader.HeaderCollection("Subject")) Debug.WriteLine("body:" & reader.MainText) ' Debug.WriteLine("body:" & reader.FirstTextPart.MainText) Next i
実行すると、body 以外の情報は正しく取得、出力されるのですが、 body が空の文字列になってしまいます。
MainTextの使用方法がわかりません。 よろしくお願いします。
|
|
Re: 本文の取得について ( No.1 ) |
- 日時: 2008/04/30 21:01
- 名前: KUMABO
- 自己レスです。
ヘルプをよく見たら解決できました。
Data.ReadBody()
Dim sm As System.IO.Stream = Data.DataStream Dim rd As New TKMP.Reader.MailReader(sm, False)
Debug.WriteLine("body:" & rd.FirstTextPart.MainText)
で出力されました。
|
|
|