Outlook-da cavab verməyənlərə görüş dəvətini tez bir zamanda necə göndərmək olar

Bir çox istifadəçi görüş dəvətini tez bir zamanda cavab verməyən iştirakçılara göndərməyə ümid edir. Bu məqalə sizə bunu necə əldə edəcəyinizi göstərəcək.

Əvvəlki məqaləmdə - "Cavab verməyən yığıncaq iştirakçılarına bildiriş məktubunu necə tez göndərmək olar”, cavab verməyən görüş alıcılarına bildiriş məktubu göndərməyi öyrənə bilərsiniz. Buna bənzər olaraq, bir çox istifadəçi bildiriş məktubu əvəzinə bu görüş dəvətini birbaşa yenidən göndərmək istəyir. Beləliklə, aşağıda biz VBA kodunun bir hissəsini təqdim edəcəyik ki, bu da sizə onu bir anda həyata keçirməyə kömək edə bilər.

Cavab verməyənlərə görüş dəvətini yenidən göndərin

1. Starilə Outlook proqramınızı işə salın.
2. Sonra, Outlook əsas pəncərəsində VBA redaktoruna daxil olmaq üçün "Alt + F11" düymələrini basın.
3. Sonra istifadə olunmamış modulu açmalı və ya sadəcə yenisini daxil etməlisiniz.
4. Daha sonra aşağıdakı VBA kodunu kopyalayıb bu modula yapışdırın.

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. Bundan sonra, daha sonra rahat giriş üçün bu yeni VBA layihəsini həmişəki kimi Tez Giriş Alətlər Panelinə əlavə etmək daha yaxşıdır.
6. Həmçinin, makrolara icazə verilməsini təmin etmək üçün makro parametrlərinə daxil olun.
7. Nəhayət, bir çəkiliş edə bilərsiniz:

• Əvvəlcə Outlook təqviminizdə mənbə görüşü seçməlisiniz.
• Sonra Tez Giriş Alətlər Panelində makro düyməsini basın.
• Dərhal bu görüş cavab verməyən iştirakçılara göndəriləcək.

Müxtəlif Outlook problemlərini həll edin

Outlook-dan istifadə etdiyiniz zaman gözlənilmədən hər cür problemlər yarana bilər, məsələn, qəfil “Cavab verilmir”, popup səhv mesajları, qəzalar və s. Ümumiyyətlə, daxili təmir proqramı ilə bağlı kiçik problemləri həll etmək vacibdir. Bununla belə, əgər problemlər Scanpst.exe ilə həll edilə bilməyəcək qədər ciddidirsə, sizin daha güclü və etibarlı düzəltmə alətindən istifadə etməkdən başqa çarəniz yoxdur. DataNumen Outlook Repair. Bunu yaxşı bilir PST təmiri, bununla da rəqiblərini üstələyir.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com