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 il nuovo Kutools per Outlook con oltre100 funzionalità incredibili! Clicca per scaricare ora!
📧 Automazione email: Risposta automatica (disponibile per POP e IMAP) / Programmazione invio email / CC/BCC automatico tramite regola durante l’invio dell’email / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddivisione automatica delle email con più destinatari in email individuali ...
📨 Gestione email: Richiama Email / Blocca email di truffa tramite Oggetto e altro / Elimina Email duplicate / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salvataggio in batch / Distacco in batch / Compressione in batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia dell’interfaccia: 😊Più emoji belle e simpatiche / Ti avvisa quando arrivano email importanti / Minimizza Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a Tutti con Allegati / Email Anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e Calendario: Aggiunta massiva dei contatti dalle email selezionate / Dividi un Gruppo di Contatti in gruppi individuali / Rimuovi promemoria di compleanno ...
Usa Kutools nella lingua che preferisci: supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!

