Einige Benutzer möchten beim Senden einer Outlook-Besprechungseinladung nur Besprechungsantworten von den erforderlichen Teilnehmern anfordern. In diesem Artikel erfahren Sie, wie Sie dies über Outlook VBA realisieren.
Um beim Senden von Besprechungseinladungen keine Antworten anzufordern, klicken Sie einfach auf die Schaltfläche „Antwortoptionen“ und deaktivieren Sie die Option „Antworten anfordern“. Auf diese Weise müssen jedoch nicht alle Teilnehmer, unabhängig davon, ob sie erforderlich oder optional sind, ihre Besprechungsantworten senden. In Wirklichkeit ist most Wenn Sie Zeit haben, möchten Sie keine Antworten von optionalen Teilnehmern anfordern. In diesem Fall müssen Sie nach anderen Methoden suchen, z. B. nach der folgenden.
Fordern Sie die erforderlichen Teilnehmer nur auf, auf Ihre Besprechungseinladung zu antworten
- Starten Sie zunächst Ihre Outlook-Anwendung.
- Drücken Sie dann im Outlook-Hauptbildschirm die Tasten „Alt + F11“.
- Nachdem Sie Zugriff auf den Outlook VBA-Editor erhalten haben, sollten Sie das Projekt „ThisOutlookSession“ suchen und öffnen.
- Kopieren Sie anschließend den folgenden VBA-Code in dieses Projektfenster.
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
- Danach sollten Sie dieses VBA-Projekt signieren.
- Bleiben Sie im aktuellen Makro und klicken Sie in der Symbolleiste auf "Extras".
- Wählen Sie dann die Option „Digitale Signaturen“.
- Befolgen Sie im Popup-Dialogfeld die Anweisungen auf dem Bildschirm, um den Vorgang abzuschließen.
- Überprüfen Sie später Ihre Outlook-Makroeinstellungen, um sicherzustellen, dass das digital signierte Makro aktiviert ist.
- Wenn Sie von nun an eine Besprechungseinladung versenden, müssen die optionalen Teilnehmer nicht mehr antworten. Aus ihrer Sicht sieht die Einladung zum Meeting wie folgt aus:
Bekämpfen Sie Viren und Malware in Outlook
Der Outlook-Junk-E-Mail-Filter spielt eine wichtige Rolle bei der Vermeidung unerwarteter Viren- und Malware-Angriffe. Heutzutage werden Viren immer ausgefeilter. Um Vireninfektionen und Malware-Angriffe zu blockieren, sollten Sie nicht nur Spam rechtzeitig blockieren, sondern auch die verdächtigen E-Mail-Domänen oder -Adressen besser an Microsoft melden, um den Outlook-Junk-E-Mail-Filter zu stärken. Darüber hinaus müssen Sie neben dem integrierten Junk-E-Mail-Filter auch ein beeindruckendes Reparatur-Tool wie z DataNumen Outlook Repair. Es hat eine viel höhere Outlook-Wiederherstellung Rate als seine Rivalen.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL wiederherstellen und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX