Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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 datblygedig 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 > ThisOutlookSession 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
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dominic · 4 years ago
    I always get a Syntax Error right at the start on the 2nd line at Dim oApp As Outlook.Application. No idea what's wrong :-(

    I try to run the VB Script in Outlook 2016 (O365 Version) on Windows 10.
  • To post as a guest, your comment is unpublished.
    Aaron · 4 years ago
    It seems I'm unable to do this for non-local, or shared calendars. Does anyone know how to do it for shared calendars? I'm set as "owner" for permission level of the shared calendar, but it won't show up in my list of folders when I run the script, only my locally created calendars show up.
  • To post as a guest, your comment is unpublished.
    LordJair · 5 years ago
    Worked fantastically! Thank you so much!!!
    • To post as a guest, your comment is unpublished.
      Dale R · 4 years ago
      This should do it for you. Add these 3 lines immediately after line 8 (Set oApp = Outlook.Application).

      Dim nmSpace As Outlook.NameSpace
      Set nmSpace = oApp.GetNamespace("MAPI")
      Set oCalFolder = nmSpace.GetDefaultFolder(olFolderCalendar)
  • To post as a guest, your comment is unpublished.
    Armin · 5 years ago
    Thank you!
    How can we modify it to always use the same calendar, and not show the first pop-up?

    thank you
  • To post as a guest, your comment is unpublished.
    Amos · 5 years ago
    Worked just fine
    really good
    It took me some time to understand that this is case sensitive, but that is very good.

    Thank you