Outlook - 매크로를 사용하여 전자 메일을 이동해도 수신일이 보존되지 않습니다.

Question

Outlook에서 매크로를 사용하여 전자 메일을 하위 폴더로 이동하는 동안 영수증 날짜는 보존되지 않습니다.

누구나 그 방법을 피할 수 있습니까?

Answer 1

대답은 없지만 문제를 재현하는 코드는 다음과 같습니다. 이것에 대한 답변을 찾을 수없는 것 같습니다. 꽤 많은 사람들이 질문을하지만.

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 

Answer 2

사실 매크로가 실제로 올바른 ModifiedTime 매개 변수를 변경한다는 것을 알게되었습니다. 잘못된 점은 폴더보기에서 Outlook Receveid - ReceivedTime을 표시하지 않고 ModifiedTime을 표시한다는 것입니다. 또한 수정 된 열 (일반적으로 보이지 않음)에 실제 RecievedTime이 있음을 발견했습니다. 따라서 매크로를 그대로 유지하면서 수정 된 열을보기에 추가하고 (폴더보기의 열을 마우스 오른쪽 단추로 클릭하여)보기에 수신 된 열을 선택적으로 제거 할 수 있습니다. '모든 글쓰기 필드'섹션에서 수정됨을 확인할 수 있습니다.