使用IMAP无法将MimeMessage添加至已发送文件夹问题排查

编写了VB.NET函数，使用MimeKit将已发送的MimeMessage保存到邮箱的已发送文件夹，但实际无内容追加到目标文件夹，且未出现任何报错。调试确认mimeMsg为有效的已发送MimeMessage对象，sentFolder也正确获取到了IMailFolder实例，但IMAP日志中完全没有Append()调用的记录。

函数代码 #

Public Sub SaveMessageToSent(account As String, password As String, mimeMsg As MimeKit.MimeMessage)

    Using client = New MailKit.Net.Imap.ImapClient(New MailKit.ProtocolLogger("c:\imap.log"))
        client.Connect(My.Settings.Secure_Email_Server, My.Settings.Secure_IMAP_Port, True)
        client.Authenticate(account, password)
        Dim sentFolder = client.GetFolder("INBOX.Sent")
        sentFolder.Append(mimeMsg)
        client.Disconnect(True)
    End Using

End Sub

IMAP日志内容 #

Connected to imaps://secure.emailsrvr.com:993/
S: * OK [CAPABILITY IMAP4rev1 SASL-IR LOGIN-REFERRALS ID ENABLE IDLE LITERAL+ AUTH=PLAIN] Server ready proxy11.mail.ord1d.rsapps.net

C: A00000000 AUTHENTICATE PLAIN ********
S: A00000000 OK [CAPABILITY IMAP4rev1 SASL-IR LOGIN-REFERRALS ID ENABLE IDLE SORT SORT=DISPLAY THREAD=REFERENCES THREAD=REFS THREAD=ORDEREDSUBJECT MULTIAPPEND URL-PARTIAL CATENATE UNSELECT CHILDREN NAMESPACE UIDPLUS LIST-EXTENDED I18NLEVEL=1 CONDSTORE QRESYNC ESEARCH ESORT SEARCHRES WITHIN CONTEXT=SEARCH LIST-STATUS BINARY MOVE SNIPPET=FUZZY PREVIEW=FUZZY STATUS=SIZE SAVEDATE LITERAL+ NOTIFY SPECIAL-USE QUOTA ACL RIGHTS=texk] Logged in
C: A00000001 NAMESPACE
S: * NAMESPACE ((INBOX. .)) NIL NIL
S: A00000001 OK Namespace completed (0.001 + 0.000 secs).
C: A00000002 LIST "" "INBOX" RETURN (SUBSCRIBED CHILDREN)
S: * LIST (\Subscribed \HasChildren) "." INBOX
S: A00000002 OK List completed (0.003 + 0.000 + 0.002 secs).
C: A00000003 LIST (SPECIAL-USE) "" "*" RETURN (SUBSCRIBED CHILDREN)
S: A00000003 OK List completed (0.001 + 0.000 + 0.001 secs).

C: A00000004 LIST "" INBOX.Sent RETURN (SUBSCRIBED CHILDREN)
S: * LIST (\Subscribed \HasNoChildren \UnMarked) "." INBOX.Sent
S: A00000004 OK List completed (0.002 + 0.000 + 0.001 secs).

Nothing?!?!

C: A00000005 LOGOUT
S: * BYE Logging out
S: A00000005 OK Logout completed (0.001 + 0.000 secs).

日志步骤说明 #

• 第一块：Connect()调用日志
• 第二块：Authenticate()调用日志
• 第三块：GetFolder()调用日志
• Append()调用无任何日志记录
• 最后一块：Disconnect()调用日志

问题分析与解决方法 #

1. 文件夹未打开（最可能原因） #

部分IMAP服务器要求必须先打开文件夹才能执行Append操作，尽管MimeKit的API文档说明Append无需打开文件夹，但实际服务器可能有额外限制。

修改代码，在Append前打开文件夹：

Public Sub SaveMessageToSent(account As String, password As String, mimeMsg As MimeKit.MimeMessage)

    Using client = New MailKit.Net.Imap.ImapClient(New MailKit.ProtocolLogger("c:\imap.log"))
        client.Connect(My.Settings.Secure_Email_Server, My.Settings.Secure_IMAP_Port, True)
        client.Authenticate(account, password)
        Dim sentFolder = client.GetFolder("INBOX.Sent")
        ' 以读写权限打开文件夹
        sentFolder.Open(FolderAccess.ReadWrite)
        sentFolder.Append(mimeMsg)
        client.Disconnect(True)
    End Using

End Sub

2. 文件夹权限不足 #

从日志中服务器返回的RIGHTS=texk可以看出，当前账号对INBOX.Sent文件夹的权限仅包含：标记删除、删除邮件、永久删除、创建子文件夹，缺少插入（i）权限，导致无法追加邮件。解决方式：

• 联系邮件服务器管理员，为账号添加INBOX.Sent文件夹的插入权限
• 使用服务器的SPECIAL-USE已发送文件夹，避免硬编码路径：

  Dim sentFolder = client.GetFolder(SpecialFolder.Sent)
  

3. 显式指定Append参数 #

尝试显式指定AppendOptions，确保MimeKit发送完整的Append请求：

sentFolder.Append(mimeMsg, AppendOptions.None)

内容的提问来源于stack exchange，提问作者Brobic Vripiat