Cum să creați automat numele unui expeditor drag atunci când răspundeți la mesaj în Outlook?
Când răspundeți la un mesaj de e-mail, trebuie să tastați manual numele expeditorului și salutările. Pentru a economisi timp și pentru a îmbunătăți eficiența muncii, vă recomandăm să creați automat un nume de expeditor drag și felicitări în Outlook. În acest articol, voi vorbi despre câteva metode utile pentru rezolvarea acestei sarcini în Outlook.
Creați automat un nume de expeditor drag și felicitări automat atunci când răspundeți la mesaj cu cod VBA
Următorul cod VBA vă poate ajuta să introduceți automat numele și salutările unui expeditor drag atunci când răspundeți la un mesaj de e-mail, vă rugăm să procedați astfel:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți următorul cod în modulul gol.
Cod VBA: introduceți automat numele și salutările unui expeditor drag atunci când răspundeți:
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. Apoi închideți Outlook și reporniți-l pentru a obține efectul de cod și acum, când răspundeți la un mesaj de e-mail, numele unui expeditor drag și mesajele de salut sunt introduse automat în corp, vedeți captura de ecran:
Creați automat un nume de expeditor drag și felicitări automat atunci când răspundeți la mesaj cu Kutools pentru Outlook
Dacă aveţi Kutools pentru Outlook, Cu său Adăugați mesaj de întâmpinare când răspundeți caracteristică, Outlook va introduce automat numele expeditorului atunci când răspunde.
Kutools pentru Outlook : cu mai mult de 100 de programe de completare Outlook la îndemână, încercați fără limitări în 60 de zile. |
După instalare Kutools pentru Outlook, vă rugăm să faceți acest lucru :
1. Clic Kutools > Opţiuni, vezi captura de ecran:
2. În Opţiuni caseta de dialog, sub răspuns fila, verificați Adăugați mesaj de întâmpinare când răspundeți , apoi introduceți felicitările după cum aveți nevoie, vedeți captura de ecran:
3. Apoi apasa OK pentru a finaliza această setare, de acum înainte, atunci când răspundeți la un mesaj, mesajele de salut vor fi create automat în fața corpului mesajului, a se vedea captura de ecran:
Faceți clic pentru a descărca Kutools pentru Outlook și proba gratuită acum!
Cele mai bune instrumente de productivitate de birou
Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.