Прескочи на основното съдържание

Как да получите подкана или потвърждение, преди да изпратите имейли в Outlook?

Автор: Силувия Последна промяна: 2020-07-08

Много пъти сте изпращали имейл и сте осъзнавали, че пропускате нещо важно или нещо нередно се появява в имейла няколко секунди по-късно. Как да избегнете изпращането на неудобен имейл в Outlook? Всъщност можете да потвърдите отново изпращането на имейла, след като натиснете бутона Изпрати в Outlook. Методът в тази статия може да ви помогне да покажете проблема.

Получавайте подкана или потвърждение, преди да изпратите имейли с VBA код


Получавайте подкана или потвърждение, преди да изпратите имейли с VBA код

Следният VBA код може да ви помогне да потвърдите отново изпращането на имейл след натискане на бутона Изпращане в Outlook. Моля, направете следното.

1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, моля, щракнете два пъти, за да отворите ThisOutlookSession прозорец с код и след това копирайте под кода на VBA в прозореца с код.

VBA код: Получете потвърждение, преди да изпратите имейли в Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xPrompt As String
Dim xOkOrCancel As Integer
On Error Resume Next
xPrompt = "Do you want to continue sending the email?"
xOkOrCancel = MsgBox(xPrompt, vbOKCancel)
If xOkOrCancel <> vbOK Then
    Cancel = True
End If
End Sub

3. Натисни Друг + Q ключове за затваряне на Microsoft Visual Basic за приложения прозорец.

Отсега нататък, когато ударите Изпрати бутон за изпращане на имейл в Outlook, ще се появи диалогов прозорец за потвърждение, както е показано на екранната снимка по-долу. Кликнете OK за да изпратите този имейл, щракнете Отказ за да продължите да пишете имейла.

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Clicking on cancel , sends the message
This comment was minimized by the moderator on the site
Hi, I get an error message when I run this VBA code.The error is "Compile error: Sub or function not defined."
This comment was minimized by the moderator on the site
Hi the code is giving me an error saying "Compile error: Sub or Function not defined."What would be the cause for this?
This comment was minimized by the moderator on the site
The reason it doesn't work when you restart Outlook is a secuirty one - the macro is not trusted by default, you have to self certify it. Follow the instructions on this site and it will all work fine after every restart... https://www.howto-outlook.com/howto/selfcert.htm
This comment was minimized by the moderator on the site
The solution worked for me once but I couldn't get it to work for me again. Any suggestions how to do that?
This comment was minimized by the moderator on the site
The reason it doesn't work when you restart Outlook is a secuirty one - the macro is not trusted by default, you have to self certify it. Follow the instructions on this site and it will all work fine after every restart... https://www.howto-outlook.com/howto/selfcert.htm
This comment was minimized by the moderator on the site
This worked one time, after tha never worked again.
This comment was minimized by the moderator on the site
The reason it doesn't work when you restart Outlook is a secuirty one - the macro is not trusted by default, you have to self certify it. Follow the instructions on this site and it will all work fine after every restart... https://www.howto-outlook.com/howto/selfcert.htm
This comment was minimized by the moderator on the site
Hi There,

For some reason, mine, it works well only for one day. The codes don't seem to work anymore the next day, although those codes remained intact,

Anyone has such experience and know why?

Thanks.
This comment was minimized by the moderator on the site
The reason it doesn't work when you restart Outlook is a secuirty one - the macro is not trusted by default, you have to self certify it. Follow the instructions on this site and it will all work fine after every restart... https://www.howto-outlook.com/howto/selfcert.htm
This comment was minimized by the moderator on the site
Seeing same issue, any desired solution?
This comment was minimized by the moderator on the site
Same issue, it doesn't work for next day or after relaunching outlook, any solution?
This comment was minimized by the moderator on the site
Hi, i've got the same experience. Not sure yet how to solve this, i'm very new to VBA.
Would like to hear from you if you found a fix.
This comment was minimized by the moderator on the site
Hello! Very useful and it works perfectly.

Is it possible to adjust the code so that it only pops up when there is an attachment? Similarly, is it possible to adjust it so it prompts the pop-up only when the message is sent externally (not to people of the company)?
This comment was minimized by the moderator on the site
Hi There

Is it possible to get a message to come up only when an attachment is present, and only when sent externally?

Thank you very much!

Daniel
This comment was minimized by the moderator on the site
If you want the pop-up to only happen when you send to several emails, i.e. >10, how do you do that?

Oh and thanks, it works like a treat.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations