Kako brzo ponovno poslati pozivnicu za sastanak onima koji nisu odgovorili u programu Outlook

Mnogi se korisnici nadaju brzom ponovnom slanju pozivnice za sastanak sudionicima koji nisu odgovorili. Ovaj će vam članak pokazati kako to postići.

U mom prethodnom članku – “Kako brzo poslati obavijest sudionicima sastanka koji nisu odgovorili”, možete naučiti kako poslati obavijest primateljima sastanka koji nisu odgovorili. Slično tome, mnogi bi korisnici željeli izravno ponovno poslati ovu pozivnicu za sastanak umjesto e-pošte s obavijesti. Stoga ćemo u nastavku izložiti dio VBA koda koji vam može pomoći da ga realizirate u trenu.

Ponovno pošaljite pozivnicu za sastanak onima koji nisu odgovorili

1. Za start pomoću, pokrenite svoju Outlook aplikaciju.
2. Zatim, u glavnom prozoru programa Outlook pritisnite tipke "Alt + F11" za pristup VBA uređivaču.
3. Zatim biste trebali otvoriti neiskorišteni modul ili jednostavno umetnuti novi.
4. Nakon toga kopirajte i zalijepite VBA kod u nastavku u ovaj 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. Nakon toga, radi kasnijeg praktičnog pristupa, bolje je dodati ovaj novi VBA projekt na alatnu traku za brzi pristup kao i obično.
6. Također, pristupite postavkama makronaredbi kako biste bili sigurni da su makronaredbe dopuštene.
7. Konačno možete slikati:

• Najprije trebate odabrati izvorni sastanak u Outlook kalendaru.
• Zatim pritisnite gumb makronaredbe na alatnoj traci za brzi pristup.
• Ovaj će sastanak odmah biti ponovno poslan sudionicima koji nisu odgovorili.

Rješavanje raznih problema s Outlookom

Kada koristite svoj Outlook, mogu se neočekivano pojaviti razni problemi, poput naglog "Nema odgovora", skočnih poruka o pogrešci, rušenja i tako dalje. Općenito, bitno je da popravite male probleme pomoću uslužnog programa za unutarnje popravke. Međutim, ako su problemi preozbiljni da bi ih Scanpst.exe riješio, nemate izbora nego uzeti pomoć daleko moćnijeg i pouzdanijeg alata za popravak, kao što je DataNumen Outlook Repair. Dobro je upućen u PST popravak, čime je nadmašio svoje suparnike.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećeni sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com