跳到主要內容

Outlook:忘記郵件中的附件時自動提醒

您可能會頭疼,忘記添加附件,但提醒收件人檢查電子郵件正文中的附件。 在這裡,我們將介紹兩個技巧,以幫助您在發送可能缺少Microsoft Outlook附件的電子郵件時自動提醒自己。

忘記Outlook 2013/2016中的附件時自動提醒

忘記Outlook 2007和2010中的附件時自動提醒

從Outlook中的一個或多個聯繫人文件夾中刪除所有重複的聯繫人

有時,我們可能會重複添加相同的聯繫人,如何從一個或多個聯繫人文件夾中刪除重複的聯繫人? Kutools for Outlook's Duplicate Contacts 功能可以根據電子郵件,全名或其他條件從一個或多個聯繫人文件夾中快速刪除或合併重複的聯繫人。    點擊免費試用45天!
doc刪除重複的聯繫人1
 
Kutools for Outlook:帶有數十個方便的Outlook加載項,可以在45天內免費試用。
Office 標籤 - 在 Microsoft Office 中啟用選項卡式編輯和瀏覽,讓工作變得輕而易舉
Kutools for Outlook - 透過 100 多個進階功能增強 Outlook,實現卓越效率
使用這些進階功能增強您的 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 for Applications”窗口。

步驟2:在左側欄中擴展項目1,然後雙擊 本次展望會議 打開它。

步驟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)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 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