Vb.net Visual Basic将outlook发送的项目移动到其他文件夹

我已安装Visual Studio 2017 Pro，正在尝试编写VSTO Outlook加载项。基本上，我希望在将新项目添加到sent items文件夹时执行代码。我一直在研究，显然这是最有效的方法，而不是在ItemSend事件中使用代码

我添加了各种MsgBox命令，以便可以看到各种位实际上正在运行，但由于某些原因，ItemAdd事件似乎没有触发。我的代码如下：

Public Class ThisAddIn
    Public WithEvents myOlItems As Outlook.Items

    Private Sub ThisAddIn_Startup() Handles Me.Startup
        MsgBox("Initliasing add-in")
        AddIn_Init()
    End Sub

    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown

    End Sub

    Private Sub AddIn_Init()
        myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderSentMail).Items
        MsgBox("We are ready!")
    End Sub

    Private Sub myOlItems_ItemAdd(ByVal Item As Object)
        MsgBox("You sent an email from " & Item.SenderEmailAddress)
    End Sub

End Class

---

我想我已经接近它的工作状态了，但还没有完全达到目标-非常感谢您收到了任何提示。

最终代码现在正在工作-谢谢

Public Class ThisAddIn
    Public WithEvents myOlItems As Outlook.Items

    Private Sub ThisAddIn_Startup() Handles Me.Startup
        MsgBox("Initliasing add-in")
        AddIn_Init()
    End Sub

    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown

    End Sub

    Private Sub AddIn_Init()
        myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderSentMail).Items

        MsgBox("We are ready!")
    End Sub

    Private Sub myOlItems_ItemAdd(Item As Object) Handles myOlItems.ItemAdd
        MsgBox("You sent an email from " & Item.SenderEmailAddress)
    End Sub
End Class

---

您是否尝试添加句柄myOlItems.ItemAdd？您好-这不是私有子myOlItems_ItemAdd（ByVal Item As Object）所做的吗？抱歉，我不明白-使用Visual Studio下拉列表后，一切都变得清晰了：）