Spremenite sestanek na sestanek v programu Outlook

Spremenite sestanke na sestanke v Outlooku

Ta metoda vas bo vodila skozi povabilo udeležencev sestankov na sestanek in pretvorbo sestanka v sestanek v programu Outlook.

1. Premaknite se v pogled koledarja, z desno miškino tipko kliknite sestanek, ki ga želite pretvoriti v sestanek v koledarju, in nato izberite Povabite udeležence v meniju z desnim klikom. Oglejte si posnetek zaslona:

2. Zdaj se odpre okno sestanka z vsebino izbranega sestanka. Kliknite Da . Oglejte si posnetek zaslona:

3. V pojavnem oknu Izberite udeležence in vire izberite stike, ki jih boste povabili kot udeležence, kliknite Obvezno/neobvezno/viri po potrebi in kliknite OK . Oglejte si zgornji posnetek zaslona:

Opomba: Drži Ctrl tipko, lahko s klikom na vsak stik izberete več sosednjih stikov; držite Shift tipko, lahko izberete več sosednjih stikov, tako da kliknete prvi in ​​zadnji stik.

4. Zdaj se vrnite v okno sestanka, uredite vsebino sestanka in kliknite Pošlji gumb.

Do zdaj smo izbrani sestanek pretvorili v sestanek in ga že poslali določenim udeležencem.

Ta metoda bo uvedla VBA za pretvorbo izbranih sestankov v sestanke v Outlooku. Naredite naslednje:

1. Premaknite se na pogled koledarja in kliknite, da izberete sestanke, ki jih želite pretvoriti v sestanek v koledarju.

2. Pritisnite druga + F11 tipke hkrati, da odprete okno Microsoft Visual Basic for Applications.

3. klik Vstavi > Moduliin nato prilepite pod kodo VBA v novo okno modula.

VBA: Pretvorite sestanek v sestanke v 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. Pritisnite F5 ali kliknite Run gumb za razveljavitev tega VBA.

In zdaj so vsi izbrani sestanki pretvorjeni v sestanke v Outlooku.

Skrijte vse sestanke iz koledarja v Outlooku

Skrijte sestanke za rojstni dan v koledarju v Outlooku