Outlook VBA : 새 (저장되지 않은) 항목을 폴더로 이동

Question

사용자가 저장하면 새 저장소 항목을 특정 저장소에 만들려고합니다. 일반적으로 여러 계정이있는 경우 새 항목을 만들 때 (예 : 작업에 대해 Ctrl + Shift + K 누르기) 활성 계정의 기본 폴더에 새 항목이 만들어집니다.

새 항목에 대한 관리자를 가로 채고 이동하려고 시도했지만 아무 효과가 없습니다. 여기서, 코드의 요지 (비 ​​새로운 아이템을 피하기 위해 검사 생략)된다

Dim WithEvents inspectors As Outlook.inspectors 

Private Sub Application_Startup() 
    Set inspectors = Application.inspectors 
End Sub 

Private Sub inspectors_NewInspector(ByVal Inspector As Inspector) 
    Dim item As Object 
    Set item = Inspector.CurrentItem 
    If item Is Nothing Then Exit Sub 
    If item.Class <> olTask Then Exit Sub 
    item.Move Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks) 
End Sub 

불행히도 이동 방법은 효과가 없다. 어떤 아이디어?

Answer 1

저장되지 않은 항목은 이동할 수 없습니다. 아이템을 어떻게 만들고 있습니까?

Items.Add 메서드를 사용하면 특정 폴더에 항목을 추가 할 수 있습니다. CreateItem 메서드를 사용하는 경우 해당 항목 형식의 기본 폴더에 항상 만들어집니다.

기존 기능을 사용하여 작업을 시도하는 대신 (가능한지 또는 쉽지는 모르겠 음) 원하는 폴더에 작업을 만드는 매크로를 만드는 것이 더 바람직하다고 생각합니다. 매크로를 도구 모음 단추에 추가하십시오. 또는 항목을 먼저 저장 한 다음 옮길 수도 있습니다. 현재 코드는 항목을 기본 작업 폴더로 이동합니다.