Sut i chwilio a disodli pwnc apwyntiad yng nghalendr Outlook?

Mae dod o hyd i bwnc apwyntiad a'i ddisodli yng nghalendr Outlook yn ddefnyddiol pan welwch fod angen disodli'r rhai testunau â'r un testunau mewn màs. Neu disodli'r gair Copi yn y maes pwnc ar ôl mewnforio data yn Outlook. Mae'r erthygl hon yn darparu cod VBA i chi chwilio a disodli pynciau apwyntiad lluosog. Porwch am fwy o fanylion.

Chwilio a disodli pwnc apwyntiad gyda chod VBA

Chwilio a disodli pwnc apwyntiad gyda chod VBA

Yn yr adran hon, gallwch chwilio a disodli pwnc apwyntiad gyda chod VBA fel a ganlyn.

1. Yn gyntaf mae angen i chi osod gosodiadau macro yn isel yn eich Camre.

1) Yn Outlook 2010 a 2013, cliciwch Ffeil > Dewisiadau. Ac yn y Dewisiadau Outlook blwch deialog, cliciwch Canolfan yr Ymddiriedolaeth yn y bar chwith, yna cliciwch ar y Gosodiadau Canolfan Ymddiriedolaeth botwm.

Yn y Canolfan yr Ymddiriedolaeth blwch deialog, cliciwch Gosodiadau Macro yn y bar chwith, yna dewiswch Galluogi pob macros opsiwn yn y Gosodiadau Macro adran. A chliciwch ar y OK botwm. Gweler y screenshot:

2). Yn Outlook 2007, cliciwch offer > Canolfan yr Ymddiriedolaeth. Yn y Canolfan yr Ymddiriedolaeth blwch deialog, cliciwch Gosodiadau Macro yn y bar chwith, yna dewiswch Dim gwiriad diogelwch ar gyfer macros opsiwn a chliciwch ar y OK botwm.

2. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith i ehangu'r project1 > Gwrthrychau Microsoft Outlook > SesiwnOutlook i agor golygydd VBA. Gweler y screenshot:

4. Copïwch a gludwch y cod VBA canlynol i'r golygydd VBA. Ac yna pwyswch y F5 allwedd i redeg y cod.

VBA: dod o hyd i bwnc apwyntiad a'i ddisodli

Sub FindReplaceAppointment()
	Dim oApp As Outlook.Application
	Dim oCalFolder As Outlook.MAPIFolder
	Dim oAppt As Outlook.AppointmentItem
	Dim sOldText As String
	Dim sNewText As String
	Dim iCalChangedCount As Integer
	Set oApp = Outlook.Application
	MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
	sOldText = InputBox("What is the text string that you would like to replace?")
	sNewText = InputBox("With what would you like to replace it?")
	' Check to be sure a Calendar folder was selected
	Do
	If Not (oCalFolder Is Nothing) Then
		If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
	End If
	MsgBox ("Please select a calendar folder from the following list.")
	Set oCalFolder = Application.Session.PickFolder
	On Error GoTo ErrHandler:
Loop Until oCalFolder.DefaultItemType = olAppointmentItem
' Loop through appointments in calendar, change text where necessary, keep count
iCalChangedCount = 0
For Each oAppt In oCalFolder.Items
	If InStr(oAppt.Subject, sOldText) <> 0 Then
		Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
		oAppt.Subject    = Replace(oAppt.Subject, sOldText, sNewText)
		oAppt.Save
		iCalChangedCount = iCalChangedCount + 1
	End If
Next
' Display results and clear table
MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
Set oAppt = Nothing
Set oCalFolder = Nothing
Exit Sub
	ErrHandler:
	MsgBox ("Macro terminated.")
End Sub

5. Ar ôl rhedeg y cod, a Microsoft Outlook blwch deialog yn ymddangos. Cliciwch y OK botwm.

6. Yn yr ail Microsoft Outlook blwch deialog, nodwch y testun yr hoffech ei ddisodli, ac yna cliciwch ar y OK botwm.

7. Yn y trydydd Microsoft Outlook blwch deialog, nodwch y testun yr ydych yn hoffi ei ddisodli, a chlicio OK.

Nodyn: Os ydych chi am dynnu pob gair “Copi” o'r pwnc yn y calendr penodedig yn unig, gadewch y blwch hwn yn wag.

8. Cliciwch ar y OK botwm yn y blwch deialog isod.

9. Yn y Dewis Ffolder blwch deialog, dewiswch eich calendr o dan y cyfrif e-bost penodedig, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

10. Yna bydd blwch deialog yn ymddangos i'ch hysbysu bod yr un newydd yn llwyddiannus. Cliciwch y OK botwm.

11. Ac yna mae'r cynnwys newydd wedi disodli'r holl destunau yn eich pynciau o galendr dethol.

---

Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau Pro: Arbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

Darllenwch fwy       Lawrlwythiad Am Ddim      prynu