Outlook: come inviare nuovamente l'e-mail in caso di mancata risposta

Quando invii un'e-mail al tuo collega, partner di cooperazione o qualcuno e hai bisogno urgente di una risposta, puoi impostare un'impostazione di invio automatico dell'e-mail se la risposta non è arrivata prima di un tempo specificato.

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: imposta un promemoria da ricordare in un tempo specificato

1. Fare clic con il pulsante destro del mouse su un'e-mail (dalla cartella Posta inviata) che si desidera inviare nuovamente in caso di mancata risposta, nel menu contestuale a comparsa, fare clic su Seguito > Aggiungi promemoria.

2. Nel popping Custom dialogo, mantieni il file Promemoria casella di controllo spuntata, quindi nelle caselle a discesa sottostanti, scegli una data e un'ora in cui desideri che la risposta arrivi prima, inoltre puoi digitare direttamente la data e l'ora nelle caselle. Clic OK.

Parte 2: inserisci un VBA per inviare nuovamente le e-mail in caso di mancata risposta nel tempo specificato

3. Stampa altro + F11 tasti per abilitare il Microsoft Visual Basic, Applications Edition finestra.

4. Doppio click Questa sessione di Outlook nel Progetto – Progetto1 riquadro per creare uno script vuoto e copiare e incollare il codice VBA sottostante nello script vuoto.

VBA: invia nuovamente l'e-mail in caso di mancata 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 recieved 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 Compila il > Opzioni e nel the Opzioni di Outlook finestra, fare clic Centro protezione nel riquadro di sinistra e fare clic su Impostazioni del centro di fiducia per abilitare il Centro protezione finestra. Clic Impostazioni macro e assicurati che il file Abilita tutte le macro (non consigliato, può essere eseguito codice potenzialmente pericoloso) l'opzione è selezionata nella sezione a destra. Clic OK > OK.

6. Ora, se l'e-mail inviata che è stata impostata con un promemoria non riceve risposta quando arriva l'ora specificata, viene visualizzata una finestra di dialogo per ricordarti se inviare nuovamente un'e-mail per effettuare una notifica.

7. Clic Sì, viene visualizzata una finestra di messaggio che allega l'e-mail precedente e puoi modificare nuovamente il corpo e fare clic Invia per inviare nuovamente l'e-mail..

8. Clic Non, il promemoria verrà eliminato.

Note:： Se l'e-mail ha ricevuto risposta prima del tempo specificato, il promemoria verrà rimosso da VBA.

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.

Leggi di più... Scarica ora...