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.
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 gratisversionen av Kutools för Outlook nu!
Bästa kontorsproduktivitetsverktyg
Nyheter: Kutools för Outlook lanseras Gratis version!
Upplev de helt nya Kutools för Outlook GRATIS version med 70+ otroliga funktioner, din att använda FÖR EVIGT! Klicka för att ladda ner nu!
📧 Email Automation: Autosvar (tillgängligt 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: Återkalla 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 / Påminn dig när viktiga mejl kommer / 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 ...
