Ирээдүйд хариу өгөөгүй хүмүүст уулзалтын урилгыг хэрхэн хурдан илгээх вэ?

Олон хэрэглэгчид уулзалтын урилгыг хариу өгөөгүй оролцогчдод хурдан илгээх болно гэж найдаж байна. Энэ нийтлэл нь түүнд хэрхэн хүрэхийг харуулах болно.

Миний өмнөх нийтлэлд “Хариу өгөөгүй хуралд оролцогчдод хэрхэн мэдэгдэх захиа илгээх вэ?”, Хариу өгөөгүй уулзалт хүлээн авагчдад хэрхэн мэдэгдэх захиа илгээхийг сурч болно. Үүнтэй адилаар олон хэрэглэгчид энэ уулзалтын урилгыг мэдэгдэх захидлын оронд шууд буцааж өгөхийг хүсч байна. Тиймээс дараахь зүйл дээр бид үүнийг богино хугацаанд ухамсарлахад туслах VBA кодын хэсгийг дэлгэх болно.

Хурлын урилгыг хариу өгөөгүй хүмүүст дахин илгээнэ үү

1. Start хамт, Outlook програмаа ажиллуулна уу.
2. Дараа нь Outlook-ийн үндсэн цонхонд "Alt + F11" товчийг дарж VBA засварлагч руу орно уу.
3. Дараа нь та ашиглагдаагүй модулийг нээх эсвэл шинээр оруулах хэрэгтэй.
4. Дараа нь доорх VBA кодыг хуулж, энэ модуль дээр буулгана уу.

Sub ResendMeetingInvitationToAttendeesNotRespond()
    Dim objMeeting As AppointmentItem
    Dim objAttendees As Recipients
    Dim objAttendee As recipient
    Dim AttendeesNotRespond As String
    Dim objCopiedMeeting As AppointmentItem
    Dim objRecipient As recipient
    Dim objItem As Object
 
    Set objMeeting = ActiveExplorer.Selection.Item(1)
    'Create a copy of the source meeting
    Set objCopiedMeeting = objMeeting.Copy
 
    'Remove all the original recipients
    For i = objCopiedMeeting.Recipients.Count To 1 Step -1
        objCopiedMeeting.Recipients.Item(i).Delete
    Next
 
    Set objAttendees = objMeeting.Recipients
    For Each objAttendee In objAttendees
        If (objAttendee.Type <> olOrganizer) And (objAttendee.MeetingResponseStatus = olResponseNone) Then
           'Add the recipients who haven't responded to this meeting
           objCopiedMeeting.Recipients.Add (objAttendee.Address)
        End If
    Next
 
    'Send this copied meeting
    objCopiedMeeting.Recipients.ResolveAll
    objCopiedMeeting.Send
 
    'Permanently delete the copied meeting
    objCopiedMeeting.UserProperties.Add ("Clear"), olText
    objCopiedMeeting.Save
    objCopiedMeeting.Delete
    For Each objItem In Application.Session.GetDefaultFolder(olFolderDeletedItems).Items
        If TypeName(objItem.UserProperties.Find("Clear")) <> "Nothing" Then
           objItem.Delete
        End If
    Next
End Sub

5. Үүний дараа, дараа нь тав тухтай хандахын тулд та энэ шинэ VBA төслийг ердийн байдлаар Quick Access Toolbar дээр нэмэх нь дээр.
6. Түүнчлэн, макро зөвшөөрөгдсөн эсэхийг баталгаажуулахын тулд макро тохиргоонд хандана уу.
7. Эцэст нь та буудаж болно:

• Нэгдүгээрт, та Outlook календартаа эх уулзалтыг сонгох хэрэгтэй.
• Дараа нь Quick Access Toolbar дээрх макро товчийг дарна уу.
• Энэ уулзалт нь хариу өгөөгүй оролцогчдод нэн даруй дургүйцэх болно.

Төлөвлөгөөний янз бүрийн асуудлыг шийдвэрлэх

Таны Outlook-ийг ашиглах үед гэнэтийн "Хариу өгөхгүй", гарч ирсэн цонхны алдааны мэдэгдлүүд, сүйрэл гэх мэт гэнэтийн бүх асуудал гарч болзошгүй. Ерөнхийдөө дотоод засварын хэрэгсэлтэй холбоотой жижиг асуудлуудыг арилгах нь танд нэн чухал юм. Гэсэн хэдий ч, асуудал нь Scanpst.exe-ийн хувьд шийдвэрлэхэд хэтэрхий ноцтой байгаа бол танд илүү хүчирхэг, найдвартай засах хэрэгсэл авахаас өөр аргагүй болно. DataNumen Outlook Repair. Энэ талаар сайн мэддэг PST засвар, ингэснээр өрсөлдөгчдөө нуруундаа буулгах.

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

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