Форум программистов, компьютерный форум, киберфорум
MS Office Outlook
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Модератор
Эксперт по компьютерным сетямЭксперт HardwareЭксперт Windows
5618 / 2820 / 357
Регистрация: 13.03.2013
Сообщений: 11,493
Записей в блоге: 5
1

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

05.12.2019, 08:37. Просмотров 1034. Ответов 5
Метки нет (Все метки)

Приветствую Вас, уважаемые коллеги и участники форума.
Имеется установленный MS Outlook 2013, в котором залогинено две учетных записей по pop3 и imap.
В последнее время начинаю парится и не всегда замечаю, что отправляю почту не с того адреса, с которого нужно, из-за чего на работе возникают определенные проблемы.
Выставляю учетку по умолчанию, но находясь в папках другого профиля, отправка идет именно с него, мне же необходимо сделать так, чтобы отправка всегда осуществлялась с определенной учетной записи.
Можно конечно указать левый порт для smtp, но этот вариант не подходит, т.к. при "Отправка/Получении" приходится лицезреть сообщение об ошибке.
В общем, буду рад любым рекомендациям в рамках поставленного вопроса.
П.С.: Сторонних клиентов не предлагать.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2019, 08:37
Ответы с готовыми решениями:

Запретить Отправку Почты На Имя (first Name) Пользователя
Всем привет. Столкнулся вот с неприятной ситуацией и грустно туплю - то ли так и должно быть, то ли...

Отправка почты с использованием доменной учетной записи
Добрый день. Администраторы сети сделали мне большую подляну. Закрывают анонимную отправку через...

Отправка почты с нужной учетной записи с Outlook
Привет. Подскажите пожалуйста, как можно настроить данный макрос, чтобы он в outlook (где несколько...

Ошибка при добавлении учетной записи почты Google
Не могу добавить уч.запись почты google в стандартное приложение Почта в Win10. Кто знает в чем...

5
571 / 317 / 97
Регистрация: 22.12.2015
Сообщений: 921
05.12.2019, 11:31 2
Maks, попробуйте поместить в редакторе VBA (через alt+F11) в ThisOutlookSession код, предварительно вписав ваш почтовый адрес, с которого почта отправляться не должна.
Visual Basic
1
2
3
4
5
6
7
8
9
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-редактора).
1
Модератор
Эксперт по компьютерным сетямЭксперт HardwareЭксперт Windows
5618 / 2820 / 357
Регистрация: 13.03.2013
Сообщений: 11,493
Записей в блоге: 5
05.12.2019, 16:44  [ТС] 3
Dinoxromniy, попробовал, но не работает.
0
571 / 317 / 97
Регистрация: 22.12.2015
Сообщений: 921
05.12.2019, 16:52 4
Цитата Сообщение от Maks Посмотреть сообщение
попробовал, но не работает.
Maks, попробуйте вставить код ниже, при отправке должно выводится оповещение, с какого ящика отправляется письмо.
Цитата Сообщение от Maks Посмотреть сообщение
по pop3 и imap.
Проверьте на обоих протоколах.
Visual Basic
1
2
3
4
5
6
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
        MsgBox "Письмо отсылается с почтового ящика " & Item.SenderEmailAddress
   
 
End Sub
1
Модератор
Эксперт по компьютерным сетямЭксперт HardwareЭксперт Windows
5618 / 2820 / 357
Регистрация: 13.03.2013
Сообщений: 11,493
Записей в блоге: 5
05.12.2019, 18:22  [ТС] 5
Dinoxromniy, забыл уточнить, ящик, отправку которого требуется заблокировать, настроен по IMAP.
По последнему коду, завтра буду на работе, попробую и отпишусь.
0
571 / 317 / 97
Регистрация: 22.12.2015
Сообщений: 921
05.12.2019, 18:39 6
Maks, попробуйте еще такой вариант, регистр почта@домен.ru теперь не имеет значения (может дело было в этом). Если не заработает - просьба уточнить, корректно ли определяет вашу почту код из сообщения 4.

Visual Basic
1
2
3
4
5
6
7
8
9
10
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
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2019, 18:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Добавление почты скриптом к уже существующей учетной записи в AD
Всем привет. Надо добавить более 100 адресов электронной почты пользователям в AD чьи учетки уже...

Выбор учётной записи в Outlook при отправке почты из Excel
Добрый день. Что-то не могу выиграть отправку почты. Есть Dim OutApp As Object Dim...

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

Как сделать скриншот экрана сеанса одной учетной записи программой из сеанса другой учетной записи?
Что имеем: Одни компьютер. Одна ОС - windows (возможно xp, 7 x86-x64). Учетных записей...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.