Используйте обработчик событий ItemChange для обновления свойства элемента

У меня список контактов в Outlook обновляется через другую программу. Сам список не трогаю. Каждый раз, когда контакт изменяется, я хочу обновить название компании через VBA.

Public WithEvents objNewContact As Items   
Public Sub Initialize_handler()
    Set objNewContact = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
End Sub

Public Sub objNewContact_ItemChange(ByVal Item As Object)
    Item.CompanyName = "NewCompanyName"
    MsgBox "Company name changed to " & Item.CompanyName
End Sub

Если сам редактирую контакт через Outlook, то работает. При редактировании через другой источник отображается сообщение MsgBox о том, что название компании было изменено, но изменение не сохраняется.

Если я добавлю «Item.Save», это создаст бесконечный цикл.

Public Sub objNewContact_ItemChange(ByVal Item As Object)
    Item.CompanyName = "NewCompanyName"
    MsgBox "Company name changed to " & Item.CompanyName
    Item.Save
End Sub

vba outlook

27.05.2019 16:30

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

239

Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

Вы можете обернуть внутреннее поведение вашего метода изменения в оператор If. Таким образом, он остановит бесконечный цикл на второй итерации, поскольку элемент больше не будет обновляться:

Public Sub objNewContact_ItemChange(ByVal Item As Object)
    If Item.CompanyName != "NewCompanyName" Then
        Item.CompanyName = "NewCompanyName"
        MsgBox "Company name changed to " & Item.CompanyName
        Item.Save
    End If
End Sub

27.05.2019 17:43

Ответ принят как подходящий

Вы можете отключить обработчик события ItemChange перед изменением Item.CompanyName.

Public Sub objNewContact_ItemChange(ByVal Item As Object)

    ' event handler off
    Set objNewContact = Nothing

    Item.CompanyName = "NewCompanyName"
    Item.Save

    MsgBox "Company name changed to " & Item.CompanyName

    ' event handler on
    Initialize_handler

End Sub

Спасибо! Это решило проблему, которая у меня была, и это такое простое решение, я не знаю, почему я не подумал об этом, спасибо!

— 30.05.2019 13:06

29.05.2019 02:35