Kako automatski prebrojati sudionike prije slanja pozivnice za sastanak u vašem Outlooku

Ovaj članak će vas naučiti kako koristiti Outlook VBA za automatsko dobivanje broja sudionika prije slanja pozivnice za sastanak. 

Slično kao i kod brojanja primatelja prije slanja e-pošte, neki korisnici također žele prebrojati sudionike prije slanja pozivnice za sastanak. Kao i obično, cilj je procijeniti ukupne troškove predloženog sastanka, a zatim odlučiti hoće li se poslati pozivnica za sastanak sudionicima. Štoviše, budući da Outlook korisnicima dopušta postavljanje sudionika kao obaveznih ili opcionalnih, neki bi željeli prebrojati sudionike u različitim vrstama. I ne bi bilo bolje kada bi se mogli uključiti resursi i trajanje sastanka. Iako Outlook nema takvu izravnu značajku, i dalje možete koristiti VBA kod da biste to ostvarili.

Automatski broji sudionike prije slanja pozivnice za sastanak

1. Za početak, pokrenite Outlook program.
2. Zatim u glavnom prozoru programa Outlook pritisnite prečace tipki “Alt + F11”.
3. Zatim ćete uspješno ući u Outlook VBA uređivač. Sada trebate pronaći i otvoriti “ThisOutlookSession” projekt.
4. Nakon toga kopirajte i zalijepite sljedeće VBA kodove u ovaj projekt.

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. Nakon toga morate potpisati ovaj kod.
6. Kasnije provjerite dopušta li vaš Outlook digitalno potpisane makronaredbe.
7. Od sada, svaki put kada kliknete gumb "Pošalji" u pozivnicama za sastanke, dobit ćete poruku koja prikazuje broj sudionika, resurse i trajanje, poput sljedeće slike:

Fleksibilno se nosite s frustrirajućom korupcijom u Outlooku

Možda ste se ikada prije susreli s problemima s Outlookom, poput zamrzavanja, raznih poruka o pogrešci i tako dalje. Srećom, Outlook dolazi unaprijed instaliran s alatom za popravak pristigle pošte, koji se zove as scanpst, koji je sposoban riješiti male probleme. Ali ako je problem ozbiljan, od vas će se tražiti da se vratite na specijaliziraniji alat, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvaren mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com