Cum să numărați automat participanții înainte de a trimite o invitație la întâlnire în Outlook

Acest articol vă va învăța cum să utilizați Outlook VBA pentru a obține automat un număr de participanți înainte de a trimite o invitație la întâlnire. 

Similar numărării destinatarilor înainte de a trimite un e-mail, unii utilizatori doresc să numere și participanții înainte de a trimite o invitație la o întâlnire. Ca de obicei, acest lucru are ca scop estimarea costului total al întâlnirii propuse și apoi decizia dacă se trimite o astfel de invitație la o întâlnire participanților. Mai mult, deoarece Outlook permite utilizatorilor să seteze participanții ca fiind obligatorii sau opționali, unii ar dori să numere participanții în diferite tipuri. Și nu ar putea fi mai bine dacă resursele și durata întâlnirii ar putea fi incluse. Deși Outlook nu are o astfel de funcție directă, puteți utiliza totuși cod VBA pentru a realiza acest lucru.

Numărați automat participanții înainte de a trimite o invitație la întâlnire

1. Pentru început, lansați programul Outlook.
2. Apoi, în fereastra principală a Outlook, apăsați comenzile rapide „Alt + F11”.
3. Apoi veți intra cu succes în editorul Outlook VBA. Acum trebuie să găsiți și să deschideți proiectul „ThisOutlookSession”.
4. Ulterior, copiați și inserați următoarele coduri VBA în acest proiect.

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. După aceea, trebuie să semnați acest cod.
6. Mai târziu, asigurați-vă că Outlook permite macrocomenzile semnate digital.
7. De acum înainte, de fiecare dată când faceți clic pe butonul „Trimite” din invitațiile la întâlnire, veți primi un mesaj care arată numărul de participanți, resursele și durata, precum următoarea imagine:

Faceți față în mod flexibil corupției frustrante din Outlook

Poate că ați mai întâlnit probleme cu Outlook, cum ar fi înghețarea, diverse mesaje de eroare și așa mai departe. Din fericire, Outlook vine preinstalat cu un instrument de reparare a căsuței primite, numit ca Scanpst, care este capabil să rezolve probleme mici. Dar dacă problema este gravă, vi se va cere să recurgeți la un instrument mai specializat, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv mdf corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com