阅读收件箱中的第一封邮件，使用pop3client将主题内容保存为文本文件

Question

当通过vb.net将邮件保存为文本文件时，我遇到了一个问题。根据我的任务，我已经完成了以下代码:-

public sub rearmail()
 Dim pop3Client As Pop3Client
            If (Session("Pop3Client") Is Nothing) Then
                pop3Client = New Pop3Client
                pop3Client.Connect("pop.gmail.com", 995, True)
                pop3Client.Authenticate("[e-mail]", "password")
                Session("Pop3Client") = pop3Client
            Else
                pop3Client = CType(Session("Pop3Client"), Pop3Client)
            End If 'connect to the inbox with username and pass word authentication
        Dim message As Message = pop3Client.GetMessage(0)
        dim frm as string ' to store from address
        dim subj as string ' to store the subject
        dim mdate as date ' to store the date and time
        frm=message.Headers.From.Address
        subj= message.Headers.Subject
        mdate=message.Headers.DateSent
    '**** no i need to read the mail message and save it as a notepad file ****
    end sub

我试了很多次来阅读邮件:-

 Dim message As Message = pop3Client.GetMessage(0)

: -

Dim str As MailMessageEventArgs
dim strmsg as string 
strmsg=str..Message.Body.ToString 'error null error exception at run time
strmsg=message.MessagePart.Body  ' nothing will return

同样，我做了很多关于消息对象的事情，但是我没有达到目标，我希望这个社区的专家可以帮助我克服这个问题，提前感谢.....♥

Answer 1

感谢那些尝试解决问题的人，我现在得到了解决方案，我希望与你分享。下面是读取邮件正文内容的代码段;-

 Dim messagePart As MessagePart = message.MessagePart.MessageParts(0)
 MsgBox(messagePart.BodyEncoding.GetString(messagePart.Body))