Zmień termin na spotkanie w programie Outlook

Zmień spotkania na terminy w Outlooku

Ta metoda przeprowadzi Cię przez proces zapraszania uczestników spotkania na spotkanie i przekonwertuje termin na spotkanie w programie Outlook.

1. Przejdź do widoku Kalendarza, kliknij prawym przyciskiem termin, który chcesz przekonwertować na spotkanie w Kalendarzu, a następnie wybierz Zaproś uczestników z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

2. Teraz otwiera się okno spotkania z treścią wybranego spotkania. Proszę kliknąć Do przycisk. Zobacz zrzut ekranu:

3. W wyskakującym oknie dialogowym Wybierz uczestników i zasoby wybierz kontakty, które zaprosisz jako uczestników, kliknij Wymagane/Opcjonalnie/Zasoby według potrzeb i kliknij przycisk OK przycisk. Zobacz zrzut ekranu powyżej:

Uwaga: Trzymając Ctrl klawisz, możesz wybrać wiele nieprzylegających kontaktów, klikając każdy kontakt; trzymając Shift możesz wybrać wiele sąsiadujących kontaktów, klikając pierwszy i ostatni kontakt.

4. Teraz wróć do okna spotkania, edytuj treść spotkania i kliknij Wyślij przycisk.

Do tej pory przekonwertowaliśmy wybrane spotkanie na spotkanie i wysłaliśmy już do określonych uczestników.

Ta metoda wprowadzi VBA do konwersji wybranych spotkań na terminy w Outlooku. Wykonaj następujące czynności:

1. Przejdź do widoku kalendarza i kliknij, aby wybrać spotkania, które zostaną przekonwertowane na spotkania w Kalendarzu.

2. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć okno Microsoft Visual Basic for Applications.

3. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego okna modułu.

VBA: Konwertuj spotkanie na spotkania w Outlooku

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. wciśnij F5 lub kliknij run przycisk, aby zwolnić ten VBA.

A teraz wszystkie wybrane spotkania są konwertowane na spotkania w Outlooku.

Ukryj wszystkie spotkania z kalendarza w Outlooku

Ukryj terminy urodzin w kalendarzu w Outlooku