Как исправить ошибку метода «Расположение» объекта «_AppointmentItem»? - PullRequest
Новая
       4

Как исправить ошибку метода «Расположение» объекта «_AppointmentItem»?

0 голосов
/ 07 декабря 2018

Я читаю различные элементы открытого элемента встречи и отображаю его в окне сообщения: 

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.

1 Ответ

0 голосов
/ 09 декабря 2018

Если вы в основном хотите избежать ошибки, когда Местоположение в любом случае недоступно, пусть просто продолжится выполнение со следующей инструкцией в случае сбоя и вместо нее укажите пустое Местоположение: 

...

With objItem

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

End With

...
...