Как да търсите и заменяте тема за среща в календара на Outlook?

Намирането и замяната на тема за среща в календара на Outlook е полезно, когато откриете, че някои теми трябва да бъдат заменени с едни и същи текстове в маса. Или заменете думата Копиране в полето за тема след импортиране на данни в Outlook. Тази статия ви предоставя VBA код за търсене и замяна на множество теми за срещи. Моля, прегледайте за повече подробности.

Търсете и заменете темата за среща с VBA код

Търсете и заменете темата за среща с VBA код

В този раздел можете да търсите и заменяте темата за среща с VBA код, както следва.

1. Първо трябва да зададете настройките на макросите на ниско ниво във вашия Outlook.

1) В Outlook 2010 и 2013 щракнете досие > Настроики, И в Outlook Options кликнете върху Trust Center в лявата лента, след което щракнете върху Настройки на Trust Center бутон.

в Trust Center кликнете върху Настройки на макроса в лявата лента, след което изберете Активирайте всички макроси опция в Настройки на макроса раздел. И щракнете върху OK бутон. Вижте екранна снимка:

2). В Outlook 2007, моля, щракнете Инструменти > Trust Center. В Trust Center кликнете върху Настройки на макроса в лявата лента, след което изберете Няма проверка за сигурност за макроси и щракнете върху OK бутон.

2. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

3. В Microsoft Visual Basic за приложения прозорец, щракнете два пъти, за да разгънете project1 > Обекти на Microsoft Outlook > ThisOutlookSession за да отворите редактора на 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. След изпълнение на кода, a Microsoft Outlook изскача диалогов прозорец. Щракнете върху OK бутон.

6. Във втория Microsoft Outlook диалогов прозорец, въведете текста, който искате да замените, и след това щракнете върху OK бутон.

7. В третата Microsoft Outlook диалогов прозорец, въведете текста, който искате да замените, и щракнете OK.

Забележка: Ако просто искате да премахнете всички думи „Копиране“ от темата в посочения календар, моля, оставете това поле празно.

8. Щракнете върху OK в диалоговия прозорец по-долу.

9. В Изберете папка в диалоговия прозорец изберете вашия календар под посочения имейл акаунт и след това щракнете върху OK бутон. Вижте екранна снимка:

10. След това ще се появи диалогов прозорец, за да ви информира, че подмяната е успешна. Моля, щракнете върху OK бутон.

11. След това всички текстове във вашите теми от избрания календар са заменени с новото съдържание.

---

Най-добрите инструменти за продуктивност в офиса

Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook

🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове Pro: Пакетно запазване  /  Партидно отделяне  /  Партиден компрес  /  Автоматично запазване   /  Автоматично отделяне  /  Автоматично компресиране ...

🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони   /  Увеличете продуктивността на Outlook с изгледи с раздели  /  Минимизирайте Outlook, вместо да затваряте ...

???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове  /   Антифишинг имейли  /  🕘Показване на часовата зона на подателя ...

👩🏼‍🤝‍👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли  /  Разделете група контакти на отделни групи  /  Премахнете напомнянията за рожден ден ...

Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.

Вижте повече       Безплатно сваляне      покупка