3

我想使用 MailKitPop3Client从 POP3 邮箱中检索邮件，然后在处理后删除这些邮件。检索代码类似于：

Public Function GetMessages(Optional logPath As String = Nothing) As List(Of MimeMessage)

    Dim client As Pop3Client
    Dim messages = New List(Of MimeMessage)()

    Using client
        ConnectPop3(client)
        Dim count = client.GetMessageCount()
        For i As Integer = 0 To count - 1
            Dim msg = client.GetMessage(i)
            messages.Add(msg)
        Next
    End Using

    Return messages

End Function

我的问题是为了删除另一条消息中的一条消息，我需要一个索引，但是一旦我退出，它就已经不复存在了GetMessages。我所拥有的只是MimeMessage对象上可用的信息，但它没有索引属性，只有MessageId，但在我的 Delete 方法中，我必须再次阅读所有邮件，以便查找索引值。

现在Pop3Client有一个GetMessageUid(int index)方法，它返回一个与 Mime MessageID 没有明显关系的神秘字符串（看起来像 int）值，但似乎这就是我所拥有的。然后我必须将 MailKit Uid 与每条消息一起存储，使我的检索代码类似于这样，使用字典来存储 uid-消息对：

Public Function GetMessages(Optional delete As Boolean = False, Optional logPath As String = Nothing) As List(Of MimeMessage)

    Dim client As Pop3Client
    Dim messages = New Dictionary(Of String, MimeMessage)

    Using client
        ConnectPop3(client)
        Dim count = client.GetMessageCount()
        For i As Integer = 0 To count - 1
            Dim msg = client.GetMessage(i)
            Dim u = client.GetMessageUid(i)
            messages.Add(u, msg)
        Next
        client.Disconnect(True)
    End Using

    Return messages

End Function

我真的希望我在这里遗漏了一些东西，应该是一个非常简单的过程确实很简单，但我自己找不到其他任何东西。

4

1 回答 1

3

消息 UID 是跟踪连接之间消息的唯一方法。

消息的索引可以随着其他消息的删除而改变。

您的选择是：

  • 在下载消息时删除它们。

  • 保存 UID，以便稍后返回并删除特定消息。

如果您浏览POP3 RFC可能会更有意义。

于 2015-05-10T00:58:12.283 回答