Outlook 2013 ItemSend не всегда срабатывает

Question

Заранее большое спасибо за то, что вы уделите мне время, чтобы вывести меня из этого:

Мое намерение: добавить (надеюсь) уникальную метку времени ко всем исходящим сообщениям.Я использую следующий код:

    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim DateStamp As String

    DateStamp = Format(Now(), "YYYYMMddHHmmss")
    Item.subject = "(REF: " & DateStamp & ") - " & Item.subject
    Item.Save

    End Sub

К сожалению, он не работает.Однако, если я изменю код на:

    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim DateStamp As String

    DateStamp = Format(Now(), "YYYYMMddHHmmss")
    MsgBox DateStamp

    End Sub

, он прекрасно работает!Это действительно заставляет меня чувствовать себя дураком, и вот где вы, гуру, подходите ... Я предполагаю, что это как-то связано с правами на редактирование, однако я не могу понять это ... Любые предложения приветствуются!Я работаю с Win 7 pro, Outlook 2013 (MSO Home & Business 2013)

Большое спасибо, Николас