阅读电子邮件正文

时间:2021-04-19 07:09:47

标签: vb.net email message email-client

我在尝试理解如何阅读电子邮件正文时遇到了一些问题。我希望这里有人已经完成并可以帮助我。

我在 Visual Studio 2019 中使用 Visual Basic,并有一个网络表单来读取我的 gmail 帐户。

“Get Emails”按钮的后台代码如下:

    Dim client As OpenPop.Pop3.Pop3Client = New OpenPop.Pop3.Pop3Client()

    client.Connect("pop.gmail.com", 995, True)
    client.Authenticate("daniel@gmail.com", "W-12345")

    Dim messageCount As Integer = client.GetMessageCount()
    Dim text1 As String = ""
    Dim allMessages As List(Of OpenPop.Mime.Message) = New List(Of OpenPop.Mime.Message)

    For count As Integer = 1 To messageCount
        Try
            allMessages.Add(client.GetMessage(count))
            text1 = client.GetMessageHeaders(count).Subject & "( " & client.GetMessageUid(count).Trim & " )"
            ListBox1.Items.Add(text1)
        Catch ex As OpenPop.Pop3.Exceptions.PopServerException
            allMessages.Add(Nothing)
        End Try
    Next
    ListBox1.DataBind()

我设法阅读了它并显示了消息标题及其 ID。 我如何编码以显示消息正文。 我对如何使用 Messagepart 类来实现这一点有疑问。

0 个答案:

没有答案