如何使用VB从windows窗体应用程序在Outlook中创建文件夹

Dim outlookApp As New Outlook.Application
Dim outlookNamespace As Outlook.NameSpace = outlookApp.GetNamespace("MAPI")
outlookApp.Visible = True

Dim rootFolder As Outlook.MAPIFolder = outlookNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)

Dim newFolder As Outlook.MAPIFolder = rootFolder.Folders.Add("新文件夹名称")

Imports Outlook = Microsoft.Office.Interop.Outlook

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim outlookApp As New Outlook.Application
        Dim outlookNamespace As Outlook.NameSpace = outlookApp.GetNamespace("MAPI")
        outlookApp.Visible = True

        Dim rootFolder As Outlook.MAPIFolder = outlookNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        Dim newFolder As Outlook.MAPIFolder = rootFolder.Folders.Add("新文件夹名称")

        MessageBox.Show("已创建新文件夹：" & newFolder.Name)
    End Sub
End Class