Vb.net 如何定义pst（outlook）文件路径以便获取日历项目

我设法从outlook日历中检索日历项，如下所示：

    Dim objOLApp As Outlook.Application
    Dim objFolder As Outlook.MAPIFolder
    Dim objExplorer As Outlook.Explorer
    Dim objSubFolder As Outlook.MAPIFolder
    Dim objCalenderItem As Outlook.AppointmentItem
    Dim objOutlookFolders As Outlook.Folders
    Dim intFolderCtr As Integer
    Dim intSubFolderCtr As Integer
    Dim intAppointmentCtr As Integer

    objOLApp = New Outlook.Application
    objOutlookFolders = objOLApp.Session.Folders

    For intFolderCtr = 1 To objOutlookFolders.Count
        objFolder = objOutlookFolders.Item(intFolderCtr)
        objExplorer = objFolder.GetExplorer()
        For intSubFolderCtr = 1 To objExplorer.CurrentFolder.Folders.Count
            objSubFolder = objExplorer.CurrentFolder.Folders.Item(intSubFolderCtr)
            If objSubFolder.DefaultItemType = Outlook.OlItemType.olAppointmentItem Then
                For intAppointmentCtr = 1 To objSubFolder.Items.Count
                    objCalenderItem = objSubFolder.Items.Item(intAppointmentCtr)
                    Call Debug.Print(objCalenderItem.Subject & ", " & objCalenderItem.Location)

                Next
            End If
        Next
    Next

问题是outlook interope会从我的psd自动执行此操作。 假设我想指出pst文件的路径。。。

---

有人能告诉我怎么做吗？

我想您应该使用Microsoft.Office.Interop.Outlook中的“存储”界面，该界面表示本地计算机或网络驱动器上的文件，用于存储当前配置文件中某个帐户的电子邮件和其他项目

---

康拉德，我有一种感觉，至少在Outlook自动化的世界里，索引从一开始，因此那些循环也从一开始。

代码有几个地方出了问题。最明显的是，您使用基于1的循环，但数组是基于0的。这将导致运行时错误。此外，您应该在此处为每个循环使用

，而不是为

循环使用裸

。最后，你的问题一点也不清楚。你想做什么？问题在哪里？你的代码与此有何关联？我的代码与此完全无关。。。我是以分享的名义放在那里的。这段代码从我的outlook pst文件中检索信息，而我不告诉他文件在哪里。我想告诉他文件在哪里，这样我可以从sevral pst文件中检索日历项目