Newid apwyntiad i gyfarfod yn Outlook

Newid cyfarfodydd i apwyntiadau yn Outlook

Bydd y dull hwn yn eich arwain trwy wahodd mynychwyr cyfarfod am apwyntiad ac yn trosi'r apwyntiad yn gyfarfod yn Outlook.

1. Newid i olwg y Calendr, cliciwch ar y dde ar yr apwyntiad y byddwch chi'n ei drosi i gyfarfod yn y Calendr, ac yna dewiswch y Gwahodd Mynychwyr o'r ddewislen clicio ar y dde. Gweler y screenshot:

2. Nawr mae ffenestr cyfarfod yn agor gyda chynnwys apwyntiad dethol. Cliciwch y I botwm. Gweler y screenshot:

3. Yn y blwch deialog Dewis Mynychu ac Adnoddau, dewiswch gysylltiadau y byddwch chi'n eu gwahodd fel mynychwyr, cliciwch Angen/Dewisol/Adnoddau botwm yn ôl yr angen, a chliciwch ar y OK botwm. Gweler y screenshot uchod:

Nodyn: Cynnal y Ctrl allwedd, gallwch ddewis nifer o gysylltiadau nad ydynt yn gyfagos trwy glicio ar bob cyswllt; dal y Symud allwedd, gallwch ddewis sawl cyswllt cyfagos trwy glicio ar y cyswllt cyntaf a'r un olaf.

4. Nawr eich bod chi'n mynd yn ôl i ffenestr y cyfarfod, golygwch gynnwys y cyfarfod a chliciwch ar y anfon botwm.

Hyd yn hyn rydym wedi trosi'r apwyntiad a ddewiswyd yn gyfarfod a'i anfon at fynychwyr penodol eisoes.

Bydd y dull hwn yn cyflwyno VBA i drosi cyfarfodydd dethol yn apwyntiadau yn Outlook. Gwnewch fel a ganlyn:

1. Newid i olwg y Calendr, a chlicio i ddewis y cyfarfodydd y byddwch chi'n eu trosi i'w penodi yn y Calendr.

2. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor ffenestr Microsoft Visual Basic for Applications.

3. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y Modiwl newydd.

VBA: Trosi cyfarfod i apwyntiadau yn 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. Gwasgwch y F5 allwedd neu cliciwch y Run botwm i esgusodi'r VBA hwn.

Ac yn awr mae'r holl gyfarfodydd a ddewiswyd yn cael eu trosi'n apwyntiadau yn Outlook.

Cuddio pob apwyntiad o'r calendr yn Outlook

Cuddio apwyntiadau pen-blwydd yn y calendr yn Outlook