这是我的代码
边阅读所有电子邮件边做 如果 oMsg.Unread = vbTrue 和 oMsg.Categories = Outlook.OlCategoryColor.olCategoryColorNone . .准备电子邮件 . 通过 SMTP 发送准备电子邮件 ** oMsg.Categories = oMsg.Categories = Outlook.OlCategoryColor.olCategoryColorGreen** 别的 如果 oMsg.Unread = vbTrue 和 oMsg.Categories = oMsg.Categories = Outlook.OlCategoryColor.olCategoryColorGreen oMsg.Unread = False 从收件箱移动到另一个文件夹 万一 万一 结束做
类别未设置为绿色。如果我返回到我系统上的 Outlook，我看不到标志已设置或打开。 所以当程序再次运行时，进程进入第一个 If 并再次发送电子邮件。
我系统上的 Outlook 未设置为 Outlook365 的缓存模式。 即使我将 Outlook 设置为缓存模式，类别仍未设置。
If you are wondering why I am doing the Send and Move in 2 step because with Outlook in non cached mode takes longer time to process. So I want all the emails to go out first and then move it out of inbox.
以编程方式设置类别未在 Outlook 中设置的任何原因。
暂时解决这个问题我有一个代码
If oMsg.Unread = vbTrue 那么 . .准备电子邮件 . 通过 SMTP 发送准备电子邮件 ** oMsg.Unread = vbFalse ** 别的 如果 oMsg.Unread = vbFalse 那么 从收件箱移动到另一个文件夹 万一 万一 结束做 效果很好。问题，几个用户可以访问收件箱，如果他们移动光标，电子邮件将被标记为已读，在我的下一个过程中，将把它移到“另一个文件夹”
所以，如果我设置将解决问题的类别。