创建新的PST文件（不在收件箱中，并将Outlook邮件移动到该PST中）>

Question

使用VB.net，我需要阅读Outlook电子邮件并解析各种数据，并最终将其放入SQL。完成后，我需要将电子邮件项目从“收件箱”中移出到“子PST”文件中，我希望每周一次在现有的PST下创建该子PST文件，该文件名为“今天的日期”。 PST不在收件箱中。

我花了几个月的时间尝试学习并将代码拼凑在一起。现在，我可以阅读收件箱中的电子邮件了。我刚刚开始对数据进行解析的编码，以后我会担心将其移至SQL。我今天的问题是正确设置目标PST（“今天完成”）。并且可能是执行此操作的正确语法。我使用的代码的缩写版本如下：

Imports Microsoft.Office.Interop

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        Dim olApp As Outlook.Application = New Outlook.Application()
        Dim ns As Outlook.NameSpace = olApp.GetNamespace("MAPI")
        Dim selectFolder As Outlook.MAPIFolder = Nothing
        Dim mi As Outlook.MailItem = Nothing
        Dim olDestinationFolder As Outlook.MAPIFolder = Nothing
        selectFolder = ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        olDestinationFolder = ns.GetDefaultFolder(Outlook.Folder.ns.Folders("\\[email protected]\done\4 12 2019")

 ~~~~~Code set up data table to prepare parsing - NOT SHOWN HERE~~~~~~

       For Each item As Object In selectFolder.Items
           ~~~~`Code for parsing - NOT SHOWN HERE ~~~~~~

            dt.Rows.Add(dr)
            i += 1
            item.Move(olDestinationFolder) 'after parsing move mail item
        Next
        Me.DataGridView1.DataSource = dt  'display parsed data, just to see
     'Closing apps and files
        olApp = Nothing
        ns = Nothing
        selectFolder = Nothing
        mi = Nothing
        olDestinationFolder = Nothing

        MsgBox("Ready to close") ' A msg just so I know code has run
    End Sub
End Class
我希望将电子邮件移动到PST文件夹（从收件箱中删除并添加到PST文件夹中。）程序抛出错误：

'ns'不是'Folder'“的成员。当我在第12行上进行WAG时，我并不感到惊讶。 \ done \ 4 12 2019“））

我不知道如何设置导致错误的目标文件夹。或将邮件项目移动到此文件夹的正确方法。

使用VB.net，我需要阅读Outlook电子邮件并解析各种数据，并最终将其放入SQL。完成后，我需要将电子邮件项目从“收件箱”中移到一个子PST文件，希望......>

Answer 1

行

olDestinationFolder = ns.GetDefaultFolder(Outlook.Folder.ns.Folders("\\[email protected]\done\4 12 2019")