Как автоматически скрыть все электронные письма, отправленные в Outlook?

#HowItSolved #Howto
Код:
Private Sub Application_ItemSend (элемент ByVal как объект, отмена как логическое значение)
Dim objRecipient как получатель
Dim strMsgErr как строка
Тусклый результат как целое число
Dim strBccEmailДобавить как строку
При ошибке Возобновить Далее

strBccEmailAdd /"[электронная почта защищена]/"

Установить objRecipient Item.Recipients.Add(strBccEmailAdd)
objRecipient.Type olBCC
Если Не objRecipient.Resolve Тогда
strMsgErr /"Не удалось определить получателя скрытой копии. /" & _
/"Вы хотите еще отправить сообщение?/"
результат MsgBox(strMsg, vbДаНет vbDefaultButton1, _
/"Не удалось определить получателя скрытой копии/")
Если результат vbНет Тогда
Отменить Правда
Конец, если
Конец, если

Установить objRecipient Ничего
Конец субтитра

Есть видео предложение? Опубликуйте это в разделе комментариев, свяжитесь со мной через мою страницу в Facebook или напишите мне в Твиттере!

Свяжитесь со мной!
Facebook http://www.facebook.com/HowItSolved
Твиттер http://www.twitter.com/HowItSolved

Не забудьте поставить лайк, поделиться и подписаться!

Пожалуйста, воспользуйтесь возможностью подключиться и поделиться этим видео со своими друзьями и семьей, если вы считаете его полезным.