Я пытаюсь отключить действие «Ответить всем» всякий раз, когда есть определенный адрес (содержащий много получателей) в поле To выбранного электронного письма (используя событие Application.ItemLoad).
Я могу сделать это очень хорошо, когда письмо «выскочило» («Инспектор» TypeName из ActiveWindow), но я не смог отключить его, пока TypeName - это «Проводник» (когда электронное письмо не было выдано, только выбрано).
В результате поиска в Интернете я не смог найти решение - большинство сообщений, таких как , это Работа с электронной почтой в Инспекторе.
Я пытаюсь найти, какой объект .Actions является свойством ниже ActiveExplorer, но просмотр объекта не дал результатов ...
Я попытался ActiveExplorer.Selection.Item(1).Actions("Reply to All").Enabled = False, который не выдает ошибку, но кнопка «Ответить всем» остается активной.Я пробовал множество других комбинаций, но все они возвращали ошибку времени выполнения 438.
Я уверен, что решение заключается в отключении действия для фактического Application, но я не могу найти .Actions везде!
код:
Private Sub Application_ItemLoad(ByVal Item As Object)
Dim curremail As Outlook.MailItem
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set curremail = Application.ActiveExplorer.Selection.Item(1)
If InStr(curremail.To, "Address to not reply to") Then _
'ActiveExplorer.Selection.Item(1).Actions("Reply to All").Enabled = False <- This doesn't work (and no error)
Case "Inspector"
Set curremail = Application.ActiveInspector.CurrentItem
If InStr(curremail.To, "Address to not reply to") Then _
curremail.Actions("Reply to All").Enabled = False
End Select
End Sub