Hvordan du hurtigt kan sende mødeinvitationen igen til dem, der ikke har reageret i Outlook

Outlook-løsninger September 29, 2025

Mange brugere håber hurtigt at kunne sende mødeinvitationen igen til de deltagere, der ikke har svaret. Denne artikel viser dig, hvordan du opnår det.

I min tidligere artikel - “Sådan sender du hurtigt en meddelelsesmail til mødedeltagerne, der ikke har svaret”, Kan du lære at sende en notifikationsmail til mødemodtagerne, der ikke har svaret. På samme måde som det ville mange brugere gerne sende denne mødeinvitation direkte i stedet for en meddelelsesmail. I det følgende vil vi således udsætte et stykke VBA-kode, som kan hjælpe dig med at realisere det på et øjeblik.

Send hurtigt mødeinvitationen til dem, der ikke har reageret i Outlook

Send mødeinvitationen igen til dem, der ikke har reageret

  1. Til starstart med din Outlook-applikation.
  2. Tryk derefter på “Alt + F11” -tasten i Outlook-hovedvinduet for at få adgang til VBA-editor.
  3. Dernæst skal du åbne et ubrugt modul eller blot indsætte et nyt.
  4. Kopier og indsæt derefter VBA-koden nedenfor i dette 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

VBA-kode - Send mødet igen hurtigt til dem, der ikke har reageret

  1. Derefter er det bedre for senere bekvem adgang at tilføje dette nye VBA-projekt til værktøjslinjen Hurtig adgang som normalt.
  2. Få også adgang til makroindstillinger for at sikre, at makroer er tilladt.
  3. Endelig kan du tage et skud:
  • For det første skal du vælge kildemødet i din Outlook-kalender.
  • Tryk derefter på makroknappen i værktøjslinjen Hurtig adgang.
  • Straks sendes dette møde til de deltagere, der ikke har svaret.

Løs forskellige Outlook-problemer

Når du bruger din Outlook, kan alle slags problemer opstå uventet, såsom pludselige "Ingen svar", popup-fejlmeddelelser, nedbrud og så videre. Generelt er det vigtigt for dig at løse de små problemer med det interne reparationsværktøj. Men hvis problemerne er for alvorlige til at blive løst af Scanpst.exe, har du intet andet valg end at tage hjælp af et langt mere potent og pålideligt fixværktøj, såsom DataNumen Outlook Repair. Det er velbevandret PST-reparationog derved skulder over sine rivaler.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.