防止Outlook邮件项发生冲突

Question

Outlook Mailitem位于网络共享上，并且容易发生冲突，尤其是在对其进行修改时。

以下VBA宏执行以下操作：

1. 更改为邮件项
2. 检查邮件项是否已保存并保存。
3. 检查已保存的邮件项是否存在任何冲突。

我如何修改此代码以防止mailitem首先陷入冲突？

欢迎任何想法。

Sub CheckConflict()
    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem

    Set olApp = Outlook.Application
    Set objMail = olApp.ActiveInspector.CurrentItem

    objMail.Subject = "Changing subject and saving mail"
    If objMail.Saved = False Then
        objMail.Save
    End if

    If objMail.IsConflict = True Then
        Msgbox "Conflict detected!"
    End If
    Set olApp = Nothing
    Set objMail = Nothing
End Sub 

Answer 1

最大程度地减少调用“保存”的次数，并且不要长时间打开MailItem对象。