Hur skapar jag automatiskt ett kärt avsändarnamn när du svarar på ett meddelande i Outlook?
När du svarar på e-postmeddelanden bör du skriva avsändarens namn och hälsningar manuellt. För att spara tid och förbättra arbetseffektiviteten kan du överväga att skapa en kär avsändares namn och hälsningar automatiskt i Outlook. Den här artikeln kommer jag att prata om några användbara metoder för att lösa denna uppgift i Outlook.
Skapa en kär avsändares namn och hälsningar automatiskt när du svarar meddelande med VBA-kod
Skapa en kär avsändares namn och hälsningar automatiskt när du svarar meddelande med VBA-kod
Följande VBA-kod kan hjälpa dig att automatiskt infoga en kär avsändares namn och hälsningar när du svarar på ett e-postmeddelande, gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna läget och sedan kopiera och klistra in följande kod i den tomma modulen.
VBA-kod: Sätt automatiskt en kär avsändares namn och hälsningar när du svarar:
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. Stäng sedan Outlook och starta om den för att få kodeffekten, och nu när du svarar på ett e-postmeddelande infogas en kär avsändares namn och hälsningar automatiskt i kroppen, se skärmdump:
Skapa en kär avsändares namn och hälsningar automatiskt när du svarar på ett meddelande med Kutools for Outlook
Om du har Kutools för Outlook, med dess Lägg till hälsning vid svar funktionen, kommer Outlook automatiskt infoga avsändarens namn när du svarar.
Kutools för Outlook : med mer än 100 praktiska Outlook-tillägg, gratis att prova utan begränsning på 60 dagar. |
När du har installerat Kutools för Outlook, gör så här :
1. Klicka Kutools > Tillbehör, se skärmdump:
2. I Tillbehör under dialogrutan Svara fliken, kolla Lägg till hälsning vid svar alternativet och ange hälsningarna efter behov, se skärmdump:
3. Klicka sedan OK för att avsluta den här inställningen, från och med nu, när du svarar på ett meddelande skapas hälsningarna automatiskt framför meddelandetexten, se skärmdump:
Klicka för att ladda ner Kutools for Outlook och gratis testversion nu!
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.