Jak automaticky vytvořit jméno drahého odesílatele při odpovědi na zprávu v aplikaci Outlook?
Při odpovídání na e-mailové zprávy byste měli ručně zadat jméno odesílatele a pozdravy. Chcete-li ušetřit čas a zlepšit efektivitu práce, můžete zvážit automatické vytvoření jména a pozdravů drahého odesílatele v aplikaci Outlook. V tomto článku budu hovořit o některých užitečných metodách řešení tohoto úkolu v aplikaci Outlook.
Když odpovíte na zprávu pomocí kódu VBA, automaticky vytvořte jméno a pozdravy drahého odesílatele
Když odpovíte na zprávu pomocí kódu VBA, automaticky vytvořte jméno a pozdravy drahého odesílatele
Následující kód VBA vám může pomoci při automatickém vložení jména a pozdravů drahého odesílatele při odpovídání na e-mailovou zprávu, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.
Kód VBA: Automatické vložení jména a pozdravů drahého odesílatele při odpovědi:
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. Poté zavřete Outlook a restartujte jej, abyste získali efekt kódu, a nyní, když odpovíte na e-mailovou zprávu, do těla se automaticky vloží jméno a pozdravy drahého odesílatele, viz screenshot:
Při odpovědi na zprávu pomocí aplikace Kutools pro aplikaci Outlook vytvořte automaticky jméno a pozdrav pozdraveného odesílatele
Pokud máte Kutools pro aplikaci Outlook, S jeho Při odpovědi přidejte pozdrav Pokud Outlook odpoví, automaticky vloží jméno odesílatele.
Kutools pro aplikaci Outlook : s více než 100 užitečnými doplňky Outlooku, můžete to vyzkoušet bez omezení za 60 dní. |
Po instalaci Kutools pro aplikaci Outlook, prosím udělejte to :
1, klikněte Kutools > možnosti, viz screenshot:
2. V možnosti v dialogovém okně pod odpověď kartu, zkontrolujte Při odpovědi přidejte pozdrav možnost a poté zadejte pozdravy podle potřeby, viz screenshot:
3. Pak klikněte na tlačítko OK k dokončení tohoto nastavení se od nynějška při odpovědi na zprávu automaticky vytvoří pozdravy před tělem zprávy, viz screenshot:
Klikněte a stáhněte si Kutools pro Outlook a bezplatnou zkušební verzi hned teď!
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.