Հաջորդ VBA կոդը կարող է ավտոմատ կերպով ավելացնել անհատականացված ողջույններ Outlook- ում հաղորդագրությունները պատասխանելիս: Կարող եք անել հետևյալ կերպ.

1. Ընտրեք էլփոստի հաղորդագրությունը, որը դուք կպատասխանեք:

2. Սեղմեք ալտ + F11 Microsoft Visual Basic հավելվածների համար պատուհանը բացելու ստեղները:

3. Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ VBA կոդը նոր մոդուլի պատուհանում:

VBA. Պատասխանեք անհատականացված ողջույնով

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. Սեղմեք F5 Բանալին կամ սեղմումը Վազում այս VBA- ն գործարկելու կոճակը: Այն կհայտնվի երկխոսության տուփ, ինչպես ցույց է տրված ներքևում նշված էկրանի նկարը: Մուտքագրեք 1 կամ 2 ՝ հիմնվելով ձեր կարիքների վրա, ապա կտտացրեք OK կոճակը:

Ստացողի անունով ողջույնի համար գրեք 1:	Օրվա ժամանակի հետ ողջույնի համար գրեք 2-ը.

ՆշումOutlook 2013-ում այս VBA կոդը չի գործում, եթե ընթերցանության պատուհանում հաղորդագրություններ եք պատասխանում: Սեղմել այստեղ ՝ իմանալու համար, թե ինչպես անջատել կարդալու պատուհանում պատասխանել Outlook 2013 – ում.

Որոշ օգտվողներ կարող են չցանկանալ կիրառել VBA կոդ Outlook- ում: Ուստի ես ներկայացնում եմ երկրորդ մեթոդը. Kutools Outlook- ի համար Auto Greeting օգտակար բոլոր պատասխանող հաղորդագրություններում հեշտությամբ կավելացնի անհատականացված ողջույնները:

Outlook- ի համար նախատեսված գործիքներ պարզեցնում է ձեր ամենօրյա էլփոստի հաղորդակցությունը Outlook- ի միջոցով ՝ ավելացնելով տասնյակ հարմարավետ հատկություններ: Կարդալ ավելին      Ազատ Download Now

1. Սեղմեք Կուտոլս > Ընտրանքներ.

2. Բացման Ընտրանքներ երկխոսության դաշտում անցեք այն պատասխանել էջանիշը, ստուգեք Պատասխանելիս ավելացրեք ողջույններ տարբերակը, մուտքագրեք Hi < > ներքևի վանդակում և կտտացրեք OK կոճակը:

Այսուհետ, Outlook- ում հաղորդագրությունները պատասխանելիս, անհատականացված ողջույնը ավտոմատ կերպով կավելացվի էլփոստի մարմնում, ինչպես ցույց է տրված հետևյալ էկրանին.

ՆշումOutlook 2013-ում այս օգտակար ծրագիրը չի գործում, եթե ընթերցանության պատուհանում հաղորդագրություններ եք պատասխանում: Սեղմել այստեղ ՝ իմանալու համար, թե ինչպես անջատել կարդալու պատուհանում պատասխանել Outlook 2013 – ում.

Անվճար ներբեռնում Kutools Outlook- ի համար