Ορισμένοι χρήστες επιθυμούν να ζητήσουν απαντήσεις σε σύσκεψη μόνο από τους απαιτούμενους συμμετέχοντες κατά την αποστολή πρόσκλησης σε σύσκεψη του Outlook. Αυτό το άρθρο θα διδάξει πώς να το πραγματοποιήσετε μέσω του Outlook VBA.
Για να μην ζητήσετε απαντήσεις κατά την αποστολή προσκλήσεων σε σύσκεψη, μπορείτε απλώς να κάνετε κλικ στο κουμπί "Επιλογές απόκρισης" και να καταργήσετε την επιλογή "Αίτηση απάντησης". Όμως, με αυτόν τον τρόπο, όλοι οι παρευρισκόμενοι, ανεξάρτητα από το αν απαιτείται ή προαιρετικά, δεν θα υποχρεωθούν να στείλουν τις απαντήσεις τους στη συνάντηση. Ωστόσο, στην πραγματικότητα, most του χρόνου, αυτό που θέλετε είναι να μην ζητήσετε απαντήσεις από προαιρετικούς συμμετέχοντες. Σε αυτήν την περίπτωση, πρέπει να αναζητήσετε άλλες μεθόδους, όπως την ακόλουθη.
Ζητήστε Απαιτούμενοι Συμμετέχοντες μόνο για να απαντήσετε στην Πρόσκληση σε Σύσκεψη
- Πρώτα, ξεκινήστε την εφαρμογή Outlook.
- Στη συνέχεια, πατήστε τα πλήκτρα "Alt + F11" στην κύρια οθόνη του Outlook.
- Στη συνέχεια, αφού αποκτήσετε πρόσβαση στο πρόγραμμα επεξεργασίας του Outlook VBA, θα πρέπει να βρείτε και να ανοίξετε το έργο "ThisOutlookSession".
- Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα VBA σε αυτό το παράθυρο έργου.
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
- Μετά από αυτό, πρέπει να υπογράψετε αυτό το έργο VBA.
- Παραμείνετε στην τρέχουσα μακροεντολή και πατήστε "Εργαλεία" στη γραμμή εργαλείων.
- Στη συνέχεια, επιλέξτε "Ψηφιακές υπογραφές".
- Στο αναδυόμενο παράθυρο διαλόγου, ακολουθήστε τις οδηγίες στην οθόνη για να το ολοκληρώσετε.
- Αργότερα, ελέγξτε τις ρυθμίσεις μακροεντολών του Outlook για να βεβαιωθείτε ότι είναι ενεργοποιημένη η ψηφιακά υπογεγραμμένη μακροεντολή.
- Από τώρα και στο εξής, όταν στέλνετε μια πρόσκληση σε σύσκεψη, οι προαιρετικοί παρευρισκόμενοι δεν θα πρέπει να απαντήσουν. Από την πλευρά τους, η πρόσκληση σε σύσκεψη θα μοιάζει με το ακόλουθο στιγμιότυπο οθόνης:
Καταπολέμηση ιών και κακόβουλου λογισμικού στο Outlook
Το φίλτρο ανεπιθύμητης αλληλογραφίας του Outlook παίζει σημαντικό ρόλο στην αποφυγή απροσδόκητων επιθέσεων ιών και κακόβουλων προγραμμάτων. Σήμερα, οι ιοί γίνονται όλο και πιο περίπλοκοι. Για να αποκλείσετε τη μόλυνση από ιούς και την επίθεση κακόβουλου λογισμικού, όχι μόνο θα πρέπει να αποκλείσετε εγκαίρως ανεπιθύμητα μηνύματα, αλλά και να αναφέρετε καλύτερα τους ύποπτους τομείς ή διευθύνσεις email στη Microsoft, συμβάλλοντας στην ενίσχυση του φίλτρου ανεπιθύμητης αλληλογραφίας του Outlook. Επιπλέον, εκτός από το ενσωματωμένο φίλτρο ανεπιθύμητης αλληλογραφίας, πρέπει επίσης να διατηρήσετε ένα τρομερό εργαλείο επισκευής, όπως DataNumen Outlook Repair. Έχει πολύ υψηλότερο Ανάκτηση του Outlook ποσοστό από τους αντιπάλους του.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com