Перейти к основному содержанию

Outlook: автоматическое напоминание при забывании вложений в сообщениях

У вас может возникнуть головная боль, если вы забудете добавить вложения, но напомните получателям проверить вложения в теле сообщения электронной почты. Здесь мы познакомим вас с двумя приемами, как автоматически напоминать себе, когда вы отправляете сообщение электронной почты, в котором могут отсутствовать вложения в Microsoft Outlook.

Автоматическое напоминание при забывании вложений в Outlook 2013/2016

Автоматическое напоминание при забывании вложений в Outlook 2007 и 2010

удалить все повторяющиеся контакты из одной или нескольких папок контактов в Outlook

Иногда мы можем повторно добавлять одни и те же контакты, как удалить повторяющиеся контакты из одной или нескольких папок контактов? Kutools for Outlook's Duplicate Contacts функция может быстро удалить или объединить повторяющиеся контакты на основе электронной почты, полного имени или других критериев из одной или нескольких папок контактов.    Нажмите, чтобы получить 45-дневную бесплатную пробную версию!
документ удалить повторяющиеся контакты 1
 
Kutools for Outlook: с десятками удобных надстроек Outlook, попробуйте бесплатно без ограничений в течение 45 дней.
Вкладка «Office»: включите редактирование и просмотр с вкладками в Microsoft Office, упрощая работу
Kutools for Outlook - улучшите Outlook с помощью более 100 расширенных функций для повышения эффективности
Улучшите свой Outlook 2021–2010 или Outlook 365 с помощью этих расширенных функций. Наслаждайтесь полной 60-дневной бесплатной пробной версией и улучшите качество своей электронной почты!

стрелка синий правый пузырьАвтоматическое напоминание при забывании вложений в Outlook 2013/2016

Microsoft Outlook 2013 поддерживает функцию автоматического предупреждения при отправке сообщения электронной почты, в котором могут отсутствовать вложения.

Шаг 1: нажмите Файл > Опции.

Шаг 2. В диалоговом окне «Параметры Outlook» щелкните значок Почта в левой панели.

Шаг 3: перейдите к Отправка сообщений раздел, и продолжайте проверять вариант Предупреждать меня, когда я отправляю сообщение, в котором может отсутствовать вложение.

Шаг 4: нажмите OK кнопку, чтобы выйти из этого диалогового окна.

Затем Microsoft Outlook 2013 или 2016 автоматически предупредит вас, если вы забудете вложения.

Например, вы вводите текст «пожалуйста, проверьте вложения","просмотреть вложения”И т. Д. В теле сообщения, но не вставляйте вложения в прикрепление поле. При нажатии на Отправить Кнопка, появится диалоговое окно с предупреждением о том, что вы, возможно, забыли прикрепить файл. См. Следующий снимок экрана:


стрелка синий правый пузырьАвтоматическое напоминание при забывании вложений в Outlook 2007 и 2010

Microsoft Outlook 2007 и 2010 не поддерживают автоматическое предупреждение, если вы можете забыть вложения. Макрос VBA может помочь вам в этом.

Шаг 1: нажмите другой + F11 клавиши, чтобы открыть окно Microsoft Visual для приложений.

Шаг 2: Расширьте проект 1 на левой панели и дважды щелкните значок Эта сессия Outlook чтобы открыть ее.

Шаг 3. Вставьте следующий код в окно ThisOutlookSession.

VBA: предупреждение, если не вставить вложение

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long

On Error GoTo handleError

iIndex = InStr(Item.Body, "attach")

If iIndex > 0 And Item.Attachments.Count = 0 Then

retMB = MsgBox("You may have forgotten to attach a file." & vbCrLf & vbCrLf & "Do you still want to continue?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If retMB = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
End If

End Sub

Шаг 4: нажмите Сохранить на панели инструментов.

С этого момента, если вы добавите текст «привязанность»В теле сообщения, но не прикрепляйте файлы, появится предупреждающее напоминание о том, что вы, возможно, забыли прикрепить файл, когда нажмете кнопку Отправить кнопка. См. Снимок экрана:


Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения ProПакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

 

 

Comments (34)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The built in functionality is not as good as the VBA code !!! Test it for yourself, for example, if you copy/paste the "please check attachments" text, it won't trigger... you need to write it in the body. I prefer the VBA code version, and moreover you can customize it (language and check for other words).
This comment was minimized by the moderator on the site
Will this vba code work with signatures?
This comment was minimized by the moderator on the site
I had the same issue, you have to change the code "If iIndex > 0 And Item.Attachments.Count = 0" to "If iIndex > 0 And Item.Attachments.Count > 1 "This only works when you have 1 picture in you signiture and not emailing in a string with a lot of signitures, but at least it helps for single emails.
This comment was minimized by the moderator on the site
works well- easy to set up-thanks
This comment was minimized by the moderator on the site
Will not work for me regardless of count value. I've tried everything here and for some reason can never get the popup.
This comment was minimized by the moderator on the site
THANK YOU!
This works perfectly for me with "If iIndex > 0 And Item.Attachments.Count = 0" despite the fact that I have an image in my signature. I'm using Microsoft Office Professional Plus 2010
This comment was minimized by the moderator on the site
If anyone is having trouble using this code, images in your signature count as attachments.


I have one image in my signature, so changing the line:

If iIndex > 0 And Item.Attachments.Count = 0 Then

to:

If iIndex > 0 And Item.Attachments.Count = 0 Or Item.Attachments.Count = 1 Then

Made it work for me.
This comment was minimized by the moderator on the site
Thanks for pointing this out this was also a problem I was having. I found that your fix prompted the warning regardless of whether the word 'attach' had been used. Instead I used:

If iIndex > 0 And Item.Attachments.Count = 1 Then

This prompted the warning only when intended not whenever any email was sent.
This comment was minimized by the moderator on the site
Thanks Anthony, it worked.
This comment was minimized by the moderator on the site
This Code would not work for me. I had to use this one:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then

If Item.Attachments.Count = 0 Then

answer = MsgBox("There's no attachment, send anyway?", vbYesNo)

If answer = vbNo Then Cancel = True

End If

End If

End Sub
This comment was minimized by the moderator on the site
Is the Auto-Attachment feature designed to work when email is sent using the Ctrl+Enter keys?
This comment was minimized by the moderator on the site
Is the Auto Attachment feature designed to work when you send email using the Ctrl+Enter keys?
This comment was minimized by the moderator on the site
I've used this code and when I test it with my email address in the to line I get the error message, but if I put anyone else in there it goes through just fine. Any ideas about what could be happening?
This comment was minimized by the moderator on the site
How to set Warning when a message is sent without attachment in lotus notes 8.5.3 ?
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