როგორ ვუპასუხოთ რამდენიმე წერილს იმავე შინაარსით თქვენს Outlook-ში

ბევრი მომხმარებელი ითხოვს გამოსავალს, რომელიც საშუალებას მისცემს მათ უპასუხონ რამდენიმე შერჩეულ წერილს Outlook-ში იგივე შინაარსით. მიუხედავად იმისა, რომ Outlook არ იძლევა ასეთ ფუნქციას, თქვენ მაინც შეგიძლიათ მიაღწიოთ მას VBA კოდის ნაწილის საშუალებით.

მომისმენია მომხმარებელთა დიდი ნაწილი, რომლებიც ჩივიან, რომ Outlook-ს არ აქვს ფუნქცია, რომელიც მხარს უჭერს მათ, რომ ერთსა და იმავე დროს რამდენიმე ელ.წერილზე ერთი და იგივე პასუხის გაგზავნა. როდესაც ისინი აირჩევენ რამდენიმე ელ.წერილს, ორივე ქმედება „პასუხი“ და „ყველაზე პასუხის გაცემა“ გახდება ნაცრისფერი - გაითიშება. ამ საკითხის განხილვის შემდეგ, ჩვენ გაგიზიარებთ ამ მახასიათებლის რეალიზების მეთოდს.

ჯგუფური პასუხი მრავალ ელ.წერილს ერთი და იგივე შინაარსით

1. პირველ რიგში, გაუშვით თქვენი Outlook პროგრამა.
2. შემდეგ, თქვენ უნდა შექმნათ პასუხის შაბლონი, რომელიც გსურთ გამოიყენოთ მრავალ ელ.წერილზე საპასუხოდ.

• პირველ რიგში, შექმენით ახალი ელ.წერილი.
• შემდეგ, შეადგინეთ ეს ელფოსტა იმის მიხედვით, თუ რა გსურთ უპასუხოთ.
• შემდეგი, დააჭირეთ "ფაილს" და აირჩიეთ "შენახვა როგორც" ვარიანტი.
• მოგვიანებით, ახალ დიალოგურ ფანჯარაში "შენახვა როგორც" შეიყვანეთ სახელი და აირჩიეთ "Outlook შაბლონი" ველში "შენახვა როგორც ტიპის".
• ბოლოს დააჭირეთ ღილაკს "OK".

3. შემდეგი, შეგიძლიათ დახუროთ ელფოსტა ცვლილებების შენახვის გარეშე.
4. ამის შემდეგ, თქვენ უნდა დააჭიროთ "Alt + F11" ღილაკებს.
5. ამის შემდეგ გამოჩნდება Outlook VBA რედაქტორის ფანჯარა.
6. ახლა თქვენ უნდა იპოვნოთ და გახსნათ პროექტი „ThisOutlookSession“ და დააკოპიროთ მასში შემდეგი VBA კოდი.

Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
    Dim objCommandBarButton As Office.CommandBarButton
 
    If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
       Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
 
       'Add a "Same Reply" option to the context menu
       With objCommandBarButton
           .Style = msoButtonIconAndCaption
           .Caption = "Same Reply"
           .FaceId = 355
           .OnAction = "Project1.ThisOutlookSession.SendSameReply"
       End With
    End If
End Sub

Sub SendSameReply()
    Dim strTemplate As String
    Dim objTemplateReply As Outlook.MailItem
    Dim strHTMLBody As String
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim objReply As Outlook.MailItem
 
    'Input the name of the previously saved template
    strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
    Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
    strHTMLBody = objTemplateReply.HTMLBody
 
    Set objSelection = Application.ActiveExplorer.Selection
 
    For i = objSelection.count To 1 Step -1
        Set objReply = objSelection(i).Reply
        With objReply
             .HTMLBody = strHTMLBody & objReply.HTMLBody
             .Send
        End With
    Next
End Sub

7. საბოლოოდ, შეგიძლიათ დახუროთ მიმდინარე ფანჯარა და სცადოთ ეს მაკრო.

• პირველ რიგში, აირჩიეთ რამდენიმე ელ.წერილი ფოსტის სიაში.
• შემდეგ, დააწკაპუნეთ მათზე მარჯვენა ღილაკით.
• შემდეგი, აირჩიეთ და დააჭირეთ ღილაკს "იგივე პასუხი" კონტექსტური მენიუში.
• შემდეგ, თქვენ მოგიწევთ მიუთითოთ საპასუხოდ გამოყენებული შაბლონი.
• სახელის შეყვანის და "OK" დაჭერის შემდეგ, იგივე პასუხი გაიგზავნება ამ არჩეულ ელ.წერილზე.

Outlook მიდრეკილია კორუფციისკენ

როგორც Outlook-ის რეგულარული მომხმარებელი, მე მივიღე სხვადასხვა შეცდომები. ამიტომ, მე მივიღე სხვადასხვა ზომები ჩემი Outlook მონაცემების დასაცავად. თუმცა, იმის გამო, რომ Outlook არის მიდრეკილი დაზიანებისთვის და ავარიის პროგნოზირება რთულია, მე ყოველთვის მზად უნდა ვიყო. მაგალითად, იმისთვის, რომ ჩემი მონაცემები რაც შეიძლება მალე გადავარჩინო, ხელთ მაქვს აღდგენის შესანიშნავი ინსტრუმენტი - DataNumen Outlook Repair. მას შეუძლია Outlook-ის შესწორება ფაილი ყოველგვარი აურზაურის გარეშე.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql კორუფცია და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად