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