Hvordan oprettes automatisk en kære afsenders navn, når man besvarer en besked i Outlook?
Når du besvarer e-mail-besked, skal du indtaste afsenderens navn og hilsner manuelt. For at spare tid og forbedre arbejdseffektiviteten kan du overveje at oprette en kære afsenders navn og hilsner automatisk i Outlook. Denne artikel vil jeg tale om nogle nyttige metoder til at løse denne opgave i Outlook.
Opret en kære afsenders navn og hilsner automatisk, når du besvarer en besked med VBA-kode
Opret en kære afsenders navn og hilsner automatisk, når du besvarer besked med Kutools til Outlook
Opret en kære afsenders navn og hilsner automatisk, når du besvarer en besked med VBA-kode
Følgende VBA-kode kan hjælpe dig med automatisk at indsætte en kære afsenders navn og hilsner, når du besvarer en e-mail-besked, gør venligst som dette:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.
VBA-kode: Indsæt automatisk en kære afsenders navn og hilsner, når du svarer:
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. Luk derefter Outlook og genstart det for at få kodeeffekten, og nu, når du svarer på en e-mail-besked, indsættes en kære afsenders navn og hilsner automatisk i kroppen, se skærmbillede:
Opret en kære afsenders navn og hilsner automatisk, når du besvarer besked med Kutools til Outlook
Hvis du har Kutools til Outlook, Med Tilføj hilsen, når du svarer funktion, indsætter Outlook automatisk afsenderens navn, når du svarer.
Kutools til Outlook : med mere end 100 praktiske Outlook-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 60 dage. |
Efter installation Kutools til Outlook, gør venligst som dette :
1. Klik Kutools > Indstillinger, se skærmbillede:
2. I Indstillinger under dialogboksen Svar fanen, tjek Tilføj hilsen, når du svarer valgmulighed, og indtast derefter hilsnerne efter behov, se skærmbillede:
3. Klik derefter på OK for at afslutte denne indstilling, fra nu af, når du besvarer en besked, oprettes hilsnerne automatisk foran meddelelsens brødtekst, se skærmbillede:
Klik for at downloade Kutools til Outlook og gratis prøveversion nu!
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.