Ako rýchlo znova odoslať pozvánku na schôdzku osobám, ktoré v Outlooku neodpovedali

Mnoho používateľov dúfa, že pozvánku na schôdzu rýchlo znova pošle účastníkom, ktorí neodpovedali. Tento článok vám ukáže, ako to dosiahnuť.

V mojom predchádzajúcom článku - „Ako rýchlo poslať oznamovací e-mail účastníkom stretnutia, ktorí neodpovedali”, Môžete sa dozvedieť, ako poslať e-mail s upozornením príjemcom schôdzky, ktorí neodpovedali. Mnohí používatelia by chceli túto pozvánku na schôdzku znova odoslať namiesto e-mailu s oznámením. Preto v nasledujúcich textoch odhalíme kúsok kódu VBA, ktorý vám pomôže v okamihu si ho uvedomiť.

Znova pošlite pozvánku na stretnutie tým, ktorí neodpovedali

1. K start s, spustite aplikáciu Outlook.
2. Potom v hlavnom okne Outlooku stlačte klávesovú skratku „Alt + F11“, aby ste sa dostali do editora VBA.
3. Ďalej by ste mali otvoriť nepoužívaný modul alebo jednoducho vložiť nový.
4. Následne skopírujte a vložte nižšie uvedený kód VBA do tohto modulu.

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. Potom, pre neskorší pohodlný prístup, je lepšie pridať tento nový projekt VBA na panel nástrojov Rýchly prístup ako obvykle.
6. Prístupom k nastaveniam makier sa tiež ubezpečte, že sú makrá povolené.
7. Nakoniec môžete urobiť záber:

• Najskôr musíte vo svojom kalendári Outlooku zvoliť zdrojovú schôdzku.
• Potom stlačte tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Táto schôdzka bude okamžite preposlaná účastníkom, ktorí neodpovedali.

Vyriešte rôzne problémy s programom Outlook

Pri používaní Outlooku sa môžu neočakávane vyskytnúť všetky druhy problémov, napríklad náhle „Nereaguje“, vyskakovacie chybové správy, zlyhania atď. Spravidla je nevyhnutné vyriešiť malé problémy pomocou nástroja na interné opravy. Ak sú však problémy príliš vážne na to, aby ich program Scanpst.exe dokázal vyriešiť, nezostáva vám nič iné, ako využiť omnoho účinnejší a spoľahlivejší nástroj na opravu, ako napríklad DataNumen Outlook Repair. Je dobre vyznaný v Oprava PST, čím sa presunula nad svojich súperov.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S