Як шукати та замінювати тему зустрічі в календарі Outlook?

Знайти та замінити тему зустрічі в календарі Outlook корисно, коли ви виявите, що деякі теми потрібно замінити однаковими текстами масово. Або замініть слово «Копіювати» у полі теми після імпорту даних у Outlook. У цій статті наведено код VBA для пошуку та заміни декількох тем зустрічей. Будь ласка, перегляньте докладнішу інформацію.

Шукайте та замінюйте тему зустрічі кодом VBA

Шукайте та замінюйте тему зустрічі кодом VBA

У цьому розділі ви можете шукати та замінювати тему зустрічі кодом VBA наступним чином.

1. По-перше, у Outlook потрібно встановити низькі налаштування макросів.

1) У програмах Outlook 2010 та 2013 натисніть філе > Опції. І в Параметри Outlook діалогове вікно натисніть кнопку Центр безпеки на лівій панелі, а потім клацніть на Налаштування центру довіри кнопки.

У Центр безпеки діалогове вікно натисніть кнопку Налаштування макросу на лівій панелі, а потім виберіть Увімкнути всі макроси опція в Налаштування макросу розділ. І натисніть OK кнопку. Дивіться знімок екрана:

2). У програмі Outlook 2007 натисніть Tools > Центр безпеки, в Центр безпеки діалогове вікно натисніть кнопку Налаштування макросу на лівій панелі, а потім виберіть Немає перевірки безпеки на макроси та натисніть кнопку 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 Перспективи спливає діалогове вікно. Клацніть на OK кнопки.

6 У другому Microsoft Перспективи діалогове вікно, введіть текст, який ви хочете замінити, а потім клацніть на OK кнопки.

7. У третьому Microsoft Перспективи діалогове вікно, введіть текст, який ви хочете замінити, і натисніть OK.

примітки: Якщо ви просто хочете видалити всі слова "Копіювати" з теми у зазначеному календарі, залиште це поле порожнім.

8. Натисніть OK в діалоговому вікні нижче.

9 В Вибір папки діалоговому вікні, виберіть календар під зазначеним обліковим записом електронної пошти, а потім натисніть кнопку OK кнопку. Дивіться знімок екрана:

10. Потім з’явиться діалогове вікно з повідомленням про те, що заміна успішно виконана. Клацніть на OK кнопки.

11. А потім усі тексти ваших предметів вибраного календаря замінено новим змістом.

---

Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення Pro: Пакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

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

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

Детальніше       Безкоштовне завантаження      Купити