Кездесуге жауап бермейтіндерге жиналысқа шақыруды қалай жылдам жіберуге болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Көптеген пайдаланушылар жауап бермеген қатысушыларға жиналысқа шақыруды тез арада қайта жібереді деп үміттенеді. Бұл мақала сізге оған қалай жетуге болатындығын көрсетеді.

Менің алдыңғы мақаламда - «Жауап бермеген жиналыс қатысушыларына хабарлама поштасын қалай тез жіберуге болады», Сіз жауап алмаған жиналыс алушыларына хабарлама поштасын қалай жіберуге болатындығын біле аласыз. Осыған ұқсас көптеген пайдаланушылар хабарлама поштасының орнына осы жиналысқа шақыруды қайта жіберуді қалайды. Осылайша, келесілерде біз оны бір сәтте іске асыруға көмектесетін VBA кодының бір бөлігін ашамыз.

Кездесуге жауап бермегендерге жиналысқа шақыруды жылдам жіберіңіз

Жиналысқа шақыруды жауап берілмегендерге жіберіңіз

  1. Кімгеtart көмегімен Outlook бағдарламасын іске қосыңыз.
  2. Содан кейін, Outlook бағдарламасының негізгі терезесінде VBA редакторына кіру үшін «Alt + F11» батырмаларын басыңыз.
  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

VBA коды - жауап берілмегендерге жиналысқа шақыруды жылдам жіберіңіз

  1. Осыдан кейін, кейінірек ыңғайлы болу үшін әдеттегідей жылдам жаңа кіру құралдар тақтасына жаңа VBA жобасын қосқан жөн.
  2. Сондай-ақ, макростарға рұқсат беру үшін макропараметрлерге қол жеткізіңіз.
  3. Соңында сіз түсірілім жасай аласыз:
  • Біріншіден, Outlook күнтізбесінде бастапқы кездесуді таңдау керек.
  • Содан кейін жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.
  • Бірден, бұл кездесу жауап бермеген қатысушыларға реніш тудырады.

Әр түрлі Outlook мәселелерін шешіңіз

Outlook бағдарламасын пайдаланған кезде күтпеген жерден барлық мәселелер туындауы мүмкін, мысалы, кенеттен «Жауап берілмейді», қалқымалы хабарламалар, апаттар және т.с.с. Әдетте, ішкі жөндеу утилитасындағы ұсақ мәселелерді шешу сізге өте қажет. Алайда, егер проблемалар Scanpst.exe арқылы шешілмейтін болса, сізде анағұрлым күшті және сенімді түзету құралына көмек көрсетуден басқа таңдау жоқ DataNumen Outlook Repair. Ол жақсы біледі PST жөндеу, осылайша қарсыластарының үстінен иық тіреу.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.