見通しVBA：

Question

は、私は、ユーザーがそれを保存するときに、特定の店舗内に作成される新しいOutlookアイテムを起こししようとしているフォルダに新しい（保存されていない）アイテムを移動します。複数のアカウント、あなたは新しいアイテムを作成（タスクの例は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 

残念ながら、Moveメソッドは効果がありません。何か案は？

Answer 1

あなたは保存されていない項目を移動することはできません。どのようにアイテムを作成していますか？

は、特定のフォルダに（すなわち、それを作成する）アイテムを追加するために、Items.Add方法を使用します。 CreateItemメソッドを使用している場合は、そのアイテムタイプの既定のフォルダに常に作成されます。

既存の機能を使用してタスクを試行したり作成したりするのではなく、あなたが望むフォルダにタスクを作成するマクロを作成するほうがよいと思いますマクロをツールバーボタンに追加します。または、アイテムを最初に試して保存してから移動することもできます。現在のコードでは、項目をデフォルトのタスクフォルダに移動します。ホーム>新商品>タスクまたはCtrl + Shiftキー+ K：