Question

我有一个VBScript，可以在outlook中创建一个文件夹。它在登录脚本中运行我现在遇到的问题是，如果脚本再次运行，我得到一个错误，无法创建文件夹，因为该文件夹已经存在。任何人都可以帮我创建一个if语句来提及文件夹是否存在然后退出。

`Const olFolderInbox = 6

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)`

`strFolderName = objFolder.Parent
Set objMailbox = objNamespace.Folders(strFolderName)`

`Set objNewFolder = objMailbox.Folders.Add("Search")
objNewFolder.WebViewURL = "www.google.com"
objNewFolder.WebViewOn = True`

Answer 1

您可以暂时关闭错误处理，然后尝试引用该文件夹。如果失败，给出错误，则该文件夹不存在，您可以创建它。

On Error Resume Next
Set objNewFolder = objMailbox.Folders("Search")
If Err.Number <> 0 Then
    On Error GoTo 0
    'the folder doesn't exist, create it
End If

如果您愿意，可以在.Add("Search")电话周围包装此错误代码。

如果Statement为True，则退出VBScript

1 个答案: