Is féidir leis an gcód VBA seo a leanas beannú pearsantaithe a chur leis go huathoibríoch agus teachtaireachtaí in Outlook á bhfreagairt. Is féidir leat a dhéanamh mar a leanas:

1. Roghnaigh an teachtaireacht ríomhphoist a thabharfaidh tú freagra.

2. Brúigh an Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

3. Cliceáil ar an Ionsáigh > Modúil, agus greamaigh an cód VBA seo isteach i bhfuinneog an mhodúil nua.

VBA: Freagra le beannú pearsantaithe

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. Brúigh an F5 Eochair nó cliceáil Rith cnaipe chun an VBA seo a rith. Taispeánfaidh sé bosca dialóige mar a thaispeántar thíos an scáileán. Cineál 1 nó 2 bunaithe ar do chuid riachtanas, agus ansin cliceáil OK cnaipe.

Cineál 1 le beannú le hainm an fhaighteora:	Cineál 2 le beannú leis an am den lá:

nótaí: In Outlook 2013, ní oibríonn an cód VBA seo má fhreagraíonn tú teachtaireachtaí sa Phána Léitheoireachta. Cliceáil anseo chun a fháil amach conas freagra a dhíchumasú i Reading Pane in Outlook 2013.

B’fhéidir nár mhaith le roinnt úsáideoirí cód VBA a chur i bhfeidhm in Outlook. Dá bhrí sin tugaim an dara modh isteach: Kutools for Outlook's Fóntais Beannachta Auto cuirfidh sé beannú pearsantaithe go héasca i ngach teachtaireacht freagartha.

Kutools le haghaidh Outlook déanann do chumarsáid laethúil ríomhphoist a shimpliú trí Outlook tríd an iliomad gnéithe úsáideacha a chur leis. Leigh Nios mo      Íoslódáil saor in aisce anois

1. Cliceáil ar an Kutools > Roghanna.

2. Sa bhosca dialóige Options Options, téigh go dtí an Freagra cluaisín, seiceáil an Cuir beannú leis nuair a thugann tú freagra rogha, cineál Hi < >, isteach sa bhosca thíos, agus cliceáil ar an OK cnaipe.

As seo amach, agus teachtaireachtaí in Outlook á bhfreagairt, cuirfear an beannú pearsantaithe go huathoibríoch isteach sa chomhlacht ríomhphoist mar a thaispeántar an scáileán scáileáin seo a leanas:

nótaí: In Outlook 2013, ní oibríonn an fóntais seo má fhreagraíonn tú teachtaireachtaí sa Phána Léitheoireachta. Cliceáil anseo chun a fháil amach conas freagra a dhíchumasú i Reading Pane in Outlook 2013.

Kutools Íoslódáil saor in aisce le haghaidh Outlook