Я пытаюсь проверить, не конфликтует ли почтовый элемент.
Я еще не запускал их, но это эквивалентные коды или есть разница?
Sub CheckConflict1()
Dim myItem As Outlook.MailItem
Set myItem = Application.ActiveInspector.CurrentItem
Dim myConflicts As Outlook.Conflicts
Set myConflicts = myItem.Conflicts
If (myConflicts.Count > 0) Then
MsgBox ("This item is involved in a conflict.")
Else
MsgBox ("This item is not involved in any conflicts.")
End If
End Sub
Sub CheckConflict2()
Dim myItem As Outlook.MailItem
Set myItem = Application.ActiveInspector.CurrentItem
If (myItem.IsConflict = False) Then
MsgBox ("This item is involved in a conflict.")
Else
MsgBox ("This item is not involved in any conflicts.")
End If
End Sub