Outlook-da yig'ilishga taklifnoma yuborishdan oldin ishtirokchilarni qanday avtomatik hisoblash mumkin

Ushbu maqola sizga Outlook VBA-dan qanday qilib yig'ilishga taklifnoma yuborishdan oldin ishtirokchilar sonini avtomatik ravishda olish uchun foydalanishni o'rgatadi. 

Elektron pochta xabarini yuborishdan oldin qabul qiluvchilarni sanashga o'xshab, ba'zi foydalanuvchilar uchrashuvga taklifnoma yuborishdan oldin ishtirokchilarni ham sanashni xohlashadi. Odatdagidek, bu taklif qilingan uchrashuvning umumiy narxini taxmin qilish va keyin ishtirokchilarga bunday uchrashuvga taklifnoma yuborish-yubormaslikni hal qilishga qaratilgan. Bundan tashqari, Outlook foydalanuvchilarga ishtirokchilarni zarur yoki ixtiyoriy ravishda belgilashga imkon berganligi sababli, ba'zilar ishtirokchilarni turli xil turlarda sanashni xohlashadi. Va agar uchrashuv resurslari va davomiyligi kiritilsa, bundan ham yaxshiroq bo'lishi mumkin emas. Outlookda bunday to'g'ridan-to'g'ri funksiya mavjud bo'lmasa-da, siz buni amalga oshirish uchun VBA kodidan foydalanishingiz mumkin.

Uchrashuvga taklifnoma yuborishdan oldin ishtirokchilarni avtomatik hisoblash

1. Boshlash uchun Outlook dasturingizni ishga tushiring.
2. Keyin asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
3. Keyin Outlook VBA muharririga muvaffaqiyatli kirasiz. Endi siz "ThisOutlookSession" loyihasini topishingiz va ochishingiz kerak.
4. Keyinchalik, ushbu loyihaga quyidagi VBA kodlaridan nusxa ko'chiring va joylashtiring.

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. Shundan so'ng siz ushbu kodni imzolashingiz kerak.
6. Keyinchalik Outlook raqamli imzolangan makroslarga ruxsat berishiga ishonch hosil qiling.
7. Bundan buyon har safar uchrashuv taklifnomalarida “Yuborish” tugmasini bosganingizda quyidagi rasm kabi ishtirokchilar soni, manbalar va davomiylik haqida xabar olasiz:

Xafagarchilikni keltirib chiqaradigan korruptsiyani moslashuvchan tarzda enging

Ehtimol, siz ilgari Outlook bilan bog'liq muammolarga duch kelgansiz, masalan, muzlatish, turli xil xato xabarlari va boshqalar. Yaxshiyamki, Outlook oldindan o'rnatilgan kiruvchi xabarlar qutisini tuzatish vositasi bilan birga keladi Scanpst, bu kichik muammolarni hal qilishga qodir. Ammo muammo jiddiy bo'lsa, sizdan ko'proq maxsus vositaga murojaat qilishingiz kerak bo'ladi, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com