Таны төлөв байдалд уулзалтын урилга илгээхээс өмнө оролцогчдыг хэрхэн автоматаар тоолох вэ

Энэ нийтлэл нь уулзалтын урилга илгээхээсээ өмнө оролцогчдын тоог автоматаар авахын тулд Outlook VBA-г хэрхэн ашиглахыг зааж өгөх болно. 

Имэйл илгээхээсээ өмнө хүлээн авагчдыг тоолохтой адил зарим хэрэглэгчид уулзалтын урилга илгээхээсээ өмнө оролцогчдыг тоолохыг хүсдэг. Ердийнх шигээ энэ нь санал болгож буй уулзалтын нийт зардлыг тооцоолж, дараа нь оролцогчдод ийм уулзалтын урилга илгээх эсэхийг шийдэх зорилготой юм. Түүнчлэн, Outlook нь хэрэглэгчдэд оролцогчдыг шаардлагатай эсвэл сонголтоор тохируулах боломжийг олгодог тул зарим нь оролцогчдыг өөр өөр төрлөөр тоолохыг хүсдэг. Мөн уулзалтын нөөц болон үргэлжлэх хугацааг оруулж чадвал илүү дээр байх болно. Outlook нь ийм шууд функцгүй ч гэсэн та үүнийг хэрэгжүүлэхийн тулд VBA кодыг ашиглаж болно.

Хурлын урилга илгээхээс өмнө оролцогчдыг автоматаар тоолно

1. Эхлэхийн тулд Outlook програмаа ажиллуулна уу.
2. Дараа нь Outlook-ийн үндсэн цонхонд "Alt + F11" товчлууруудыг дарна уу.
3. Дараа нь та Outlook VBA редакторыг амжилттай оруулна. Одоо танд "ThisOutlookSession" төслийг олж нээх хэрэгтэй.
4. Дараа нь дараахь VBA кодыг хуулж аваад энэ төсөлд оруулна уу.

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. Үүний дараа та энэ кодонд гарын үсэг зурах хэрэгтэй.
6. Дараа нь дижитал гарын үсэг бүхий макро таны Outlook-д зөвшөөрөгдсөн эсэхийг шалгаарай.
7. Одооноос эхлэн уулзалтын урилга дээр "Илгээх" товчийг товших бүрт оролцогчдын тоо, нөөц, үргэлжлэх хугацааг харуулсан зурвас ирэх болно.

Урьдчилан сэргийлэх бухимдалтай авлигыг уян хатан байдлаар даван туулах

Магадгүй та өмнө нь Outlook-тэй холбоотой асуудлуудтай тулгарч байсан, тухайлбал хөлдөх, янз бүрийн алдааны мэдэгдэл гэх мэт. Аз болоход Outlook-ийг ирсэн хайрцаг засах хэрэгслээр урьдчилан суулгасан болно Сканнердах, жижиг асуудлыг шийдвэрлэх чадвартай. Гэхдээ асуудал ноцтой бол танаас илүү нарийн мэргэжлийн хэрэгсэлд хандах шаардлагатай болно DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлигач MDF програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com