Question

以下代码删除Outlook默认日历的子文件夹中的约会。我已经注释掉了给出运行时错误462的行：“远程服务器机器不存在或不可用”。

我可以对此代码进行更改以解决此错误吗？感谢您提供任何指导。

Public Sub DeleteAppt()

Dim olApp As Object 'Outlook.Application
Dim olNS As Object 'Outlook.Namespace
Dim olAptItemFolder As Object 'Outlook.Folder
Dim olAptItem As Object 'Outlook.AppointmentItem
Dim i As Long

Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.Session
Set olAptItemFolder = olNS.GetDefaultFolder(olFolderCalendar).Folders("TestCal")

''''For i = olAptItemFolder.Count To 1 Step -1
    Set olAptItem = olAptItemFolder.Items(i)
    If olAptItem.Subject Like "***" Then
        olAptItem.Delete
    End If
Next i

Set olAptItem = Nothing
Set olAptItemFolder = Nothing
Set olApp = Nothing

End Sub

Answer 1

temp = [] for i in range(len(areas)): # append the area, then the temperature temp.append(areas[i]) temp.append(temperatures[i])没有olAptItemFolder属性。 Count。除了上面评论中提到的其他问题，请尝试

olAptItemFolder.Items

编辑添加：如果您没有设置某个对象的引用，则除非您完全符合每项使用的要求，否则您无法使用其枚举。通常更简单，更容易和更快地找出枚举的数值并使用它。然后在行的末尾添加注释，以便在六个月后提醒你For i = olAptItemFolder.Items.Count To 1 Step -1

运行时错误462 - 从Excel中删除Outlook约会

1 个答案: