On Error Resume Next 不工作/创建文件夹错误 440

Question

第 1 步： 我想创建一个文件夹，如果它失败（因为它可能已经存在），我希望它忽略并继续：

    Sub MakeFolder()

    'declare variables
    Dim outlookApp As Outlook.Application
    Dim NS As Outlook.NameSpace

    'set up folder objects    
    Set outlookApp = New Outlook.Application
    Set outlookApp = New Outlook.Application
    Set NS = outlookApp.GetNamespace("MAPI")
    Set objOwner = NS.CreateRecipient("email@host.com")
    objOwner.Resolve
    Set outlookInbox = NS.GetSharedDefaultFolder(objOwner, olFolderInbox)

    'make a folder, maybe
    Dim newFolder 
    On Error Resume Next
    Set newFolder = outlookInbox.Folders.Add("myNewFolder")
    On Error GoTo -1
    On Error GoTo 0
    End Sub

但我仍然收到错误：

我怎样才能得到这个runnign？如果该文件夹不存在，它会顺利运行并创建它。

第二步： 我有一个可能随时间变化的文件夹列表（大约 60 个）。因此，我想运行一个脚本检查新文件夹，然后创建它们：

     For Each fol In folders
        On Error Resume Next
        Set newFolder = outlookInbox.Folders.Add(fol)
        If Err.Number <> 0 Then
            On Error GoTo -1
        Else:
            Debug.Print fol & " created "
        End If
        On Error GoTo 0
    Next ID

同样，outlookInbox.Folders.Add() 如果无法创建该文件夹，则无论下一个返回如何，都会引发错误。我该怎么办？

编辑

[解决方法见第一条评论]

Answer 1

现在您已经修复了 IDE，您可以使用以下代码

Option Explicit
Public Sub Example()
    Dim olNs As Outlook.NameSpace
    Set olNs = Application.GetNamespace("MAPI")

    Dim Inbox  As Outlook.Folder
    Set Inbox = olNs.GetDefaultFolder(olFolderInbox)

    Dim SubFolder As Outlook.Folder

    '// SubFolder Name
    Dim FolderName As String
    FolderName = "myNewFolder"

    '// Check if folder exist else create one
    If FolderExists(Inbox, FolderName) = True Then
        Debug.Print "Folder Exists"
        Set SubFolder = Inbox.Folders(FolderName)
    Else
        Set SubFolder = Inbox.Folders.Add(FolderName)
    End If

End Sub


'//  Function - Check folder Exist
Private Function FolderExists(Inbox As Folder, FolderName As String)
    Dim Sub_Folder As MAPIFolder

    On Error GoTo Exit_Err
    Set Sub_Folder = Inbox.Folders(FolderName)

    FolderExists = True
        Exit Function

Exit_Err:
    FolderExists = False

End Function