Note: The other languages of the website are Google-translated. Back to English
English English

Outlook: promemoria automatico quando si dimenticano gli allegati nei messaggi

Potresti avere mal di testa a dimenticare l'aggiunta di allegati, ma ricorda ai destinatari di controllare gli allegati nel corpo del messaggio di posta elettronica. Qui introdurremo due trucchi su come ricordare automaticamente a te stesso quando invii un messaggio di posta elettronica a cui potrebbero mancare allegati in Microsoft Outlook.

Promemoria automatico quando si dimenticano gli allegati in Outlook 2013/2016

Promemoria automatico quando si dimenticano gli allegati in Outlook 2007 e 2010

rimuovere tutti i contatti duplicati da una o più cartelle di contatti in Outlook

A volte, possiamo aggiungere ripetutamente gli stessi contatti, come possiamo rimuovere i contatti duplicati da una o più cartelle di contatti? Kutools per Outlook's Duplicate Contacts la funzione può rimuovere o unire rapidamente i contatti duplicati in base a e-mail, nome completo o altri criteri da una o più cartelle di contatti.    Fai clic per una prova gratuita di 45 giorni!
doc rimuovere i contatti duplicati 1
 
Kutools for Outlook: con dozzine di utili componenti aggiuntivi di Outlook, liberi di provare senza limitazioni in 45 giorni.
Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzioni avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 60 giorni.

freccia blu freccia destraPromemoria automatico quando si dimenticano gli allegati in Outlook 2013/2016

Microsoft Outlook 2013 supporta la funzionalità di avviso automatico quando si invia un messaggio di posta elettronica che potrebbe mancare di allegati.

Passaggio 1: fare clic su Compila il > Opzioni.

Passaggio 2: nella finestra di dialogo Opzioni di Outlook, fare clic su posta nella barra di sinistra.

Passo 3: Vai al Manda messaggi sezione e continua a controllare l'opzione di Avvisami quando invio un messaggio a cui potrebbe mancare un allegato.

Passaggio 4: fare clic su OK per uscire da questa finestra di dialogo.

Quindi Microsoft Outlook 2013 o 2016 ti avviserà automaticamente se potresti dimenticare gli allegati.

Ad esempio, inserisci il testo di "si prega di controllare gli allegati","visualizzare gli allegati", Ecc. Nel corpo del messaggio, ma non inserire allegati nel file Allegati campo. Quando si fa clic su Invia , verrà visualizzata una finestra di dialogo di avviso per dire che potresti aver dimenticato di allegare un file. Vedere la seguente schermata:


freccia blu freccia destraPromemoria automatico quando si dimenticano gli allegati in Outlook 2007 e 2010

Microsoft Outlook 2007 e 2010 non supportano l'avviso automatico in caso di dimenticanza degli allegati. Una macro VBA può aiutarti a realizzarlo.

Passo 1: premere il tasto altro + F11 tasti per aprire la finestra di Microsoft Visual for Applications.

Passaggio 2: spendi il progetto 1 nella barra di sinistra e fai doppio clic su Questa sessione di Outlook per aprirlo.

Passaggio 3: incolla il codice seguente nella finestra ThisOutlookSession.

VBA: avviso se non si inserisce l'allegato

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

Passaggio 4: fare clic su Risparmi pulsante sulla barra degli strumenti.

D'ora in poi, se aggiungi il testo di "attaccamento"Nel corpo del messaggio ma non allegare file, verrà visualizzato il promemoria di avviso per informarti che potresti aver dimenticato di allegare un file quando fai clic sul pulsante Invia pulsante. Vedi screenshot:


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (34)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
ciao, gr8 aiuto, grazie. ma c'è un problema quando la macro delle modifiche alla data non funziona, nessun aiuto per tutta la vita. ;-)
Questo commento è stato fatto dal moderatore sul sito
Davvero, sta funzionando. Grazie
Questo commento è stato fatto dal moderatore sul sito
Ho provato la macro e non succede niente - qualche idea perch?
Questo commento è stato fatto dal moderatore sul sito
Ho le macro abilitate in Outlook 2010, ma il codice non funziona. Tutti i file con allegato nel corpo vengono ancora inviati senza allegato.
Questo commento è stato fatto dal moderatore sul sito
Questa macro funziona per me, ma purtroppo la firma richiesta dall'azienda ha un avviso di riservatezza che contiene l'opera "allega" 3 volte! Quindi ricevo l'avviso pop-up con ogni e-mail che firmo. Come posso modificare la macro per avvisarci solo se la parola allegato è nell'e-mail 4 o più volte?
Questo commento è stato fatto dal moderatore sul sito
Nella riga che indica "If iIndex > 0 And Item.Attachments.count = 0 Then" cambia il primo 0 in un 3 in modo che si legge: "If iIndex > 3 And Item.Attachments.count = 0 Then" Quella riga sta verificando per quante volte hai pronunciato la parola specificata nella riga precedente, quindi penso che risolverà il tuo problema.
Questo commento è stato fatto dal moderatore sul sito
Per alcuni di voi notando che non è successo nulla... Non sono riuscito a farlo funzionare subito, ma quando ho avviato il mio computer il giorno successivo ha funzionato bene. Forse è necessario un riavvio?
Questo commento è stato fatto dal moderatore sul sito
È possibile cercare più di una parola? Fe controlla sia "allega" che "chiuso" Grazie
Questo commento è stato fatto dal moderatore sul sito
in questa sezione del codice... iIndex = InStr(Item.Body, "attach") puoi aggiungere più variabili o "stringhe". Es: iIndex = InStr(Item.Body, "attach", "attachment", "attaching") ... e così via. Assicurati di separarli ciascuno con una virgola
Questo commento è stato fatto dal moderatore sul sito
Grazie per lo strumento. Lo uso in Outlook 2019. Funziona. Dopo il nuovo inizio di Outlook non funziona più.
Voglio anche aggiungere più parole chiave e ho pensato di aggiungerle come hai fatto tu.
Ma purtroppo non funziona. Qualche ipotesi?
Questo commento è stato fatto dal moderatore sul sito
Ciao, devi copiare il codice vba ogni volta che avvii Outlook. Se vuoi vivere un'esperienza senza interruzioni, puoi utilizzare il Avviso e-mail caratteristica di Kutools per Outlook:
On Kutools scheda, fare clic sulla freccia a discesa accanto Avviso e-mail, Selezionare Ricordami quando invio un messaggio a cui mancano allegati. Quindi crea la tua regola (vedi screenshot sotto) e abilita la funzione.
https://www.extendoffice.com/images/stories/comments/ljy-picture/remind-before-sendinng.png

Amanda
Questo commento è stato fatto dal moderatore sul sito
Prima di tutto, grazie. L'ho incorporato nel nostro ufficio che funziona nel 2010. Tuttavia, abbiamo scoperto che se qualcuno avesse inviato un'e-mail inizialmente con la parola allegata e dopo più risposte, la macro avrebbe comunque conteggiato l'iniziale "allegato". Grosso problema con i lunghi convogli di posta elettronica, continueresti a essere richiesto di inserire un allegato a causa dell'e-mail originale. Pensieri?
Questo commento è stato fatto dal moderatore sul sito
[quote]Prima di tutto, grazie. L'ho incorporato nel nostro ufficio che funziona nel 2010. Tuttavia, abbiamo scoperto che se qualcuno avesse inviato un'e-mail inizialmente con la parola allegata e dopo più risposte, la macro avrebbe comunque conteggiato l'iniziale "allegato". Grosso problema con i lunghi convogli di posta elettronica, continueresti a essere richiesto di inserire un allegato a causa dell'e-mail originale. Pensieri?A cura di DAN[/quote] Ho pensato di condividere una soluzione che abbiamo trovato nel mio ufficio su questo. Ciò farà in modo che le immagini aggiunte all'e-mail o che potrebbero essere trovate nella firma di qualcuno non verranno conteggiate come allegati. E conta solo la tua e-mail più recente, non l'intero corpo. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr( Item.Body, "Da:") Se strEnd 0 Allora strTrunc = Left(Item.Body, strEnd) Altrimenti: strTrunc = Item.Body End If 'Debug.Print strTrunc Se Item.Attachments.Count 0 Then iIndex = Item.Attachments .Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
Questo commento è stato fatto dal moderatore sul sito
So che questo thread ha un paio di mesi, quindi spero che tu stia ancora seguendo. Per qualche ragione, non riesco a vedere il tuo commento nella sua interezza. Viene interrotto in "Do While i". C'è un modo per ripubblicare o inviare via e-mail? Grazie in anticipo!
Questo commento è stato fatto dal moderatore sul sito
Grande aiuto! :lol: aiuta molto! grazie molto!
Questo commento è stato fatto dal moderatore sul sito
Ecco tutto, scusa sembra che parte di esso sia stato interrotto nel messaggio precedente... Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr(Item.Body, "From:") If strEnd 0 Then strTrunc = Left(Item.Body, strEnd) Else: strTrunc = Item.Body End If 'Debug.Print strTrunc If Item.Attachments.Count 0 Then iIndex = Item.Attachments.Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
Questo commento è stato fatto dal moderatore sul sito
Ciao Dan! Sembra che il tuo secondo post sia stato interrotto nello stesso punto. Non sono sicuro che ci sia un limite di caratteri nel forum... forse provare a dividere il codice tra i post?
Questo commento è stato fatto dal moderatore sul sito
Ciao, l'ho usato e funziona benissimo, ma ho notato che se qualcuno mi risponde e poi rispondo, cerca l'intero percorso di e-mail anziché solo quello inviato. C'è un modo per cambiare questo? Grazie
Questo commento è stato fatto dal moderatore sul sito
Qualcuno ha questo per funzionare? Ho aggiunto questo codice secondo le istruzioni sopra, macro abilitate, ma niente. Il codice non fa nulla.
Questo commento è stato fatto dal moderatore sul sito
Qualcuno ha questo per funzionare in Outlook 2010? Ho seguito le istruzioni di cui sopra e non fa nulla
Questo commento è stato fatto dal moderatore sul sito
Come impostare Avviso quando un messaggio viene inviato senza allegato in Lotus Notes 8.5.3?
Questo commento è stato fatto dal moderatore sul sito
Ho usato questo codice e quando lo provo con il mio indirizzo e-mail nella riga to ottengo il messaggio di errore, ma se inserisco qualcun altro, va tutto bene. Qualche idea su cosa potrebbe succedere?
Questo commento è stato fatto dal moderatore sul sito
La funzione Allegati automatici è progettata per funzionare quando invii e-mail utilizzando i tasti Ctrl+Invio?
Questo commento è stato fatto dal moderatore sul sito
La funzione di allegato automatico è progettata per funzionare quando l'e-mail viene inviata utilizzando i tasti Ctrl+Invio?
Questo commento è stato fatto dal moderatore sul sito
Questo codice non funzionerebbe per me. Ho dovuto usare questo:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Se InStr(1, Item.Body, "attach", vbTextCompare) > 0 Allora

Se Item.Attachments.Count = 0 Allora

answer = MsgBox("Non c'è nessun allegato, inviare comunque?", vbYesNo)

Se risposta = vbNo, allora Annulla = Vero

End If

End If

End Sub
Questo commento è stato fatto dal moderatore sul sito
Se qualcuno ha problemi con questo codice, le immagini nella tua firma contano come allegati.


Ho un'immagine nella mia firma, quindi cambiando la riga:

Se iIndex > 0 e Item.Attachments.Count = 0 Allora

di:

Se iIndex > 0 e Item.Attachments.Count = 0 o Item.Attachments.Count = 1 allora

Ha funzionato per me.
Questo commento è stato fatto dal moderatore sul sito
Grazie per averlo fatto notare che anche questo era un problema che stavo riscontrando. Ho scoperto che la tua correzione ha richiesto l'avviso indipendentemente dal fatto che fosse stata utilizzata la parola "allega". Invece ho usato:

Se iIndex > 0 e Item.Attachments.Count = 1 Allora

Ciò ha richiesto l'avviso solo quando previsto, non ogni volta che è stata inviata un'e-mail.
Questo commento è stato fatto dal moderatore sul sito
Grazie Antonio, ha funzionato.
Questo commento è stato fatto dal moderatore sul sito
GRAZIE!
Funziona perfettamente per me con "If iIndex > 0 And Item.Attachments.Count = 0" nonostante abbia un'immagine nella mia firma. Sto usando Microsoft Office Professional Plus 2010
Questo commento è stato fatto dal moderatore sul sito
Non funzionerà per me indipendentemente dal valore del conteggio. Ho provato di tutto qui e per qualche motivo non riesco mai a visualizzare il popup.
Non ci sono ancora commenti pubblicati qui
Carica Altre
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite