Sommige gebruikers willen alleen antwoorden op de vergadering van de vereiste deelnemers vragen wanneer ze een Outlook-uitnodiging voor een vergadering verzenden. In dit artikel wordt uitgelegd hoe u dit kunt realiseren via Outlook VBA.
Om geen antwoorden te vragen bij het verzenden van uitnodigingen voor vergaderingen, kunt u gewoon op de knop "Reactieopties" klikken en de optie "Reacties aanvragen" uitschakelen. Maar op deze manier hoeven niet alle deelnemers, ongeacht vereist of optioneel, hun antwoorden op vergaderingen te verzenden. In werkelijkheid is most van de tijd, is het wat je wilt om geen antwoorden te vragen van optionele bezoekers. In dit geval moet u andere methoden zoeken, zoals de volgende.
Verzoek alleen vereiste deelnemers om te reageren op uw vergaderingsuitnodiging
- Start in de eerste plaats uw Outlook-applicatie.
- Druk vervolgens op de toetsen "Alt + F11" in het hoofdscherm van Outlook.
- Vervolgens, nadat u toegang hebt gekregen tot de Outlook VBA-editor, moet u het "ThisOutlookSession" -project zoeken en openen.
- Kopieer vervolgens de volgende VBA-code naar dit projectvenster.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMeeting As Outlook.MeetingItem
Dim objCopiedMeeting As Outlook.AppointmentItem
Dim objOriginalAttendee As Outlook.recipient
Dim objCopiedAttendee As Outlook.recipient
If TypeOf Item Is MeetingItem Then
Set objMeeting = Item
For i = objMeeting.Recipients.count To 1 Step -1
'Remove Optional Attendees from the Original Meeting Invitation
Set objOriginalAttendee = objMeeting.Recipients.Item(i)
If objOriginalAttendee.Type = olOptional Then
objOriginalAttendee.Delete
End If
Next
'Copy the Meeting
Set objCopiedMeeting = objMeeting.GetAssociatedAppointment(True).Copy
'Disable "Request Response" Feature in the Copied Meeting
objCopiedMeeting.ResponseRequested = False
For i = objCopiedMeeting.Recipients.count To 1 Step -1
'Add the Previously Removed Optional Attendees
Set objCopiedAttendee = objCopiedMeeting.Recipients.Item(i)
If objCopiedAttendee.Type = olRequired Then
objCopiedAttendee.Delete
End If
Next
'Send out the Copied Meeting
objCopiedMeeting.Send
'Delete the Copied Meeting after Sending
objCopiedMeeting.Delete
End If
End Sub
- Daarna moet u dit VBA-project ondertekenen.
- Blijf in de huidige macro en klik op "Tools" in de werkbalk.
- Kies vervolgens de optie "Digitale handtekeningen".
- Volg in het pop-upvenster de instructies op het scherm om het te voltooien.
- Controleer later uw Outlook-macro-instellingen om er zeker van te zijn dat de digitaal ondertekende macro is ingeschakeld.
- Vanaf nu, wanneer u een uitnodiging voor een vergadering verstuurt, hoeven de optionele deelnemers niet te reageren. Vanuit hun perspectief ziet de uitnodiging voor de vergadering eruit als de volgende schermafbeelding:
Bestrijd virussen en malware in Outlook
Het filter voor ongewenste e-mail in Outlook speelt een belangrijke rol bij het voorkomen van onverwachte virus- en malwareaanvallen. Virussen worden tegenwoordig steeds geavanceerder. Om virusinfecties en malwareaanvallen te blokkeren, moet u niet alleen spams op tijd blokkeren, maar kunt u ook beter de verdachte e-maildomeinen of -adressen aan Microsoft melden, waardoor het filter voor ongewenste e-mail in Outlook wordt versterkt. Naast het ingebouwde filter voor ongewenste e-mail, moet u ook een formidabele reparatietool behouden, zoals DataNumen Outlook Repair Het heeft een veel hoger Outlook-herstel tarief dan zijn rivalen.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com