Как да намерите и замените текст на тема в съобщения или задачи в Outlook?
В Outlook, ако има няколко теми на съобщения или теми на задачи, които трябва да бъдат заменени с посочения от вас текст, разбира се, можете да ги промените една по една, но имате ли някакъв бърз начин да завършите тази работа наведнъж в Outlook?
Намерете и заменете текст на тема в множество съобщения с помощта на VBA код
Намерете и заменете текст на темата в множество задачи с помощта на VBA код
Намерете и заменете текст на тема в множество съобщения с помощта на VBA код
Намерете конкретния текст и го заменете с друг в няколко теми на съобщение, кодът VBA по-долу може да ви направи услуга, моля, изпълнете следните стъпки:
1. Изберете имейлите, които искате да намерите и заменете текста на темата, след което задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2, След това кликнете върху Поставете > Модули, копирайте и поставете кода по-долу в отворения празен модул, вижте екранната снимка:
VBA код: Намерете и заменете текста на темата в множество съобщения:
Option Explicit
Sub FindAndReplaceInSubject()
Dim xItem As Object
Dim xNewSubject As String
Dim xMailItem As MailItem
Dim xExplorer As Explorer
Dim i As Integer
On Error Resume Next
Set xExplorer = Outlook.Application.ActiveExplorer
For i = xExplorer.Selection.Count To 1 Step -1
Set xItem = xExplorer.Selection.Item(i)
If xItem.Class = olMail Then
Set xMailItem = xItem
With xMailItem
xNewSubject = Replace(.Subject, "kte", "Kutools for Excel")
.Subject = xNewSubject
.Save
End With
End If
Next
End Sub
Забележка: В горния код: xNewSubject = Replace(.Subject, "kte", "Kutools за Excel")"kte” е старият текст, който искате да намерите, а „Kutools за Excel” е новият текст, с който искате да замените. Моля, променете ги според вашите нужди.
3. След това натиснете F5 ключ за изпълнение на този код и специфичният текст в темите на съобщението е заменен с новия текст, както ви е необходим, вижте екранната снимка:
Намерете и заменете текст на темата в множество задачи с помощта на VBA код
Ако трябва да намерите и замените текста на темата в задачи, следният VBA код също може да ви помогне.
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2, След това кликнете върху Поставете > Модули, копирайте и поставете кода по-долу в отворения празен модул, вижте екранната снимка:
VBA код: Намерете и заменете текста на темата във всички задачи:
Option Explicit
Sub FindReplaceTextsInAllTaskSubjects()
Dim xPane As NavigationPane
Dim xModule As TasksModule
Dim xGroup As NavigationGroup
Dim xNavFolder As NavigationFolder
Dim xTaskItem As Outlook.TaskItem
Dim i, k As Integer
Dim xFindStr, xReplaceStr As String
Dim xTotalCount As Long
On Error Resume Next
xFindStr = InputBox("Type the words to find:", "Kutools for Outlook", xFindStr)
If Len(Trim(xFindStr)) = 0 Then Exit Sub
xReplaceStr = InputBox("Type the words to replace:", "Kutools for Outlook", xReplaceStr)
If Len(Trim(xReplaceStr)) = 0 Then Exit Sub
xTotalCount = 0
Set xPane = Outlook.Application.ActiveExplorer.NavigationPane
Set xModule = xPane.Modules.GetNavigationModule(olModuleTasks)
Set xGroup = xModule.NavigationGroups.Item(1)
For i = xGroup.NavigationFolders.Count To 1 Step -1
Set xNavFolder = xGroup.NavigationFolders.Item(i)
For k = xNavFolder.Folder.Items.Count To 1 Step -1
Set xTaskItem = xNavFolder.Folder.Items(k)
If InStr(xTaskItem.Subject, xFindStr) > 0 Then
xTaskItem.Subject = Replace(xTaskItem.Subject, xFindStr, xReplaceStr)
xTaskItem.Save
xTotalCount = xTotalCount + 1
End If
Next
Next
MsgBox xTotalCount & " task subjects have been changed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
3. След това натиснете F5 ключ, за да изпълните този код, и се появява поле за подкана, моля, въведете текста, който искате да намерите от темите на задачите, вижте екранната снимка:
4. Щракнете OKи друго поле за подкана се появява, моля, въведете новия текст, с който искате да замените, вижте екранната снимка:
5. След това кликнете OKи се показва диалогов прозорец, за да ви каже колко теми са променени, вижте екранната снимка:
6. Щракнете OK, а старите текстове в темите на задачите са заменени с нови, вижте екранната снимка:
Най-добрите инструменти за продуктивност в офиса
Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook
🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...
📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP) / График за изпращане на имейли / Автоматично CC/BCC по правила при изпращане на имейл / Автоматично пренасочване (разширени правила) / Автоматично добавяне на поздрав / Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...
📨 Управление на Email: Лесно извикване на имейли / Блокиране на измамни имейли по теми и други / Изтриване на дублирани имейли / подробно търсене / Консолидиране на папки ...
📁 Прикачени файлове Pro: Пакетно запазване / Партидно отделяне / Партиден компрес / Автоматично запазване / Автоматично отделяне / Автоматично компресиране ...
🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони / Увеличете продуктивността на Outlook с изгледи с раздели / Минимизирайте Outlook, вместо да затваряте ...
???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове / Антифишинг имейли / 🕘Показване на часовата зона на подателя ...
👩🏼🤝👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли / Разделете група контакти на отделни групи / Премахнете напомнянията за рожден ден ...
Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.