Ինչպե՞ս որոնել և փոխարինել նշանակման թեման Outlook օրացույցում:

Outlook- ի օրացույցում գտնել և փոխարինել նշանակման թեման օգտակար է, երբ գտնում եք, որ որոշ առարկաներ պետք է փոխարինվեն զանգվածաբար նույն տեքստերով: Կամ Outlook- ում տվյալների ներմուծումից հետո թեմայի դաշտում փոխարինեք Պատճենել բառը: Այս հոդվածը ձեզ տրամադրում է VBA կոդ ՝ նշանակման բազմաթիվ առարկաներ որոնելու և փոխարինելու համար: Խնդրում ենք թերթել ավելի մանրամասն:

Փնտրեք և փոխարինեք նշանակման թեման VBA կոդով

Փնտրեք և փոխարինեք նշանակման թեման VBA կոդով

Այս բաժնում կարող եք որոնել և փոխարինել նշանակման թեման VBA կոդով հետևյալ կերպ.

1. Նախ, ձեր Outlook- ում պետք է մակրո պարամետրերը դնել ցածր:

1) Outlook 2010-ում և 2013-ում կտտացրեք Ֆայլ > Ընտրանքներ. Եվ է Outlook տարբերակները երկխոսության վանդակում, սեղմեք Վստահության կենտրոն ձախ բարում, ապա կտտացրեք Վստահության կենտրոնի կարգավորումները կոճակը:

Է Վստահության կենտրոն երկխոսության վանդակում, սեղմեք Մակրո կարգավորումներ ձախ բարում, ապա ընտրեք Միացնել բոլոր մակրոները տարբերակը Մակրո կարգավորումներ Բաժին. Եվ կտտացրեք OK կոճակ Տեսեք,

2) Outlook 2007-ում սեղմեք Գործիքներ > Վստահության կենտրոն, Մեջ Վստահության կենտրոն երկխոսության վանդակում, սեղմեք Մակրո կարգավորումներ ձախ բարում, ապա ընտրեք Մակրոների անվտանգության ստուգում չկա ընտրեք եւ կտտացրեք OK կոճակը:

2. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ՝ ընդլայնելու համար project1 > Microsoft Outlook օբյեկտներ > ԱյսOutlookSession- ը բացել VBA խմբագիրը: Տեսեք,

4. Պատճենեք և տեղադրեք հետևյալ VBA կոդը VBA խմբագրի մեջ: Եվ հետո սեղմեք F5 ծածկագիրը գործելու համար:

VBA. Գտնել և փոխարինել նշանակման թեման

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. Կոդը գործարկելուց հետո, ա Microsoft Outlook երկխոսության պատուհանը բացվում է: Սեղմիր OK կոճակը:

6. Երկրորդում Microsoft Outlook երկխոսության տուփ, մուտքագրեք տեքստը, որը ցանկանում եք փոխարինել, և այնուհետև կտտացրեք այն OK կոճակը:

7. Երրորդում Microsoft Outlook երկխոսության տուփ, մուտքագրեք այն տեքստը, որը ցանկանում եք փոխարինել, և կտտացրեք OK.

ՆշումԵթե ​​դուք պարզապես ցանկանում եք հեռացնել բոլոր «Պատճենել» բառերը թեմայից նշված օրացույցում, խնդրում ենք այս դաշտը թողնել դատարկ:

8. Սեղմեք OK կոճակը ներքևի երկխոսության դաշտում:

9. Մեջ Ընտրեք թղթապանակը երկխոսության տուփ, ընտրեք ձեր օրացույցը նշված էլփոստի հաշվի տակ և այնուհետև կտտացրեք այն OK կոճակ Տեսեք,

10. Դրանից հետո կհայտնվի երկխոսության տուփ, որը կտեղեկացնի ձեզ, որ փոխարինումը հաջող է: Խնդրում ենք սեղմել OK կոճակը:

11. Եվ այնուհետև ձեր ընտրած օրացույցի բոլոր տեքստերը փոխարինվել են նոր բովանդակությամբ:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ Pro: Խմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

Կարդալ ավելին       Անվճար ներբեռնում      Ձեռք բերել