Как предупредить, если в outlook отсутствует информация о месте встречи через VBA в outlook?

Question

Я должен отправить приглашение на встречу через Outlook и указать местоположение для этого Skype.Когда местоположение Skype, тело должно содержать сильное «Присоединиться к Skype Meeting».Когда пользователь пытается нажать «Отправить», и если эта строка отсутствует в теле, должна появиться ошибка о том, что приглашение по Skype не включено.

Я пытался использовать Item.Location и Item.Body вместо того, что я написал ниже, я не уверен, что делать.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If InStr(1, AppointmentItem.Location, "Skype", vbTextCompare) > 0 Then
        If InStr(1, AppointmentItem.Body, "Join Skype Meeting", vbTextCompare) < 0 Then
            answer = MsgBox("There's no invite, send anyway?", vbYesNo)
            If answer = vbNo Then Cancel = True
        End If
    End If
End Sub

Answer 1

Я бы предложил создать точку останова и посмотреть под значениями отладчика, полученными в событии ItemSend.

Также вы должны использовать объект item, переданный в качестве параметра:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 If InStr(1, Item.Location, "Skype", vbTextCompare) > 0 Then
    If InStr(1, Item.Body, "Join Skype Meeting", vbTextCompare) < 0 Then
        answer = MsgBox("There's no invite, send anyway?", vbYesNo)
        If answer = vbNo Then Cancel = True
    End If
 End If
End Sub

Вы можете попробовать использовать другие свойства, например RTFBody или HTMLBody вместо Body.Объектная модель Outlook предоставляет четыре основных способа работы с телами элементов:

1. Тело - обычный текст.
2. HTMLBody .
3. RTFBody - байтовый массив, представляющий тело элемента Microsoft Outlook в расширенном текстовом формате.
4. Редактор Word.Свойство WordEditor класса Inspector возвращает экземпляр документа Word, который представляет тело сообщения.Итак, вы можете использовать объектную модель Word и делать все, что вам нужно с телом сообщения .Методы копирования и вставки документа помогут вам.

См. Глава 17: Работа с телами элементов для получения дополнительной информации.