Athraigh coinne chuig cruinniú in Outlook

Cruinnithe a athrú go coinní in Outlook

Siúlfaidh an modh seo tú trí chuireadh a thabhairt do lucht freastail cruinnithe chun coinne a dhéanamh agus an coinne a thiontú go cruinniú in Outlook.

1. Aistrigh chuig amharc an Fhéilire, cliceáil ar dheis ar an gceapachán a athróidh tú go cruinniú i bhFéilire, agus ansin roghnaigh an Tabhair cuireadh do lucht freastail ón roghchlár cliceáil ar dheis. Féach an pictiúr:

2. Anois tá fuinneog cruinnithe ag oscailt le hábhar ceapacháin roghnaithe. Cliceáil le do thoil ar an Chun cnaipe. Féach an pictiúr:

3. Sa bhosca dialóige Roghnaigh Freastalaithe agus Acmhainní, roghnaigh teagmhálaithe a dtabharfaidh tú cuireadh dóibh mar lucht freastail, cliceáil ag teastáil/Roghnach/Acmhainní cnaipe de réir mar is gá duit, agus cliceáil ar an OK cnaipe. Féach an pictiúr thuas:

Nóta: Ag sealbhú an Ctrl eochair, is féidir leat teagmhálacha iolracha nach bhfuil in aice láimhe a roghnú trí gach teagmháil a chliceáil; ag coinneáil an Shift eochair, is féidir leat iliomad teagmhálacha cóngaracha a roghnú trí chliceáil ar an gcéad teagmháil agus an ceann deireanach.

4. Anois agus tú ag dul ar ais go dtí fuinneog an chruinnithe, cuir ábhar an chruinnithe in eagar agus cliceáil ar an Seol cnaipe.

Go dtí seo táimid tar éis an ceapachán roghnaithe a thiontú go cruinniú agus a sheoladh chuig lucht freastail sonraithe cheana féin.

Tabharfaidh an modh seo VBA isteach chun cruinnithe roghnaithe a thiontú go ceapacháin in Outlook. Déan mar a leanas le do thoil:

1. Aistrigh chuig amharc an Fhéilire, agus cliceáil chun na cruinnithe a athróidh tú go ceapachán san Fhéilire a roghnú.

2. Brúigh Eile + F11 eochracha ag an am céanna chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

3. cliceáil Ionsáigh > Modúil, agus ansin greamaigh faoi bhun chód VBA isteach i bhfuinneog nua an Mhodúil.

VBA: Tiontaigh an cruinniú go ceapacháin in 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. Brúigh an F5 eochair nó cliceáil ar an Rith cnaipe chun an VBA seo a eisiamh.

Agus anois déantar gach cruinniú roghnaithe a thiontú go ceapacháin in Outlook.

Folaigh gach coinne ón bhféilire in Outlook

Folaigh coinní lá breithe san fhéilire in Outlook