Slik sender du møteinvitasjonen raskt på nytt til de som ikke har svart i Outlook

Outlook-løsninger September 29, 2025

Mange brukere håper å raskt sende møteinvitasjonen til deltakerne som ikke har svart. Denne artikkelen vil vise deg hvordan du oppnår det.

I min forrige artikkel - "Slik sender du raskt en e-postmelding til møtedeltakerne som ikke har svart”, kan du lære hvordan du sender en e-postmelding til møtemottakerne som ikke har svart. I likhet med det vil mange brukere direkte sende denne møteinvitasjonen på nytt i stedet for en e-postmelding. Derfor vil vi i det følgende avsløre et stykke VBA-kode, som kan hjelpe deg med å realisere det på et øyeblikk.

Send møteinvitasjonen raskt på nytt til de som ikke har svart i Outlook

Send møteinvitasjonen på nytt til de som ikke har svart

  1. Til start med, start Outlook-applikasjonen.
  2. Trykk deretter på "Alt + F11"-tastene i hovedvinduet i Outlook for å få tilgang til VBA-editor.
  3. Deretter bør du åpne en ubrukt modul eller bare sette inn en ny.
  4. Deretter kopierer og limer du inn VBA-koden nedenfor i denne 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

VBA-kode – Send møteinvitasjonen raskt på nytt til de som ikke har svart

  1. Etter det, for senere praktisk tilgang, er det bedre å legge til dette nye VBA-prosjektet til Quick Access Toolbar som vanlig.
  2. Få også tilgang til makroinnstillinger for å sikre at makroer er tillatt.
  3. Til slutt kan du ta et skudd:
  • Først må du velge kildemøtet i Outlook-kalenderen din.
  • Trykk deretter på makroknappen i hurtigtilgangsverktøylinjen.
  • Umiddelbart vil dette møtet bli sendt på nytt til deltakerne som ikke har svart.

Løs ulike Outlook-problemer

Når du bruker Outlook, kan alle slags problemer oppstå uventet, for eksempel brå "Reagerer ikke", popup-feilmeldinger, krasjer og så videre. Generelt er det viktig for deg å fikse de små problemene med det interne reparasjonsverktøyet. Men hvis problemene er for alvorlige til å løses av Scanpst.exe, har du ikke noe annet valg enn å ta hjelp av et langt mer potent og pålitelig fikseringsverktøy, som f.eks. DataNumen Outlook Repair. Den er godt kjent med PST reparasjon, og dermed skuldre over sine rivaler.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert ødelagt sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.