Ինչպե՞ս ինքնաբերաբար ստեղծել սիրելի ուղարկողի անունը Outlook- ում հաղորդագրությունը պատասխանելիս:
Էլ.փոստի հաղորդագրությունը պատասխանելիս պետք է ձեռքով մուտքագրեք ուղարկողի անունն ու ողջույնները: Saveամանակ խնայելու և աշխատանքի արդյունավետությունը բարելավելու համար կարող եք մտածել Outlook- ում ավտոմատ կերպով ստեղծել սիրելի ուղարկողի անուն և ողջույններ: Այս հոդվածում ես կխոսեմ Outlook- ում այս առաջադրանքի լուծման մի քանի օգտակար մեթոդների մասին:
VBA կոդով հաղորդագրությունը պատասխանելիս ավտոմատ կերպով ստեղծեք սիրելի ուղարկողի անունն ու ողջույնները
Հետևյալ VBA կոդը կարող է օգնել ձեզ ավտոմատ կերպով ներմուծել սիրելի ուղարկողի անունն ու ողջույնները էլփոստի հաղորդագրությունը պատասխանելիս, արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (VbaProject.OTM) ռեժիմը բացելու պատուհանը, այնուհետև պատճենեք և կպցրեք հետևյալ կոդը դատարկ մոդուլի մեջ:
VBA կոդ. Պատասխանելիս ավտոմատ տեղադրիր սիրելի ուղարկողի անունը և ողջույնները.
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. Դրանից հետո փակեք Outlook- ը և վերագործարկեք այն ՝ կոդի էֆեկտն ստանալու համար, և այժմ, երբ էլփոստով հաղորդագրություն եք պատասխանում, սիրելի ուղարկողի անունն ու ողջույնները ավտոմատ կերպով տեղադրվում են մարմնի մեջ, տես նկարի նկարը.
Outlook- ի համար Kutools- ով հաղորդագրությունը պատասխանելիս ինքնաբերաբար ստեղծեք սիրելի ուղարկողի անուն և շնորհավորանքներ
Եթե դուք ունեք Outlook- ի համար նախատեսված գործիքներԻր Պատասխանելիս ավելացրեք ողջույններ առանձնահատկությունը, Outlook- ը ավտոմատ կերպով կտեղադրի ուղարկողի անունը պատասխանելիս:
Outlook- ի համար նախատեսված գործիքներ : ավելի քան 100 հարմարավետ Outlook հավելումներով, 60 օրվա ընթացքում փորձեք առանց սահմանափակումների. |
Տեղադրելուց հետո Outlook- ի համար նախատեսված գործիքներխնդրում եմ արեք ինչպես դա
1: Սեղմեք Կուտոլս > Ընտրանքներ, տես նկարի նկարը.
2, Մեջ Ընտրանքներ երկխոսության տուփ, տակ պատասխանել էջանշանը, ստուգեք Պատասխանելիս ավելացրեք ողջույններ տարբերակը, և այնուհետև մուտքագրեք այն ողջույնները, որքան ձեզ հարկավոր է, տես նկարի նկարը.
3. Այնուհետեւ կտտացրեք OK այս պարամետրն ավարտելու համար, այսուհետ հաղորդագրությունը պատասխանելիս ողջույնները կստեղծվեն ավտոմատ կերպով հաղորդագրության մարմնի դիմաց, տե՛ս նկարը.
Կտտացրեք Kutools- ը Outlook- ի և անվճար փորձաշրջանի համար ներբեռնելու համար:
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: