Запретить отправку почты для определенной учетной записи

@Maks · Регистрация: 13.03.2013

Author24 — интернет-сервис помощи студентам

Приветствую Вас, уважаемые коллеги и участники форума.
Имеется установленный MS Outlook 2013, в котором залогинено две учетных записей по pop3 и imap.
В последнее время начинаю парится и не всегда замечаю, что отправляю почту не с того адреса, с которого нужно, из-за чего на работе возникают определенные проблемы.
Выставляю учетку по умолчанию, но находясь в папках другого профиля, отправка идет именно с него, мне же необходимо сделать так, чтобы отправка всегда осуществлялась с определенной учетной записи.
Можно конечно указать левый порт для smtp, но этот вариант не подходит, т.к. при "Отправка/Получении" приходится лицезреть сообщение об ошибке.
В общем, буду рад любым рекомендациям в рамках поставленного вопроса.
П.С.: Сторонних клиентов не предлагать.

@Dinoxromniy · 05.12.2019, 11:31

Maks, попробуйте поместить в редакторе VBA (через alt+F11) в ThisOutlookSession код, предварительно вписав ваш почтовый адрес, с которого почта отправляться не должна.

Visual Basic

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    If Item.SenderEmailAddress Like "[B]Ваша_почта@домен.ru[/B]" Then
        Cancel = True
        MsgBox "Неверная почта!"
    Else
        Cancel = False
    End If
End Sub

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

Добавлено через 12 минут
Почта должна быть просто в кавычках, смарт теги добавились от выделения, они не нужны. Проект VBA нужно сохранить (просто нажать ctrl+S при активном окне VBA-редактора).

@Maks · 05.12.2019, 16:44 **[ТС]**

Dinoxromniy, попробовал, но не работает.

@Dinoxromniy · 05.12.2019, 16:52

Сообщение от Maks

попробовал, но не работает.

Maks, попробуйте вставить код ниже, при отправке должно выводится оповещение, с какого ящика отправляется письмо.

Сообщение от Maks

по pop3 и imap.

Проверьте на обоих протоколах.

Visual Basic

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
        MsgBox "Письмо отсылается с почтового ящика " & Item.SenderEmailAddress
   
 
End Sub

@Maks · 05.12.2019, 18:22 **[ТС]**

Dinoxromniy, забыл уточнить, ящик, отправку которого требуется заблокировать, настроен по IMAP.
По последнему коду, завтра буду на работе, попробую и отпишусь.

@Dinoxromniy · 05.12.2019, 18:39

Maks, попробуйте еще такой вариант, регистр почта@домен.ru теперь не имеет значения (может дело было в этом). Если не заработает - просьба уточнить, корректно ли определяет вашу почту код из сообщения 4.

Visual Basic

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    If LCase(Item.SendUsingAccount.CurrentUser.Address) Like LCase("почта@домен.ru") Then
        Cancel = True
        MsgBox "Неверная почта!"
    Else
        Cancel = False
    End If
    
End Sub

@Maks Модератор 7424 / 4178 / 525 Регистрация: 13.03.2013 Сообщений: 15,243 Записей в блоге: 14
		1
	Запретить отправку почты для определенной учетной записи 05.12.2019, 08:37. Показов 8408. Ответов 5 Метки нет (Все метки) Приветствую Вас, уважаемые коллеги и участники форума. Имеется установленный MS Outlook 2013, в котором залогинено две учетных записей по pop3 и imap. В последнее время начинаю парится и не всегда замечаю, что отправляю почту не с того адреса, с которого нужно, из-за чего на работе возникают определенные проблемы. Выставляю учетку по умолчанию, но находясь в папках другого профиля, отправка идет именно с него, мне же необходимо сделать так, чтобы отправка всегда осуществлялась с определенной учетной записи. Можно конечно указать левый порт для smtp, но этот вариант не подходит, т.к. при "Отправка/Получении" приходится лицезреть сообщение об ошибке. В общем, буду рад любым рекомендациям в рамках поставленного вопроса. П.С.: Сторонних клиентов не предлагать. 0

@Maks Модератор 7424 / 4178 / 525 Регистрация: 13.03.2013 Сообщений: 15,243 Записей в блоге: 14
	05.12.2019, 16:44 [ТС]	3
	Dinoxromniy, попробовал, но не работает. 0

@Maks Модератор 7424 / 4178 / 525 Регистрация: 13.03.2013 Сообщений: 15,243 Записей в блоге: 14
	05.12.2019, 18:22 [ТС]	5
	Dinoxromniy, забыл уточнить, ящик, отправку которого требуется заблокировать, настроен по IMAP. По последнему коду, завтра буду на работе, попробую и отпишусь. 0

	05.12.2019, 18:39