Vb.net 访问另一个非我的收件箱Outlook Addin

我如何获得一个我作为用户添加到的文件夹

我需要为工作做一个加载项，我如何访问一个不是我的收件箱

所以最重要的是我的个人收件箱，我需要访问“MIS”中的收件箱

    Private Sub ThisApplication_NewMail() Handles Application.NewMail


    Dim myNameSpace = Application.GetNamespace("MAPI")
    Dim oParentFolder = myNameSpace.Folders("MIS")

    Dim mis = oParentFolder.Folders.Item("Inbox")
    Dim moveMail As Outlook.MailItem = Nothing

    Dim mItems As Outlook.Items = mis.Items
    mItems.Restrict("[Read] = true")
    Dim destFolder As Outlook.MAPIFolder = mis.Folders("Test")
    Dim SubjName = "TestingAddin123"
    Dim sender As String = "michael"
    Dim FName As String = "[Some recurring subject]"
    Dim tStamp As String = Format(DateTime.Now, "ddMMyy").ToString()


    Try
        For Each eMail As Object In mItems
            moveMail = TryCast(eMail, Outlook.MailItem)
            If Not moveMail Is Nothing Then
                If InStr(moveMail.SenderEmailAddress, sender) Then
                    If InStr(moveMail.Subject, SubjName) > 0 Then
                        Dim rn As New Random

                        Dim n = rn.Next(1, 9999)
                        'n()

                        moveMail.SaveAs("W:\NS\" & FName & "_" & tStamp & n.ToString() + ".html", Outlook.OlSaveAsType.olHTML)

                        moveMail.Move(destFolder)
                    End If
                End If
            End If
        Next eMail
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

End Sub

因此，到目前为止，我正在使用上述代码，但我似乎无法找到MIS收件箱。

---

如何实现这一点？

尝试使用Namespace.CreateRecipient/Namespace.GetSharedDefaultFolder方法。

谢谢Dmitry，我将在周一查看。（首次开发Office插件）