Molti utenti chiedono una soluzione che consenta loro di rispondere in batch a più e-mail selezionate con lo stesso contenuto in Outlook. Sebbene Outlook non fornisca tale funzionalità, puoi comunque ottenerla tramite un pezzo di codice VBA.
Ho sentito un gran numero di utenti lamentarsi del fatto che Outlook non ha una funzione che li supporti per inviare la stessa risposta a più e-mail in una volta sola. Quando selezionano più e-mail, entrambe le azioni "Rispondi" e "Rispondi a tutti" diventeranno disattivate e verranno disabilitate. Esaminando questo problema, in seguito, condivideremo un metodo per realizzare questa funzione.
Rispondi in batch a più e-mail con lo stesso contenuto
- Innanzitutto, avvia il programma Outlook.
- Quindi, devi creare un modello di risposta che desideri utilizzare per rispondere a più e-mail.
- Prima di tutto, crea una nuova email.
- Quindi, componi questa email in base a ciò a cui vuoi rispondere.
- Successivamente, fai clic su "File" e scegli l'opzione "Salva con nome".
- Successivamente, nella nuova finestra di dialogo "Salva con nome", inserisci un nome e seleziona "Modello di Outlook" nella casella "Salva come".
- Infine, premi il pulsante "OK".
- Successivamente, puoi chiudere l'e-mail senza salvare le modifiche.
- Successivamente, dovresti premere i pulsanti "Alt + F11".
- Successivamente, verrà visualizzata la finestra dell'editor VBA di Outlook.
- Ora, dovresti individuare e aprire il progetto "ThisOutlookSession" e copiarvi il seguente codice VBA.
Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
Dim objCommandBarButton As Office.CommandBarButton
If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
'Add a "Same Reply" option to the context menu
With objCommandBarButton
.Style = msoButtonIconAndCaption
.Caption = "Same Reply"
.FaceId = 355
.OnAction = "Project1.ThisOutlookSession.SendSameReply"
End With
End If
End Sub
Sub SendSameReply()
Dim strTemplate As String
Dim objTemplateReply As Outlook.MailItem
Dim strHTMLBody As String
Dim objSelection As Outlook.Selection
Dim i As Long
Dim objReply As Outlook.MailItem
'Input the name of the previously saved template
strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
strHTMLBody = objTemplateReply.HTMLBody
Set objSelection = Application.ActiveExplorer.Selection
For i = objSelection.count To 1 Step -1
Set objReply = objSelection(i).Reply
With objReply
.HTMLBody = strHTMLBody & objReply.HTMLBody
.Send
End With
Next
End Sub
- Infine, puoi chiudere la finestra corrente e provare questa macro.
- Innanzitutto, seleziona più e-mail nell'elenco di posta.
- Quindi, fai clic destro su di essi.
- Successivamente, scegli e premi l'opzione "Same Reply" nel menu contestuale.
- Quindi, ti verrà richiesto di specificare il modello utilizzato per la risposta.
- Dopo aver inserito il nome e premuto "OK", la stessa risposta verrà inviata a queste e-mail selezionate.
Outlook è soggetto a corruzione
Come utente abituale di Outlook, sono stato soggetto a una serie di errori. Pertanto, ho adottato varie misure per salvaguardare i miei dati di Outlook. Tuttavia, a causa del fatto che Outlook è suscettibile di danni e l'arresto anomalo è difficile da prevedere, devo tenermi sempre preparato. Ad esempio, per salvare i miei dati il prima possibile, ho tenuto a portata di mano uno straordinario strumento di recupero: DataNumen Outlook Repair. È in grado di riparare Outlook file senza problemi.
Introduzione dell'autore:
Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui corruzione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com