Hogyan hozzuk létre automatikusan a kedves küldő nevét, amikor az Outlookra válaszolunk?
E-mail válaszakor kézzel kell beírnia a feladó nevét és üdvözletét. Időmegtakarítás és a munka hatékonyságának növelése érdekében érdemes megfontolnia egy kedves küldő nevének és üdvözletének automatikus létrehozását az Outlook programban. Ebben a cikkben néhány hasznos módszerről fogok beszélni a feladat megoldására az Outlook programban.
Hozzon létre egy kedves feladó nevét és üdvözletét automatikusan, amikor VBA kóddal válaszol az üzenetre
A következő VBA-kód segíthet egy kedves küldő nevének és üdvözletének automatikus beillesztésében, amikor válaszol egy e-mailre, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession tól Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.
VBA kód: Válaszkor automatikusan illessze be a kedves küldő nevét és üdvözletét:
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. Ezután zárja be az Outlook programot, és indítsa újra a kódhatás eléréséhez, és most, amikor válaszol egy e-mailre, egy kedves küldő neve és üdvözlete automatikusan beillesztésre kerül a törzsbe, lásd a képernyőképet:
Hozzon létre egy kedves feladó nevét és üdvözli automatikusan, amikor a Kutools for Outlook alkalmazással válaszol üzenetre
Ha van Kutools az Outlook számára, Annak Üdvözlet hozzáadása válaszkor funkció, az Outlook válaszadáskor automatikusan beszúrja a feladó nevét.
| Kutools az Outlook számára : több mint 100 praktikus Outlook-bővítménnyel, 60 nap alatt szabadon kipróbálható korlátozás nélkül. |
Telepítése után Kutools az Outlook számára, kérlek tedd így!
1. Kattints Kutools > Opciók, lásd a képernyőképet:
2. Az Opciók párbeszédpanel alatt Válasz fül, csekk Üdvözlet hozzáadása válaszkor lehetőséget, majd írja be az üdvözletet, amire szüksége van, lásd a képernyőképet:
3. Ezután kattintson OK ennek a beállításnak a befejezéséhez ezentúl egy üzenet megválaszolásakor az üdvözlet automatikusan létrejön az üzenet törzse előtt, lásd a képernyőképet:
Kattintson a Kutools for Outlook letöltéséhez és az ingyenes próbaverzióhoz most!
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.
