Gall y cod VBA canlynol ychwanegu cyfarchiad wedi'i bersonoli yn awtomatig wrth ateb negeseuon yn Outlook. Gallwch wneud fel a ganlyn:

1. Dewiswch y neges e-bost y byddwch chi'n ei hateb.

2. Gwasgwch y Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

3. Cliciwch ar y Mewnosod > Modiwlau, a'i gludo yn dilyn y cod VBA i mewn i ffenestr y modiwl newydd.

VBA: Ymateb gyda chyfarchiad wedi'i bersonoli

Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub

4. Gwasgwch y F5 Allwedd neu glicio Run botwm i redeg y VBA hwn. Bydd yn popio blwch deialog fel y dangosir isod y sgrinlun. Teipiwch 1 neu 2 yn seiliedig ar eich anghenion, ac yna cliciwch OK botwm.

Math 1 ar gyfer cyfarch gydag enw'r derbynnydd:	Math 2 ar gyfer cyfarch gydag amser o'r dydd:

Nodyn: Yn Outlook 2013, nid yw'r cod VBA hwn yn gweithio os ydych chi'n ateb negeseuon yn y Pane Darllen. Cliciwch yma i wybod sut i analluogi ateb yn Reading Pane yn Outlook 2013.

Efallai na fydd rhai defnyddwyr yn hoffi cymhwyso cod VBA yn Outlook. Felly rwy'n cyflwyno'r ail ddull: Kutools ar gyfer Outlook's Cyfleustodau Cyfarch Auto yn ychwanegu cyfarchiad wedi'i bersonoli yn hawdd ym mhob neges ateb.

Kutools ar gyfer Rhagolwg yn symleiddio'ch cyfathrebu e-bost dyddiol trwy Outlook trwy ychwanegu dwsinau o nodweddion defnyddiol. Darllenwch fwy      Am ddim Lawrlwythwch Nawr

1. Cliciwch ar y Kutools > Dewisiadau.

2. Yn y blwch deialog Dewisiadau agoriadol, ewch i'r ateb tab, gwiriwch y Ychwanegwch gyfarchiad wrth ateb opsiwn, teipiwch Hi < >, i mewn i'r blwch isod, a chliciwch ar y OK botwm.

O hyn ymlaen, wrth ateb negeseuon yn Outlook, bydd y cyfarchiad wedi'i bersonoli yn cael ei ychwanegu'n awtomatig i'r corff e-bost fel y dangosir y sgrinlun canlynol:

Nodyn: Yn Outlook 2013, nid yw'r cyfleustodau hwn yn gweithio os ydych chi'n ateb negeseuon yn y Pane Darllen. Cliciwch yma i wybod sut i analluogi ateb yn Reading Pane yn Outlook 2013.

Am ddim Lawrlwytho Kutools ar gyfer Outlook