Come creare automaticamente il nome di un caro mittente quando si risponde a un messaggio in Outlook?
Quando si risponde a un messaggio di posta elettronica, è necessario digitare manualmente il nome e i saluti del mittente. Per risparmiare tempo e migliorare l'efficienza del lavoro, potresti prendere in considerazione la creazione automatica del nome e dei saluti di un caro mittente in Outlook. In questo articolo, parlerò di alcuni metodi utili per risolvere questa attività in Outlook.
Crea automaticamente il nome e i saluti di un caro mittente quando rispondi al messaggio con il codice VBA
Il seguente codice VBA può aiutarti a inserire automaticamente il nome e i saluti di un caro mittente quando rispondi a un messaggio di posta elettronica, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.
Codice VBA: inserisci automaticamente il nome e i saluti di un caro mittente quando rispondi:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
Dim xGreetStr As String
Dim xReplyMail As MailItem
Dim xSenderName As String
Dim xRecipient As Recipient
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xReplyMail = Item
For Each xRecipient In xReplyMail.Recipients
If xSenderName = "" Then
xSenderName = xRecipient.Name
Else
xSenderName = xSenderName & "," & xRecipient.Name
End If
Next xRecipient
Select Case Time
Case 0.3 To 0.5
xGreetStr = " Good morning!"
Case 0.5 To 0.75
xGreetStr = " Good afternoon!"
Case Else
xGreetStr = " Good evening!"
End Select
With xReplyMail
.Display
.HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
End With
End Sub
3. Quindi chiudi Outlook e riavvialo per ottenere l'effetto codice, e ora, quando rispondi a un messaggio di posta elettronica, il nome e i saluti di un caro mittente vengono inseriti automaticamente nel corpo, vedi screenshot:
Crea automaticamente il nome e i saluti di un caro mittente quando rispondi al messaggio con Kutools per Outlook
Se si dispone di Kutools for Outlook, Con la sua Aggiungi un saluto alla risposta caratteristica, Outlook inserirà automaticamente il nome del mittente quando risponde.
| Kutools for Outlook : con più di 100 utili componenti aggiuntivi di Outlook, liberi di provare senza limitazioni in 60 giorni. |
Dopo l'installazione Kutools for Outlook, per favore fai come questo ：
1. Clic Kutools > Opzioni, vedi screenshot:
2. Nel Opzioni finestra di dialogo, sotto il file Rispondi scheda, controllare Aggiungi un saluto alla risposta opzione, quindi inserisci i saluti di cui hai bisogno, vedi screenshot:
3. Quindi fare clic OK per terminare questa impostazione, d'ora in poi, quando si risponde a un messaggio, i saluti verranno creati automaticamente davanti al corpo del messaggio, vedi screenshot:
Fai clic per scaricare Kutools per Outlook e la prova gratuita ora!
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ù.
