Schimbați o întâlnire la o întâlnire în Outlook

Schimbați întâlnirile la întâlniri în Outlook

Această metodă vă va ajuta să invitați participanții la întâlnire pentru o întâlnire și să convertiți întâlnirea la o întâlnire în Outlook.

1. Treceți la vizualizarea Calendar, faceți clic dreapta pe întâlnirea pe care o veți converti la o întâlnire în Calendar, apoi selectați Invitați participanții din meniul cu clic dreapta. Vedeți captura de ecran:

2. Acum se deschide o fereastră de întâlnire cu conținutul rezervării selectate. Vă rugăm să faceți clic pe La buton. Vedeți captura de ecran:

3. În fereastra de dialog Selectați participanți și resurse, selectați contactele pe care le veți invita ca participanți, faceți clic pe Necesar/Opțional/Resurse faceți clic pe butonul OK buton. Vedeți captura de ecran de mai sus:

Notă: Ținând cont Ctrl tasta, puteți selecta mai multe contacte neadiacente făcând clic pe fiecare contact; ținând Schimba , puteți selecta mai multe contacte adiacente făcând clic pe primul contact și pe ultimul contact.

4. Acum reveniți la fereastra întâlnirii, vă rugăm să editați conținutul întâlnirii și să faceți clic pe Trimiteți butonul.

Până acum am convertit întâlnirea selectată într-o întâlnire și am trimis deja participanților specificați.

Această metodă va introduce un VBA pentru a converti întâlnirile selectate la întâlniri în Outlook. Vă rugăm să faceți următoarele:

1. Treceți la vizualizarea Calendar și faceți clic pentru a selecta întâlnirile pe care le veți converti în programare în Calendar.

2. presa Alt + F11 simultan pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

3. clic Insera > Module, și apoi lipiți mai jos codul VBA în noua fereastră a modulului.

VBA: convertiți întâlnirea la întâlniri în 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. apasă pe F5 tasta sau faceți clic pe Alerga pentru a exclude acest VBA.

Și acum toate întâlnirile selectate sunt convertite în programări în Outlook.

Ascundeți toate programările din calendar în Outlook

Ascundeți întâlnirile de naștere în calendar în Outlook