Maaaring napansin mo na ang mga nakanselang pagpupulong ay mananatili pa rin sa iyong kalendaryo. Hinihiling nito sa iyo na manu-manong alisin ito, na lubhang nakakaabala. Kaya, tiyak na hilingin mo na sana ay awtomatikong maalis ng Outlook ang mga nakanselang pagpupulong. Tutulungan ka ng post na ito na mapagtanto ito.
Sa totoo lang, ang aking nakaraang artikulo - "Paano Tanggalin ang Mga Nakanselang Pagpupulong mula sa Matalinong Kalendaryo ng Mataktika” ay nagpakilala ng ilang mga tip upang manual na tanggalin ang mga kinanselang pulong. Gayundin, sa huling seksyon ng artikulong iyon, mayroong isang paraan upang hayaang awtomatikong alisin ng Outlook ang mga nakanselang pulong. Ngunit ang paraang iyon ay magbibigay-daan din sa Outlook na awtomatikong tanggapin ang lahat ng imbitasyon sa pagpupulong. Hindi ito ang gusto mo minsan. Samakatuwid, dito ipapakita namin sa iyo ang isa pang paraan, na medyo simple at mas maginhawa.
Awtomatikong Alisin ang Mga Nakanselang Pagpupulong mula sa Kalendaryo
- Sa pinakasimula pa lang, simulan ang iyong programa sa Outlook.
- Pagkatapos, dapat mong pindutin ang "Alt + F11" key buttons sa Outlook window.
- Susunod, sa kasunod na window ng editor ng VBA, kailangan mong i-double click ang proyektong “ThisOutlookSession” sa kaliwang bahagi.
- Kasunod, dapat mong kopyahin ang sumusunod na VBA code sa proyektong ito.
Private WithEvents objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
Set objItems = objInbox.Items
End Sub
'Occurs when the meeting cancellation arrives in your Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
Dim objCalendar As Outlook.Folder
Dim objAppointments As Outlook.Items
Dim i As Long
Dim objMeeting As Outlook.AppointmentItem
If TypeOf Item Is MeetingItem Then
If Left(LCase(Item.Subject), 9) = "canceled:" Then
'Remove canceled meeting
Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
Set objAppointments = objCalendar.Items
For i = objAppointments.count To 1 Step -1
Set objAppointment = objAppointments.Item(i)
If Left(objAppointment.Subject, 9) = "Canceled:" Then
objAppointment.Delete
End If
Next
End If
End If
End Sub
- Pagkatapos nito, maaari kang magtalaga ng isang digital na sertipiko sa proyektong ito. I-click ang “Tools” at piliin ang “Digital Signature”. Pagkatapos ay sundin ang wizard upang makumpleto ito.
- Sa ibang pagkakataon, isara ang window na "Microsoft Visual Basic for Applications" at tumungo upang baguhin ang iyong mga setting ng macro sa Outlook upang pahintulutan ang mga naka-sign na macro.
- Kalaunan, maaari mong i-restart ang iyong Outlook upang paganahin ang bagong proyekto ng VBA.
- Simula noon, sa tuwing may darating na pagkansela ng pulong sa iyong Inbox, magsisimula ang macro at awtomatikong aalisin ang nakanselang pulong mula sa kalendaryo.
Ganap na Gamitin ang Inbox Repair Tool
Maraming mga gumagamit ng Outlook ang maaaring sinalanta ng iba't ibang isyu sa kanilang Outlook, kabilang ang mga maliliit na malfunction, mga mensahe ng error, at biglaang hindi tumugon pati na rin ang mga malubhang pinsala, atbp. Sa totoo lang, para sa maliliit na isyu, ang Outlook ay may inbuilt na tool sa pag-aayos - Scanpst, na madaling ayusin ang mga ito. Sa gayon, kapag may mga problema sa Outlook, magagamit mo ito upang kumuha ng shot. Kung nabigo ito, maaari kang magpatuloy sa tulong ng isang karanasan at kahanga-hangang tool ng third party, gaya ng DataNumen Outlook Repair.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa