Salt la conținutul principal

Outlook: memento automat la uitarea atașamentelor din mesaje

Este posibil să aveți dureri de cap să uitați adăugarea de atașamente, dar reamintiți destinatarilor să verifice atașamentele în corpul mesajului de e-mail. Aici vom introduce două trucuri despre cum să vă reamintiți automat când trimiteți un mesaj de e-mail care poate lipsi atașamente în Microsoft Outlook.

Memento automat când uitați atașamente în Outlook 2013/2016

Memento automat când uitați atașamente în Outlook 2007 și 2010

eliminați toate contactele duplicate dintr-unul sau mai multe foldere de contacte din Outlook

Uneori, putem adăuga în mod repetat aceleași contacte, cum putem elimina contactele duplicate dintr-unul sau mai multe foldere de contacte? Kutools pentru Outlook's Duplicate Contacts funcția poate elimina sau combina rapid contacte duplicate pe baza e-mailurilor, a numelui complet sau a altor criterii dintr-unul sau mai multe foldere de contacte.    Faceți clic pentru o perioadă de încercare gratuită de 45 de zile!
doc eliminați contactele duplicat 1
 
Kutools pentru Outlook: cu zeci de programe de completare Outlook la îndemână, gratuit pentru a încerca fără limitări în 45 de zile.
Office Tab - Activați editarea cu file și navigarea în Microsoft Office, făcând munca o briză
Kutools pentru Outlook - Îmbunătățiți Outlook cu peste 100 de caracteristici avansate pentru o eficiență superioară
Îmbunătățiți-vă Outlook 2021 - 2010 sau Outlook 365 cu aceste funcții avansate. Bucurați-vă de o perioadă de încercare gratuită cuprinzătoare de 60 de zile și îmbunătățiți-vă experiența prin e-mail!

săgeată albastru dreapta balonMemento automat la uitarea atașamentelor în Outlook 2013/2016

Microsoft Outlook 2013 acceptă funcția de avertizare automată atunci când trimiteți un mesaj de e-mail care poate lipsi atașamente.

Pasul 1: Faceți clic pe Fișier > Opţiuni.

Pasul 2: În caseta de dialog Opțiuni Outlook, faceți clic pe Mail în bara din stânga.

Pasul 3: Mergeți la trimiteţi mesaje de și continuați să verificați opțiunea Avertizați-mă când trimit un mesaj căruia îi lipsește un atașament.

Pasul 4: Faceți clic pe OK pentru a ieși din această casetă de dialog.

Apoi, Microsoft Outlook 2013 sau 2016 vă va avertiza automat dacă puteți uita atașamentele.

De exemplu, introduceți textul „vă rugăm să verificați atașamentele","vizualizați atașamentele”, Etc. în corpul mesajului, dar nu introduceți atașamente în Ataşament camp. Când faceți clic pe Trimiteți , va apărea o casetă de dialog de avertizare pentru a spune că este posibil să fi uitat să atașați un fișier. Vedeți următoarea captură de ecran:


săgeată albastru dreapta balonMemento automat la uitarea atașamentelor în Outlook 2007 și 2010

Microsoft Outlook 2007 și 2010 nu acceptă avertismentul automat dacă este posibil să uitați atașamentele. O macrocomandă VBA vă poate ajuta să vă dați seama.

Pasul 1: Apăsați tasta Alt + F11 tastele pentru a deschide fereastra Microsoft Visual for Applications.

Pasul 2: Extindeți Proiectul 1 în bara din stânga și faceți dublu clic pe Această sesiune Outlook să o deschidă.

Pasul 3: lipiți următorul cod în fereastra ThisOutlookSession.

VBA: Avertisment dacă nu introduceți atașamentul

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

Pasul 4: Faceți clic pe Economisiți pe bara de instrumente.

De acum înainte, dacă adăugați textul „ataşament”În corpul mesajului, dar nu atașați fișiere, memento-ul de avertizare va apărea pentru a vă spune că este posibil să fi uitat să atașați un fișier când faceți clic pe Trimiteți buton. Vedeți captura de ecran:


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

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