როგორ გავცეთ ავტომატური პასუხი ორიგინალური ელფოსტით და წინასწარ განსაზღვრული ტექსტით Outlook VBA-ით

Outlook Solutions სექტემბერი 29, 2025

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

Outlook-ში, Exchange-ის ანგარიშები მომხმარებლებს საშუალებას აძლევს დააყენონ ავტომატური პასუხები პირდაპირ ღილაკის „ავტომატური პასუხების“ მეშვეობით „ინფორმაციის“ ჩანართზე „ფაილი“ მენიუში, როგორიცაა შემდეგი ეკრანის სურათი:

მაგრამ თუ იყენებთ ინტერნეტ ელფოსტის ანგარიშს, არ აქვს მნიშვნელობა IMAP ან POP3, არ არის ხელმისაწვდომი ღილაკი „ავტომატური პასუხები“. ავტომატური პასუხის ჩართვის ერთადერთი გზა არის ავტომატური პასუხის წესის შექმნა, რომელიც ნაჩვენებია შემდეგ სურათზე:

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

ავტომატური პასუხი ორიგინალური ელფოსტით და წინასწარ განსაზღვრული ტექსტით

თავდაპირველად, თქვენ უნდა გადახვიდეთ "დეველოპერი" ჩანართზე და დააჭირეთ ღილაკს "Visual Basic".
შემდეგ ახალ "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში, თქვენ უნდა დააწკაპუნოთ ორჯერ "ThisOutlookSession" პროექტზე მარცხენა მხარეს.
ამის შემდეგ გაიხსნება პროექტი "ThisOutlookSession". ახლა თქვენ უნდა დააკოპიროთ და ჩასვათ მასში შემდეგი VBA კოდები.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olReply As MailItem
 
    If Item.Class = olMail Then
       Set olReply = Item.Reply
    Else
       Exit Sub
    End If
 
    With olReply
         'Type Your Own Auto Reply
         'Change "John Smith" to Your Own Name
         .Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
         .Send
    End With
End Sub

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

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

Outlook მონაცემთა შეცდომების მისამართი

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

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

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