როგორ გავაგზავნოთ შეტყობინების ელფოსტა ავტომატურად, როდესაც Outlook-ში კონკრეტული დავალება დასრულებულია

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

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

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

ავტომატური გაგზავნა შეტყობინების ელფოსტა, როდესაც კონკრეტული დავალება დასრულდება

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

Public WithEvents olItems As Outlook.Items

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

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim obApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim Recip As String
 
    'Replace "test" as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 And Item.Complete = True Then
       'Replace with your desired contact
       Recip = "John Smith"
       If MsgBox("Do you want to send a report to " & Recip & " ?", vbYesNo + vbQuestion, "Confirm Sending Report") = vbYes Then
          Set obApp = Outlook.Application
          Set olMail = obApp.CreateItem(olMailItem)
          With olMail
               .To = Recip
               .Subject = "Complete: " & Item.Subject
               .Body = "Dear Mr. Smith" & vbCrLf & "I've completed this task in " & DateDiff("d", Item.CreationTime, Now) & " day" & Chr(40) & "s" & Chr(41) & "." & vbCrLf & vbCrLf & "Task Name: " & Item.Subject & vbCrLf & "Start Date: " & Item.StartDate & vbCrLf & "Due Date: " & Item.DueDate & vbCrLf & "Creation Time: " & Item.CreationTime & vbCrLf & "Completed Time: " & Now & vbCrLf & vbCrLf & "Task Details: " & vbCrLf & Item.Body
               .ReadReceiptRequested = True
               'To directly send it,use ".Send" instead
               .Display
          End With
       End If
    End If
End Sub

4. შემდეგ გააგრძელეთ ამ კოდის ხელმოწერა და მაკრო პარამეტრების შეცვლა, რათა მხოლოდ ციფრულად ხელმოწერილი მაკროები დაუშვას.
5. საბოლოოდ შეგიძლიათ გახვიდეთ მიმდინარე ფანჯრიდან და სცადოთ.

• როდესაც დავალებას დასრულებულად მონიშნავთ, მიიღებთ შეტყობინებას, როგორიცაა შემდეგი სურათი:
• როდესაც დააჭირეთ ღილაკს "დიახ", გაიხსნება ახალი შეტყობინება, რომელიც ნაჩვენებია ქვემოთ მოცემულ სურათზე:

შენიშვნა: თუ „.display“-ს „.Send“ ხაზით ჩაანაცვლებთ, ეს ელფოსტა გაიგზავნება პირდაპირ გამოჩენის გარეშე.

ყურადღება მიაქციეთ შეტყობინებებს უცნობი ელ.ფოსტის მისამართებიდან

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

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

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