Kako hitro znova poslati povabilo na sestanek tistim, ki se niso odzvali v Outlooku

Številni uporabniki upajo, da bodo hitro znova poslali vabilo na sestanek udeležencem, ki se niso odzvali. Ta članek vam bo pokazal, kako to doseči.

V prejšnjem članku - "Kako hitro poslati obvestilo udeležencem sestanka, ki niso odgovorili”, se lahko naučite, kako poslati e-poštno obvestilo prejemnikom srečanja, ki se niso odzvali. Podobno bi mnogi uporabniki radi neposredno znova poslali to povabilo na sestanek namesto e-pošte z obvestilom. Tako bomo v nadaljevanju izpostavili delček kode VBA, ki vam lahko pomaga, da jo realizirate v trenutku.

Ponovno pošljite povabilo na sestanek tistim, ki se niso odzvali

1. Za starZaženite aplikacijo Outlook.
2. Nato v glavnem oknu programa Outlook pritisnite tipki »Alt + F11« za dostop do urejevalnika VBA.
3. Nato morate odpreti neuporabljen modul ali preprosto vstaviti novega.
4. Nato kopirajte in prilepite spodnjo kodo VBA v ta modul.

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. Po tem je za kasnejši udoben dostop bolje, da dodate ta novi projekt VBA v orodno vrstico za hitri dostop kot običajno.
6. Odprite tudi nastavitve makra, da zagotovite, da so makri dovoljeni.
7. Končno lahko posnamete posnetek:

• Najprej morate v Outlookovem koledarju izbrati izvorni sestanek.
• Nato pritisnite gumb makra v orodni vrstici za hitri dostop.
• Ta sestanek bo takoj ponovno poslan udeležencem, ki se niso odzvali.

Rešite različne težave z Outlookom

Ko uporabljate Outlook, se lahko nepričakovano pojavijo najrazličnejše težave, na primer nenadno »Ni odgovora«, pojavna sporočila o napakah, zrušitve in tako naprej. Na splošno je bistveno, da odpravite majhne težave z notranjim pripomočkom za popravilo. Če pa so težave preveč resne, da bi jih rešil Scanpst.exe, vam ne preostane drugega, kot da si pomagate z veliko močnejšim in zanesljivejšim orodjem za odpravljanje težav, kot je npr. DataNumen Outlook Repair. Dobro je seznanjen Popravilo PST, s čimer se je zoperstavil tekmecem.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com