Есть ли обновленный код для функции olFolder.Folders.Add?

Question

У меня есть приведенный ниже код, который создает новую папку в Outlook. этот код работал, но система была обновлена ​​с помощью microsoft proplus. и теперь возникает ошибка.

Sub Create_Folder()
Dim olApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim msg As Outlook.MailItem
Dim wb As Workbook
Dim ws As Worksheet
Dim cell As Range

Set wb = ThisWorkbook
Set ws = wb.Worksheets("Data")
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)

olFolder.Folders.Add ("Saved Data") ' run time error cannot create folder occures here 

Set olFolder = olFolder.Folders("Saved Data")

Answer 1

Какая именно ошибка? Вы получите ошибку, если папка уже существует. Вам нужно сначала проверить, существует ли папка:

on error resume next
err.Clear
set subFolder = olFolder.Folders("NDR")
if err.Number <> 0 Then
  set subFolder = olFolder.Folders.Add("NDR")
End If