Outlook - перемещение электронной почты с использованием макроса не сохраняет дату получения

Question

При использовании макроса в outlook для перемещения электронного письма в подпапку дата получения не сохраняется.

У кого-нибудь есть идеи, как этого избежать?

Answer 1

Я обнаружил, что макрос изменяет параметр ModifiedTime, который на самом деле является правильным. Что неправильно, так это то, что внешний вид в представлении папок - в столбце Receveid - показывает не ReceivedTime, а ModifiedTime. Я также обнаружил, что измененный столбец (обычно не видимый) содержит фактическое время получения. Таким образом, решение состоит в том, чтобы сохранить макрос как есть, но добавить (правой кнопкой мыши на столбцы в представлении папки) столбец Modified в представление и при необходимости удалить столбец Received. Вы найдете Изменено в разделе «Все поля сообщения».

Answer 2

Не ответ .. но вот код, который повторяет проблему. Кажется, нигде не могу найти ответ на этот вопрос. Хотя несколько человек задают вопрос.

Sub MoveToFolder(objFolder As Outlook.MAPIFolder)
  'On Error Resume Next
  If objFolder Is Nothing Then
    MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
  End If

  If Application.ActiveExplorer.Selection.Count = 0 Then
    Exit Sub
  End If

  Dim objItem As Outlook.MailItem
  For Each objItem In Application.ActiveExplorer.Selection
      If objFolder.DefaultItemType = olMailItem Then
          If objItem.Class = olMail Then
              objItem.Move objFolder
          End If
      End If
  Next

  Set objItem = Nothing
  Set objFolder = Nothing
End Sub