Paano Awtomatikong Bilangin ang mga Dadalo bago Magpadala ng Imbitasyon sa Pagpupulong sa Iyong Outlook

Ituturo sa iyo ng artikulong ito kung paano gamitin ang Outlook VBA upang awtomatikong makakuha ng bilang ng mga dadalo bago magpadala ng imbitasyon sa pagpupulong. 

Katulad ng pagbibilang ng mga tatanggap bago magpadala ng email, nais din ng ilang user na bilangin ang mga dadalo bago magpadala ng imbitasyon sa pulong. Gaya ng dati, layunin nitong tantyahin ang kabuuang gastos ng iminungkahing pulong at pagkatapos ay magpasya kung ipapadala ang naturang imbitasyon sa pulong sa mga dadalo. Bukod dito, dahil pinapayagan ng Outlook ang mga user na magtakda ng mga dadalo kung kinakailangan o opsyonal, ang ilan ay gustong bilangin ang mga dadalo sa iba't ibang uri. At hindi na maaaring maging mas maganda kung maisasama ang mga mapagkukunan at tagal ng pulong. Bagama't walang ganitong direktang tampok ang Outlook, maaari mo pa ring gamitin ang VBA code upang maisakatuparan ito.

Awtomatikong Bilangin ang mga Dadalo bago Magpadala ng Imbitasyon sa Pagpupulong

1. Para magsimula, ilunsad ang iyong programa sa Outlook.
2. Pagkatapos sa pangunahing window ng Outlook, pindutin ang "Alt + F11" key shortcut.
3. Susunod na matagumpay mong ipasok ang Outlook VBA editor. Ngayon ay kailangan mong hanapin at buksan ang proyektong "ThisOutlookSession".
4. Kasunod, kopyahin at i-paste ang mga sumusunod na VBA code sa proyektong ito.

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. Pagkatapos nito, kailangan mong pirmahan ang code na ito.
6. Sa ibang pagkakataon, tiyaking pinahihintulutan ng iyong Outlook ang mga digitally sign na macro.
7. Mula ngayon, sa tuwing i-click mo ang button na "Ipadala" sa mga imbitasyon sa pagpupulong, makakatanggap ka ng mensaheng nagpapakita ng bilang ng mga dadalo, mapagkukunan at tagal, tulad ng sumusunod na larawan:

Makayanan ang Nakakabigo na Outlook Corruption nang may kakayahang umangkop

Marahil ay nakatagpo ka na ng mga isyu sa Outlook dati, tulad ng pagyeyelo, iba't ibang mensahe ng error at iba pa. Sa kabutihang palad, ang Outlook ay paunang naka-install na may tool sa pag-aayos ng inbox, na tinatawag na Scanpst, na may kakayahang lutasin ang maliliit na isyu. Ngunit kung malubha ang problema, kakailanganin mong bumalik sa isang mas espesyal na tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang tiwaling mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa