Note: The other languages of the website are Google-translated. Back to English

Outlook: Conas cruinniú cealaithe a choinneáil i bhféilire mar eagraí?

In Outlook, mar eagraí cruinnithe, nuair a chuireann tú an cruinniú ar ceal, scriosfar an cruinniú go huathoibríoch ón bhféilire. I gcásanna áirithe, b’fhéidir gur mhaith leat na cruinnithe cealaithe a choinneáil san fhéilire chun roinnt marcanna a dhéanamh. Mar sin féin, níl aon ghnéithe ionsuite in Outlook ar féidir leo an post seo a láimhseáil. Sa rang teagaisc seo, soláthraíonn sé dhá chód VBA chun an cruinniú a choinneáil mar choinne agus é ar ceal.

Cóid VBA chun cruinniú cealaithe a chóipeáil mar choinne


Cóid VBA chun cruinniú cealaithe a chóipeáil mar choinne

Seo dhá chód chun an cruinniú a chur ar ceal agus é a chóipeáil agus a ghreamú mar choinne ag an am céanna.

Tabhair faoi deara: sula ndéanann tú an cód a chumasú, déan cinnte go ndéantar an dá rogha seo a sheiceáil:

Cumasaigh Outlook, cliceáil Comhad > Roghanna, i bhfuinneog Roghanna Outlook, cliceáil Ionad Iontaobhas cluaisín, agus cliceáil Socruithe Ionad Iontaobhais, ansin i bhfuinneog an Ionaid Iontaobhais, cliceáil Socruithe Macra tab, seiceáil Cumasaigh gach macraí (ní mholtar; is féidir cód a d’fhéadfadh a bheith contúirteach a rith) agus Cuir socruithe slándála macra ar bhreiseáin suiteáilte roghanna. Cliceáil OK > OK na fuinneoga a dhúnadh. Atosaigh Ionchas.

doc coinnigh an cruinniú i bhféilire 1

doc coinnigh an cruinniú i bhféilire 2

1. Swift go Outlook Calendar view, agus roghnaigh an cruinniú gur mian leat Brúigh a chur ar ceal Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a chumasú.

2. cliceáil Ionsáigh > Modúil chun modúl bán nua a chur isteach. Ansin cóipeáil agus greamaigh an cód thíos leis.

Cód: Cóipeáil cruinniú mar choinne agus cuir ar ceal é

Sub CopyMeetingAsAppointmentBeforeCancel()
'UpdatebyExtendoffice20221129
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move Application.ActiveExplorer.CurrentFolder
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

doc coinnigh an cruinniú i bhféilire 3

3. cliceáil Rith cnaipe nó brúigh F5 eochair, anois tá an cruinniú roghnaithe curtha ar ceal agus coinne nua darb ainm Cancled & subjet.

doc coinnigh an cruinniú i bhféilire 4

Más mian leat an cruinniú a chóipeáil agus a ghreamú mar choinne i bhféilire eile agus ansin an cruinniú a chur ar ceal, bain úsáid as an gcód thíos:

Cód: Cóipeáil cruinniú mar choinne i bhféilire eile agus cuir ar ceal é

Sub CopyMeetingAsAppointmentToCalenderBeforeCancel()
'Updatebyextendoffice20221129
Dim xDestCalendar As Outlook.MAPIFolder
Dim xNameSpace As Outlook.NameSpace
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xNameSpace = Application.GetNamespace("MAPI")
Set xDestCalendar = xNameSpace.PickFolder
If xDestCalendar.DefaultItemType <> olAppointmentItem Then
  MsgBox "Please Select calendar folder. ", vbOKOnly + vbInformation, "Kutools for Outlook"
  Exit Sub
End If
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move xDestCalendar
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xDestCalendar = Nothing
Set xNameSpace = Nothing
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

cliceáil Rith cnaipe nó brúigh F5 eochair, a Roghnaigh Fillteán dialóg pop amach chun tú a roghnú fillteán féilire chun an ceapachán a ghreamú, ansin cliceáil OK.

doc coinnigh an cruinniú i bhféilire 5

Anois tá an cruinniú curtha ar ceal agus é a chóipeáil agus a ghreamú mar choinne san fhillteán féilire a roghnaíonn tú.

doc coinnigh an cruinniú i bhféilire 6


Kutools for Outlook - Tugann sé 100 Ardghné go Outlook, agus Déan Obair i bhfad níos éasca!

  • Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir saincheaptha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
  • Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach ceann a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
  • Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost i soicindí; Beannacht Auto Cuir leis nuair a thabharfar freagra; Cuir Dáta leis san ábhar ...
  • Uirlisí Ceangail: Bainistigh Gach Ceangaltán i ngach Ríomhphost, Auto Dícheangail, Comhbhrú Gach, Athainmnigh Uile, Sábháil Gach ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe...
  • Ríomhphoist Cumhachtacha Junk de réir saincheaptha; Bain Ríomhphoist agus Teagmhálacha Dúblacha... Cuir ar do chumas déanamh níos cliste, níos gasta agus níos fearr in Outlook.
kutools lámhaigh dearcadh kutools tab 1180x121
kutools lámhaigh dearcadh kutools móide cluaisín 1180x121
 
Sórtáil tuairimí de réir
Comments (0)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Níl aon tráchtanna curtha suas anseo go fóill

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL