Как установить FlagStatus для «Отправленной» копии сообщения?

Question

По сути, я хочу запустить следующий код.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If InStr(Item.Body, "XYZ") > 0 Then
        mailItem.FlagStatus = olFlagComplete
        mailItem.Save
    End If
End Sub

Это доставляет мне две проблемы.Во-первых, Outlook не позволяет мне установить FlagStatus в этом событии, поэтому я должен установить FlagRequest на «Завершено».

Может быть, я смогу с этим жить.Во-вторых, и что более важно, этот флаг устанавливается в копии сообщения, которое отправляется получателям, но не устанавливается в копии сообщения, которое я храню.

Мне нужен этот флаг для меня, а не для получателя сообщения.Спасибо за предложения.