Så här skickar du snabbt mötesinbjudan till dem som inte har svarat i Outlook

Många användare hoppas att snabbt skicka mötesinbjudan till de deltagare som inte har svarat. Den här artikeln visar hur du kan uppnå det.

I min tidigare artikel - “Hur man snabbt skickar ett meddelandepost till mötesdeltagarna som inte har svarat”, Kan du lära dig att skicka ett meddelande-e-post till mötesmottagarna som inte har svarat. I likhet med det vill många användare skicka omedelbart denna mötesinbjudan istället för en anmälan. Således kommer vi i det följande att exponera en bit VBA-kod, som kan hjälpa dig att förverkliga det på ett ögonblick.

Skicka mötesinbjudan till de som inte har svarat

1. Till starstarta din Outlook-applikation.
2. Tryck sedan på “Alt + F11” -tangenterna i Outlook-huvudfönstret för att komma åt VBA-redigeraren.
3. Därefter ska du öppna en oanvänd modul eller helt enkelt infoga en ny.
4. Kopiera sedan och klistra in VBA-koden nedan i den här modulen.

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. Efter det, för senare bekväm åtkomst, är du bättre att lägga till det här nya VBA-projektet i snabbåtkomstverktygsfältet som vanligt.
6. Åtkomst till makroinställningar för att säkerställa att makron är tillåtna.
7. Slutligen kan du ta ett skott:

• För det första måste du välja källmötet i din Outlook-kalender.
• Tryck sedan på makroknappen i snabbåtkomstverktygsfältet.
• Omedelbart kommer detta möte att skickas om till de deltagare som inte har svarat.

Lös olika Outlook-problem

När du använder din Outlook kan alla typer av problem uppstå oväntat, till exempel plötsligt "Ingen svar", popup-felmeddelanden, kraschar och så vidare. Generellt är det viktigt för dig att åtgärda de små problemen med det interna reparationsverktyget. Men om problemen är för allvarliga för att lösas av Scanpst.exe, har du inget annat val än att ta hjälp av ett mycket mer kraftfullt och pålitligt fixverktyg, t.ex. DataNumen Outlook Repair. Det är väl insatt PST-reparationoch därigenom ta över sina rivaler.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive skadat sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com