Как бързо да изпратите повторно поканата за срещата на онези, които не са отговорили в Outlook

Много потребители се надяват бързо да изпратят отново поканата за събранието на присъстващите, които не са дали отговор. Тази статия ще ви покаже как да го постигнете.

В предишната ми статия - „Как да изпратите бързо съобщение до участниците в срещата, които не са отговорили”, Бихте могли да научите как да изпратите известие до получателите на събранието, които не са отговорили. Подобно на него, много потребители биха искали да изпратят директно тази покана за събрание вместо поща за известие. По този начин, по-долу ще изложим част от VBA код, който може да ви помогне да го реализирате за миг.

Повторно изпратете поканата за събранието на онези, които не са отговорили

1. Към starС, стартирайте приложението си 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 проект към лентата с инструменти за бърз достъп, както обикновено.
6. Също така, достъп до настройките на макроса, за да се гарантира, че макросите са разрешени.
7. Накрая можете да направите снимка:

• Първо, трябва да изберете срещата на източника във вашия календар на Outlook.
• След това натиснете бутона за макрос в лентата с инструменти за бърз достъп.
• Веднага тази среща ще бъде възмутена от присъстващите, които не са отговорили.

Разрешаване на различни проблеми с Outlook

Когато използвате вашия Outlook, всички видове проблеми могат да възникнат неочаквано, като рязко „Няма отговор“, изскачащи съобщения за грешки, сривове и т.н. Като цяло е от съществено значение да отстраните малките проблеми с помощната програма за вътрешен ремонт. Ако обаче проблемите са твърде сериозни, за да бъдат разрешени от Scanpst.exe, нямате друг избор, освен да се възползвате от много по-мощен и надежден инструмент за коригиране, като напр. DataNumen Outlook Repair. Той е добре запознат с PST ремонт, като по този начин се изправи пред своите съперници

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повреден sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com