Αλλαγή ραντεβού σε σύσκεψη στο Outlook

Αλλαγή συναντήσεων σε ραντεβού στο Outlook

Αυτή η μέθοδος θα σας καθοδηγήσει προσκαλώντας τους συμμετέχοντες σε μια συνάντηση και θα μετατρέψετε τη συνάντηση σε μια σύσκεψη στο Outlook.

1. Μεταβείτε στην προβολή Ημερολόγιο, κάντε δεξί κλικ στη συνάντηση που θα μετατρέψετε σε σύσκεψη στο Ημερολόγιο και, στη συνέχεια, επιλέξτε το Προσκαλέστε τους συμμετέχοντες από το μενού με δεξί κλικ. Δείτε το στιγμιότυπο οθόνης:

2. Τώρα ανοίγει ένα παράθυρο σύσκεψης με το επιλεγμένο περιεχόμενο ραντεβού. Κάντε κλικ στο Προς την κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Στο παράθυρο διαλόγου Επιλογή συμμετεχόντων και πόρων, επιλέξτε επαφές που θα προσκαλέσετε ως συμμετέχοντες, κάντε κλικ στο Απαιτείται/Προαιρετικός/Υποστηρικτικό υλικό κουμπί όπως χρειάζεστε και κάντε κλικ στο OK κουμπί. Δείτε το παραπάνω στιγμιότυπο οθόνης:

Σημείωση: Κρατώντας το Ctrl κλειδί, μπορείτε να επιλέξετε πολλές μη γειτονικές επαφές κάνοντας κλικ σε κάθε επαφή. κρατώντας το αλλαγή κλειδί, μπορείτε να επιλέξετε πολλές γειτονικές επαφές κάνοντας κλικ στην πρώτη επαφή και στην τελευταία.

4. Τώρα επιστρέφετε στο παράθυρο της σύσκεψης, επεξεργαστείτε το περιεχόμενο της σύσκεψης και κάντε κλικ στο Αποστολή κουμπί.

Μέχρι στιγμής έχουμε μετατρέψει το επιλεγμένο ραντεβού σε σύσκεψη και έχουμε ήδη στείλει σε συγκεκριμένους συμμετέχοντες.

Αυτή η μέθοδος θα εισαγάγει ένα VBA για τη μετατροπή επιλεγμένων συσκέψεων σε συναντήσεις στο Outlook. Κάντε τα εξής:

1. Μεταβείτε στην προβολή Ημερολόγιο και κάντε κλικ για να επιλέξετε τις συναντήσεις που θα μετατρέψετε σε ραντεβού στο Ημερολόγιο.

2. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

3. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο νέο παράθυρο Module.

VBA: Μετατροπή σύσκεψης σε ραντεβού στο Outlook

Sub Meetings2Appointments()
Dim sWindowType As String
Dim oItem As Object

sWindowType = TypeName(Application.ActiveWindow)
Select Case sWindowType
Case "Explorer"
If Application.ActiveExplorer.Selection.Count > 0 Then
For Each oItem In Application.ActiveExplorer.Selection
Debug.Print oItem.Class
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
Next
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
End Select
Set oItem = Nothing
End Sub

Sub Meeting2Appointment(oMeeting As Outlook.AppointmentItem)
With oMeeting
' remove all recipients
Do Until .Recipients.Count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
.Save
End With
End Sub

4. Πάτα το F5 ή κάντε κλικ στο τρέξιμο κουμπί για να απαλλάξει αυτό το VBA.

Και τώρα όλες οι επιλεγμένες συσκέψεις μετατρέπονται σε συναντήσεις στο Outlook.

Απόκρυψη όλων των συναντήσεων από το ημερολόγιο στο Outlook

Απόκρυψη ραντεβού γενεθλίων στο ημερολόγιο στο Outlook