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

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

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

შეხვედრის მოწვევის გაგზავნამდე დამსწრეების ავტომატური დათვლა

1. დასაწყებად, გაუშვით თქვენი Outlook პროგრამა.
2. შემდეგ Outlook-ის მთავარ ფანჯარაში დააჭირეთ "Alt + F11" კლავიშთა მალსახმობებს.
3. შემდეგ თქვენ წარმატებით შეხვალთ Outlook VBA რედაქტორში. ახლა თქვენ უნდა იპოვოთ და გახსნათ პროექტი "ThisOutlookSession".
4. ამის შემდეგ, დააკოპირეთ და ჩასვით შემდეგი VBA კოდები ამ პროექტში.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMeetingInvitation As Outlook.MeetingItem
    Dim objMeeting As Outlook.AppointmentItem
    Dim objAttendees As Outlook.Recipients
    Dim objAttendee As Outlook.recipient
    Dim lRequiredAttendeeCount, lOptionalAttendeeCount, lResourceCount As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    If TypeOf Item Is MeetingItem Then
       Set objMeetingInvitation = Item
       Set objMeeting = objMeetingInvitation.GetAssociatedAppointment(True)
       Set objAttendees = objMeetingInvitation.Recipients
    End If
 
    lRequiredAttendeeCount = 0
    lOptionalAttendeeCount = 0
    lResourceCount = 0
 
    'Count the required & optional attendees and resources, etc.
    For Each objAttendee In objAttendees
         If objAttendee.Type = olRequired Then
            lRequiredAttendeeCount = lRequiredAttendeeCount + 1
         ElseIf objAttendee.Type = olOptional Then
            lOptionalAttendeeCount = lOptionalAttendeeCount + 1
         ElseIf objAttendee.Type = olResource Then
            lResourceCount = lResourceCount + 1
         End If
    Next
 
    'Double check the meeting invitation details
    strMsg = "Meeting Details:" & vbCrLf & vbCrLf & _
     "Required Attendees: " & lRequiredAttendeeCount & vbCrLf & _
     "Optional Attendees: " & lOptionalAttendeeCount & vbCrLf & _
     "Resources: " & lResourceCount & vbCrLf & _
     "Duration: " & GetDuration(objMeeting) & vbCrLf & vbCrLf & _
     "Are you sure to send this meeting invitation?"
 
    nPrompt = MsgBox(strMsg, vbExclamation + vbYesNo, "Double Check Meeting Invitation")
 
    If nPrompt = vbYes Then
       Cancel = False
    Else
       Cancel = True
    End If
End Sub

Function GetDuration(objCurMeeting As AppointmentItem) As String
    'Convert minute to hour
    If objCurMeeting.Duration > 60 Then
       GetDuration = Round(objCurMeeting.Duration / 60, 1) & " hours"
    ElseIf objCurMeeting.Duration = 60 Then
       GetDuration = Round(objCurMeeting.Duration / 60, 1) & " hour"
    ElseIf objCurMeeting.Duration < 60 Then
       GetDuration = objCurMeeting.Duration & " mins"
    End If
End Function

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

გაუმკლავდეთ იმედგაცრუებულ მსოფლმხედველობას კორუფციას მოქნილად

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

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

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