Outlook: Come inviare automaticamente un'email se non si riceve risposta

Author Sun Last modified 2025-08-26

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

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 notizie: Kutools per Outlook lancia la versione gratuita!

Scopri il nuovissimo Kutools per Outlook con oltre100 funzionalità straordinarie! Clicca per scaricare ora!

🤖 Kutools AI : Utilizza una tecnologia AI avanzata per gestire le email senza sforzo, inclusa la risposta, la sintesi, l’ottimizzazione, l’estensione, la traduzione e la composizione dei messaggi.

📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio Email / CC/BCC automatico tramite Regola durante l’invio delle Email / Inoltro automatico (Regola avanzata) / Aggiungi Saluto automaticamente / Dividi automaticamente Email multi-destinatario in messaggi singoli ...

📨 Gestione Email: Richiama Email / Blocca Email fraudulent (tramite Oggetto e altri parametri) / Elimina Email Duplicato / Ricerca Avanzata / Organizza cartelle ...

📁 Allegati Pro: Salva in Batch / Distacca in Batch / Comprimi in Batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...

🌟 Magia Interfaccia: 😊Più emoji belle e divertenti / Notifiche per le email importanti in arrivo / Riduci Outlook al posto di chiuderlo ...

👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email Anti-Phishing / 🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti & Calendario: Aggiungi in Batch contatti dalle Email selezionate / Dividi un Gruppo di Contatti in Gruppi singoli / Rimuovi promemoria di compleanno ...

Utilizza Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Sblocca Kutools per Outlook istantaneamente con un solo clic. Non aspettare, scarica ora e aumenta la tua efficienza!

Tabella Unidimensionale di Kutools per Outlook Scarica ora Vai a Acquista

🚀 Download con un solo clic — Ottieni tutti gli Add-in per Office

Consigliato: Kutools per Office (5-in-1)

Un solo clic per scaricare cinque installatori contemporaneamente — Kutools per Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clicca per scaricare ora!

✅ Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in una sola azione.
🚀 Pronto per qualsiasi attività Office: installa i componenti aggiuntivi necessari, quando ti servono.
🧰 Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools per PowerPoint

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite