Změňte schůzku na schůzku v Outlooku

Změňte schůzky na schůzky v Outlooku

Tato metoda vás provede pozváním účastníků schůzky na schůzku a převedením schůzky na schůzku v aplikaci Outlook.

1. Přejděte do zobrazení Kalendář, klepněte pravým tlačítkem myši na událost, kterou převedete na schůzku v Kalendáři, a poté vyberte ikonu Pozvěte účastníky z nabídky pravého tlačítka myši. Viz screenshot:

2. Nyní se otevírá okno schůzky s obsahem vybrané schůzky. Klikněte prosím na Na knoflík. Viz screenshot:

3. V rozbalovacím dialogovém okně Vybrat účastníky a zdroje vyberte kontakty, které pozvete jako účastníky, klepněte na Požadovaný/volitelný/Zdroje podle potřeby a klikněte na OK knoflík. Viz snímek obrazovky výše:

Poznámka: Podržte tlačítko Ctrl klíč, kliknutím na každý kontakt můžete vybrat více nesousedících kontaktů; drží směna klíč, můžete vybrat více sousedních kontaktů kliknutím na první kontakt a poslední kontakt.

4. Nyní se vraťte zpět do okna schůzky, upravte obsah schůzky a klikněte na ikonu Poslat .

Zatím jsme vybranou schůzku převedli na schůzku a již jsme ji odeslali konkrétním účastníkům.

Tato metoda zavede VBA pro převod vybraných schůzek na schůzky v aplikaci Outlook. Postupujte prosím následovně:

1. Přejděte do zobrazení Kalendář a klepnutím vyberte schůzky, které převedete na schůzku v Kalendáři.

2. lis Další + F11 současně otevřete okno Microsoft Visual Basic pro aplikace.

3. cvaknutí Vložit > Modula poté vložte do nového okna modulu pod kód VBA.

VBA: Převést schůzku na schůzky v aplikaci 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. zmáčkni F5 klíč nebo klikněte na Běh tlačítko pro vyloučení tohoto VBA.

A nyní jsou všechny vybrané schůzky převedeny na schůzky v Outlooku.

Skrýt všechny schůzky z kalendáře v Outlooku

Skrýt schůzky k narozeninám v kalendáři v Outlooku