Как изменить ReceivedTime писем в Outlook VBA? Он говорит, что защищен от записи - PullRequest
Новая
       46

Как изменить ReceivedTime писем в Outlook VBA? Он говорит, что защищен от записи

0 голосов
/ 05 апреля 2020

Я новичок в VBA, а также здесь.

Справочная информация. Я только что перенес некоторых пользователей с сервера IMAP на Exchange. Все прошло хорошо, за исключением одного пользователя, который использует почтовое приложение Apple в MacOS. Я перешел в это приложение, но отправленные сообщения испортились. Почтовое приложение устанавливает текущее время как полученное время. Почтовое приложение и maiapp в iPhone также используют эту метку времени для сортировки. Итак, теперь мне нужно найти способ изменить полученное время на время отправления.

Я нашел ответ здесь: https://vox.veritas.com/t5/Enterprise-Vault/EV-is-it-possible-to-change-the-date-when-an-email-was-journaled/td-p/590495

Я немного его изменил , Я получаю ошибку, что Item.ReceivedTime защищен от записи. Как мне обойти это? 

Sub sent-received()
    Set rSession = CreateObject("Redemption.RDOSession")
    rSession.MAPIOBJECT = Application.Session.MAPIOBJECT
    Set Msg = Application.ActiveExplorer.CurrentFolder
    For Each Item In Msg.Items
        Item.ReceivedTime = Item.SentOn
        Item.Save
    Next
End Sub
...