Skip to main content

Conas ábhar ceapacháin a chuardach agus a athsholáthar i bhféilire Outlook?

Tá sé úsáideach ábhar ceapacháin a aimsiú agus a athsholáthar i bhféilire Outlook nuair a aimsíonn tú go gcaithfear téacsanna céanna a chur in ionad roinnt ábhar. Nó cuir an focal Cóipeáil in ionad an réimse ábhair tar éis sonraí a iompórtáil in Outlook. Soláthraíonn an t-alt seo cód VBA duit chun ábhair cheapacháin iolracha a chuardach agus a athsholáthar. Brabhsáil le do thoil chun tuilleadh sonraí a fháil.

Cuardaigh agus cuir cód VBA in ionad ábhar coinne

Cluaisín Oifige - Cumasaigh Eagarthóireacht agus Brabhsáil Tábáilte i Microsoft Office, Ag Cur le hObair
Kutools le haghaidh Outlook - Treisiú Outlook le 100+ Gnéithe Casta le haghaidh Éifeachtúlacht Superior
Treisigh do Outlook 2021 - 2010 nó Outlook 365 leis na hardghnéithe seo. Bain sult as triail chuimsitheach 60-lá saor in aisce agus ardaigh do thaithí ríomhphoist!

mboilgeog cheart gorm saigheadCuardaigh agus cuir cód VBA in ionad ábhar coinne

Sa chuid seo, is féidir leat cód ceapacháin a chuardach agus a athsholáthar le cód VBA mar seo a leanas.

1. Ar dtús ní mór duit socruithe macra a shocrú íseal i do Outlook.

1) In Outlook 2010 agus 2013, cliceáil Comhad > Roghanna. Agus sa Roghanna Outlook dialóg, cliceáil Ionad Iontaobhas sa bharra ar chlé, ansin cliceáil ar an Socruithe Ionad Iontaobhais cnaipe.

sa Ionad Iontaobhas dialóg, cliceáil Socruithe Macra sa bharra ar chlé, ansin roghnaigh Cumasaigh gach macra rogha sa Socruithe Macra alt. Agus cliceáil ar an OK cnaipe. Féach an pictiúr:

2). In Outlook 2007, cliceáil le do thoil uirlisí > Ionad Iontaobhas. Sa an Ionad Iontaobhas dialóg, cliceáil Socruithe Macra sa bharra ar chlé, ansin roghnaigh Gan aon seiceáil slándála le haghaidh macraí rogha agus cliceáil ar an OK cnaipe.

2. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil faoi dhó chun an project1 > Microsoft Outlook Object > ThisOutlookSession chun eagarthóir VBA a oscailt. Féach an pictiúr:

4. Cóipeáil agus greamaigh an cód VBA seo a leanas isteach san eagarthóir VBA. Agus ansin brúigh an F5 eochair chun an cód a rith.

VBA: ábhar coinne a aimsiú agus a athsholáthar

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. Tar éis an cód a rith, a Microsoft Outlook tagann bosca dialóige suas. Cliceáil ar an OK cnaipe.

6. Sa dara ceann Microsoft Outlook bosca dialóige, cuir isteach an téacs ar mhaith leat a athsholáthar, agus ansin cliceáil ar an OK cnaipe.

7. Sa tríú Microsoft Outlook bosca dialóige, cuir isteach an téacs is maith leat a athsholáthar, agus cliceáil OK.

nótaí: Mura dteastaíonn uait ach gach focal “Cóipeáil” a bhaint den ábhar san fhéilire sonraithe, fág an bosca seo bán le do thoil.

8. Cliceáil ar an OK cnaipe sa bhosca dialóige thíos.

9. Sa Roghnaigh Fillteán bosca dialóige, roghnaigh d’fhéilire faoin gcuntas ríomhphoist sonraithe, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

10. Ansin popfaidh bosca dialóige chun a chur in iúl duit go bhfuil ag éirí go maith leis an athsholáthar. Cliceáil le do thoil ar an OK cnaipe.

11. Agus ansin tá an t-ábhar nua curtha in ionad na dtéacsanna go léir i d’ábhair féilire roghnaithe.


Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Many thanks. I think it is the 1st time, I copied and executed your macro "as is" without any error or any need for changes !
This comment was minimized by the moderator on the site
Buongiorno,
è possibile specificare la cartella posizione calendario (es.: \\mail@dominio\Calendario) senza far apparire la richiesta?
Grazie
Hi,
is it possible to specify the folder location calendar (ex .: \\ mail@domain\Calendar) without making the request appear?

Thank you


This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Worked fantastically! Thank you so much!!!
This comment was minimized by the moderator on the site
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)
This comment was minimized by the moderator on the site
Thank you! How can we modify it to always use the same calendar, and not show the first pop-up? thank you
This comment was minimized by the moderator on the site
Worked just fine really good It took me some time to understand that this is case sensitive, but that is very good. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations