时间戳

首页 > 解决方案 > 如何修复对象“_AppointmentItem”的方法“位置”失败错误？

vba - 如何修复对象“_AppointmentItem”的方法“位置”失败错误？

问题描述

我阅读了打开的约会项目的各种元素并将其显示在消息框中：

Private Sub MessageAppointmentInfo()    

    Dim objItem As Object
    Dim objApp As Outlook.Application
    Dim mySubject As String
    Dim myLocation As String
    Dim myStartDate As Date

    Set objApp = Application

    Set objItem = objApp.ActiveExplorer.Selection.Item(1)

    With objItem

        mySubject = .Subject
        myLocation = .Location
        myStartDate = .Start

    End With

    MsgBox mySubject & myStartDate & myLocation

End Sub

如果我注释掉 myLocation 和 myStartDate，它就会运行。

为什么位置和开始日期与主题不一样？

我得到：

对象“_AppointmentItem”的方法“位置”失败

当我点击调试时，它会突出显示myLocation = .Location.

我对 Outlook VBA 不熟悉——我对 Access 和 Excel 更熟悉。

标签： vbaoutlook

解决方案

如果您主要想避免 Location 无论如何都不可用的错误，让执行在失败的情况下继续执行下一条指令并提供空白 Location 代替：

...

With objItem

    mySubject = .Subject
    myLocation = ""
    On Error Resume Next
    myLocation = .Location
    On Error Goto 0 ' switch off error handling
    myStartDate = .Start

End With

...

推荐阅读