Kako brzo ponovo poslati pozivnicu za sastanak onima koji nisu odgovorili u Outlooku

Mnogi korisnici se nadaju da će brzo ponovo poslati pozivnicu za sastanak učesnicima koji nisu odgovorili. Ovaj članak će vam pokazati kako to postići.

U mom prethodnom članku – “Kako brzo poslati mail sa obavještenjem učesnicima sastanka koji nisu odgovorili“, mogli biste naučiti kako poslati e-poštu s obavijestima primaocima sastanka koji nisu odgovorili. Slično tome, mnogi korisnici bi željeli direktno ponovo poslati ovu pozivnicu za sastanak umjesto e-pošte s obavještenjem. Stoga ćemo u nastavku izložiti dio VBA koda koji vam može pomoći da ga realizujete u trenu.

Ponovo pošaljite pozivnicu za sastanak onima koji nisu odgovorili

1. Za start sa, pokrenite svoju Outlook aplikaciju.
2. Zatim, u glavnom prozoru programa Outlook, pritisnite tipke “Alt + F11” da biste pristupili VBA uređivaču.
3. Zatim biste trebali otvoriti nekorišteni modul ili jednostavno umetnuti novi.
4. Nakon toga, kopirajte i zalijepite VBA kod ispod 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, za kasniji praktičan pristup, bolje je da dodate ovaj novi VBA projekat na alatnu traku za brzi pristup kao i obično.
6. Također, pristupite postavkama makroa kako biste osigurali da su makroi dozvoljeni.
7. Konačno možete snimiti:

• Prvo, morate odabrati izvorni sastanak u vašem Outlook kalendaru.
• Zatim pritisnite dugme za makro na traci sa alatkama za brzi pristup.
• Ovaj sastanak će odmah biti proslijeđen prisutnima koji se nisu odazvali.

Riješite različite probleme s Outlookom

Kada koristite svoj Outlook, mogu se neočekivano pojaviti sve vrste problema, kao što je naglo „nema odgovora“, iskačuće poruke o grešci, rušenja i tako dalje. Općenito, bitno je da riješite male probleme s uslužnim programom za internu popravku. Međutim, ako su problemi previše ozbiljni da bi ih riješio Scanpst.exe, nemate izbora osim da uzmete pomoć daleko moćnijeg i pouzdanijeg alata za popravak, kao što je DataNumen Outlook Repair. Dobro je upućen u to PST repair, čime se nadmeću nad svojim rivalima.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com