Sut i greu enw anfonwr annwyl wrth ateb neges yn Outlook?
Wrth ateb neges e-bost, dylech deipio enw a chyfarchion yr anfonwr â llaw. Er mwyn arbed amser a gwella effeithlonrwydd gwaith, efallai y byddwch chi'n ystyried creu enw a chyfarchion anfonwr annwyl yn awtomatig yn Outlook. Yr erthygl hon, byddaf yn siarad am rai dulliau defnyddiol ar gyfer datrys y dasg hon yn Outlook.
Creu enw a chyfarchion anfonwr annwyl yn awtomatig wrth ateb neges gyda chod VBA
Creu enw a chyfarchion anfonwr annwyl yn awtomatig wrth ateb neges gyda Kutools ar gyfer Outlook
Creu enw a chyfarchion anfonwr annwyl yn awtomatig wrth ateb neges gyda chod VBA
Gall y cod VBA canlynol eich helpu chi i fewnosod enw a chyfarchion anfonwr annwyl wrth ateb neges e-bost, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith SesiwnOutlook oddi wrth y Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.
Cod VBA: Mewnosodwch enw a chyfarchion anfonwr annwyl wrth ateb:
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. Yna caewch yr Outlook a'i ailgychwyn i gael yr effaith cod, ac yn awr, pan fyddwch chi'n ateb neges e-bost, mae enw a chyfarchion anfonwr annwyl yn cael eu rhoi yn y corff yn awtomatig, gweler y screenshot:
Creu enw a chyfarchion anfonwr annwyl yn awtomatig wrth ateb neges gyda Kutools ar gyfer Outlook
Os oes gennych Kutools ar gyfer Rhagolwg, Gyda'i Ychwanegwch gyfarchiad wrth ateb nodwedd, bydd Outlook yn mewnosod enw'r anfonwr wrth ateb.
Kutools ar gyfer Rhagolwg : gyda mwy na 100 o ychwanegiadau defnyddiol Outlook, yn rhad ac am ddim i geisio heb unrhyw gyfyngiad mewn 60 diwrnod. |
Ar ôl gosod Kutools ar gyfer Rhagolwg, gwnewch fel hyn :
1. Cliciwch Kutools > Dewisiadau, gweler y screenshot:
2. Yn y Dewisiadau blwch deialog, o dan y ateb tab, gwirio Ychwanegwch gyfarchiad wrth ateb opsiwn, ac yna nodwch y cyfarchion yn ôl yr angen, gweler y screenshot:
3. Yna cliciwch OK i orffen y gosodiad hwn, o hyn ymlaen, wrth ateb neges, bydd y cyfarchion yn cael eu creu yn awtomatig o flaen y corff negeseuon, gweler y screenshot:
Cliciwch i lawrlwytho Kutools ar gyfer Outlook a threial am ddim nawr!
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.