Предотвращение вступления почты Outlook в конфликт

Question

Почтовый элемент Outlook находится на общем сетевом ресурсе и подвержен конфликтам, особенно когда в него вносятся изменения.

Следующий макрос VBA выполняет следующие действия:

1. Вносит изменения в почтовый элемент
2. Проверяет, сохранен ли почтовый элемент, и сохраняет его.
3. Проверяет сохраненный почтовый элемент на наличие конфликтов.

Как мне изменить этот код, чтобы почтовый элемент не вступал в конфликт в первую очередь?

Любые идеи приветствуются.

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 открытым в течение любых длительных периодов времени.