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
- Automatizza l'invio di e-mail con Auto CC / BCC, Avanzamento automatico secondo le regole; Inviare Risposta automatica (Fuori sede) senza richiedere un server Exchange...
- Ricevi promemoria come Avviso BCC quando rispondi a tutti mentre sei nell'elenco CCN e Ricorda quando mancano allegati per gli allegati dimenticati...
- Migliora l'efficienza della posta elettronica con Rispondi (a tutti) con gli allegati, Aggiungi automaticamente il saluto o la data e l'ora nella firma o nell'oggetto, Rispondi a più email...
- Semplifica l'invio di e-mail con Richiamare le e-mail, Strumenti per gli allegati (Comprimi tutto, Salva tutto automaticamente...), Rimuovi duplicatie Rapporto rapido...
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 Segui il tuo team > 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.
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.