本文の取得について |
- 日時： 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)
で出力されました。
|
|
|