Cara Mengira Hadirin secara automatik sebelum Menghantar Jemputan Mesyuarat di Outlook Anda

Artikel ini akan mengajar anda cara menggunakan Outlook VBA untuk mendapatkan jumlah hadirin secara automatik sebelum mengirim jemputan mesyuarat. 

Sama seperti mengira penerima sebelum menghantar e-mel, sesetengah pengguna juga ingin mengira hadirin sebelum menghantar jemputan mesyuarat. Seperti biasa, ini bertujuan untuk menganggarkan jumlah kos mesyuarat yang dicadangkan dan kemudian memutuskan sama ada untuk menghantar jemputan mesyuarat tersebut kepada hadirin. Selain itu, memandangkan Outlook membenarkan pengguna menetapkan hadirin seperti yang diperlukan atau pilihan, sesetengah pengguna ingin mengira hadirin dalam pelbagai jenis. Dan adalah lebih baik jika sumber dan tempoh mesyuarat boleh disertakan. Walaupun Outlook tidak mempunyai ciri langsung sedemikian, anda masih boleh menggunakan kod VBA untuk merealisasikannya.

Kira secara automatik Hadirin sebelum Menghantar Jemputan Mesyuarat

1. Untuk bermula, lancarkan program Outlook anda.
2. Kemudian di tetingkap Outlook utama, tekan pintasan kekunci "Alt + F11".
3. Seterusnya anda akan memasuki editor Outlook VBA dengan jayanya. Sekarang anda perlu mencari dan membuka projek "ThisOutlookSession".
4. Selepas itu, salin dan tampal kod VBA berikut ke dalam projek ini.

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. Selepas itu, anda perlu menandatangani kod ini.
6. Kemudian pastikan Outlook anda membenarkan makro yang ditandatangani secara digital.
7. Mulai sekarang, setiap kali anda mengklik butang "Kirim" dalam undangan mesyuarat, anda akan mendapat mesej yang menunjukkan jumlah peserta, sumber daya dan jangka masa, seperti gambar berikut:

Mengatasi Kerosakan Tinjauan yang Mengecewakan Secara Fleksibel

Mungkin anda pernah menghadapi masalah Outlook sebelum ini, seperti pembekuan, pelbagai mesej ralat dan sebagainya. Nasib baik, Outlook dilengkapi dengan alat pembaikan peti masuk, yang disebut sebagai scanpst, yang mampu menyelesaikan masalah kecil. Tetapi jika masalahnya serius, anda akan diminta untuk menggunakan alat yang lebih khusus, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com