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

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

Tab Swyddfa - Galluogi Golygu a Phori Tabbed yn y Swyddfa, a Gwneud Gwaith yn Haws Orau ...
Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch Pwerus i Microsoft Outlook
  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl rheolau; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangos neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst ar unwaith; Auto Ychwanegu Cyfarchiad wrth ateb; Auto Ychwanegu Dyddiad ac Amser yn destun ...
  • Offer Ymlyniad: Auto Detach, Cywasgu Pawb, Ail-enwi Pawb, Auto Save All ... Adroddiad Cyflym, Cyfrif Postiau Dethol, Tynnwch y Post a Chysylltiadau Dyblyg ...
  • Bydd mwy na 100 o nodweddion uwch datrys y rhan fwyaf o'ch problemau yn Outlook 2010-2019 a 365. Nodweddion llawn treial am ddim 60 diwrnod.

swigen dde glas saethChwilio 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.


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi gweithio'n iawn yn dda iawn Cymerodd beth amser i mi ddeall bod hyn yn sensitif i achosion, ond mae hynny'n dda iawn. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Sut allwn ni ei addasu i ddefnyddio'r un calendr bob amser, a pheidio â dangos y ffenestr naid gyntaf? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi gweithio'n wych! Diolch yn fawr iawn!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dylai hyn ei wneud i chi. Ychwanegwch y llinellau 3 hyn yn syth ar ôl llinell 8 (Gosod oApp = Outlook.Application). Dim nmSpace Fel Set Outlook.NameSpace nmSpace = oApp.GetNamespace ("MAPI") Gosod oCalFolder = nmSpace.GetDefaultFolder(olFolderCalendar)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ymddangos nad wyf yn gallu gwneud hyn ar gyfer calendrau nad ydynt yn lleol neu a rennir. A oes unrhyw un yn gwybod sut i wneud hynny ar gyfer calendrau a rennir? Rwyf wedi fy gosod fel "perchennog" ar gyfer lefel caniatâd y calendr a rennir, ond ni fydd yn ymddangos yn fy rhestr o ffolderi pan fyddaf yn rhedeg y sgript, dim ond fy nghalendrau a grëwyd yn lleol sy'n dangos i fyny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf bob amser yn cael Gwall Cystrawen yn iawn ar y dechrau ar yr 2il linell yn Dim oApp Fel Outlook.Application. Dim syniad beth sy'n bod :-(

Rwy'n ceisio rhedeg y Sgript VB yn Outlook 2016 (Fersiwn O365) ar Windows 10.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Buongiorno,
è possibile specificare la cartella posizione calendario (es.: \\mail@dominio\Calendario) senza far apparire la richiesta?
Diolch
Heia,
a yw'n bosibl nodi'r calendr lleoliad ffolder (ex .: \\ mail@domain\Calendar) heb wneud i'r cais ymddangos?

Diolch yn fawr


Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr. Rwy'n meddwl mai dyma'r tro 1af, fe wnes i gopïo a gweithredu'ch macro "fel y mae" heb unrhyw gamgymeriad nac unrhyw angen am newidiadau!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir