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

下面的代码删除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

olAptItemFolder没有Count属性。 olAptItemFolder.Items 。 除了上面评论中提到的其他问题之外，请尝试

 For i = olAptItemFolder.Items.Count To 1 Step -1 

编辑补充：如果你没有设置对某个对象的引用，除非你完全限定每个用途，否则你不能使用它的枚举。 find枚举的数值并使用它更简单，更容易，更快速。 然后在行尾添加一条评论，提醒你，从现在开始的六个月， '9 = olFolderCalendar