Outlook: Come inviare automaticamente un'email se non si riceve risposta
Quando invii un'email a un collega, a un partner di collaborazione o a qualcun altro e hai bisogno di una risposta urgente, puoi impostare un sistema di invio automatico dell'email se la risposta non arriva entro un determinato orario.
Utilizzo di Promemoria e VBA per impostare l'invio automatico in caso di mancata risposta
Utilizzo di Promemoria e VBA per impostare l'invio automatico in caso di mancata risposta
Parte 1: Impostare un promemoria per essere avvisati dopo un certo periodo di tempo
1. Fai clic con il tasto destro su un'email (dalla cartella Elementi inviati) che desideri reinviare in caso di mancata risposta; nel menu contestuale che appare, fai clic su "Necessita di follow-up" > "Aggiungi promemoria".

2. Nella finestra di dialogo "Personalizzato" che appare, assicurati che la casella di controllo "Promemoria" sia selezionata, quindi scegli una data e un'ora nei menu a discesa sottostanti, indicando quando desideri che la risposta arrivi. Puoi anche digitare direttamente la data e l'ora nelle caselle. Clicca su "OK".


Parte 2: Inserire un codice VBA per reinviare le email se non si riceve risposta entro il tempo specificato
3. Premi i tasti "Alt" + "F11" per abilitare la finestra "Microsoft Visual Basic for Applications".
4. Fai doppio clic su "ThisOutlookSession" nel riquadro "Progetto – Project1" per creare uno script vuoto, quindi copia e incolla il seguente codice VBA nello script vuoto.
VBA: Reinvia email se non c'è risposta
Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
Dim xInboxFld As Folder
Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
Set GInboxItems = xInboxFld.Items
End Sub
'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
Dim xSentItems As Outlook.Items
Dim xMail As MailItem
Dim i As Long
Dim xSubject As String
Dim xItemSubject As String
Dim xSendTime As String
On Error Resume Next
Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
If Item.Class <> olMail Then Exit Sub
For i = xSentItems.Count To 1 Step -1
If xSentItems.Item(i).Class = olMail Then
Set xMail = xSentItems.Item(i)
xSubject = LCase(xMail.Subject)
xSendTime = xMail.SentOn
xItemSubject = LCase(Item.Subject)
If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
If Item.SentOn > xSendTime Then
With xMail
.ClearTaskFlag
.ReminderSet = False
.Save
End With
End If
End If
End If
Next i
End Sub
'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
Dim xPrompt As String
Dim xResponse As Integer
Dim xFollowUpMail As Outlook.MailItem
Dim xRcp As Recipient
On Error Resume Next
'Resend
If (Item.Class <> olMail) Then Exit Sub
xPrompt = "You haven't yet received the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xResponse = vbNo Then Exit Sub
Set xFollowUpMail = Application.CreateItem(olMailItem)
With xFollowUpMail
For Each xRcp In Item.Recipients
.Recipients.Add (xRcp.Address)
Next
.Recipients.ResolveAll
.Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
.Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & " as soon as possible"
.Attachments.Add Item
.Display
End With
End Sub
5. Salva il codice, quindi torna all'interfaccia principale, fai clic su "File" > "Imposta" e nella finestra "Opzioni di Outlook", fai clic su "Centro protezione" nel riquadro a sinistra, poi su "Impostazioni centro protezione" per abilitare la finestra "Centro protezione". Clicca su "Impostazioni macro" e assicurati che l'opzione "Abilita tutte le macro (non raccomandato; codice potenzialmente pericoloso può essere eseguito)" sia selezionata nella sezione destra. Clicca su "OK" > "OK".


6. Ora, se l'email inviata, per la quale è stato impostato un promemoria, non riceve alcuna risposta quando arriva l'orario specificato, apparirà una finestra pop-up per ricordarti se desideri reinviare un'email per fare una notifica.

7. Clicca su "Sì", si aprirà una finestra del messaggio con l'email precedente allegata, potrai modificare nuovamente il corpo del messaggio e cliccare su "Invia" per reinviare l'email.

8. Clicca su "No", il promemoria verrà eliminato.

Nota: Se l'email è stata risposta prima dell'orario specificato, il promemoria verrà rimosso dal VBA.
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...

