Outlook 에서 메시지 또는 작업 내의 제목 텍스트를 찾기 및 바꾸기하려면 어떻게 하나요？

Outlook 에서 여러 메시지 제목이나 작업 제목을 지정한 텍스트로 일괄 변경해야 하는 경우, 물론 하나씩 수동으로 수정할 수도 있지만, Outlook 에서 이 작업을 한 번에 빠르게 처리할 수 있는 방법이 있을까요？

VBA 코드를 사용하여 여러 메시지 내의 제목 텍스트를 찾기 및 바꾸기하기

VBA 코드를 사용하여 여러 작업 내의 제목 텍스트를 찾기 및 바꾸기하기

---

VBA 코드를 사용하여 여러 메시지 내의 제목 텍스트를 찾기 및 바꾸기하기

여러 메시지 제목에서 특정 텍스트를 찾아 다른 텍스트로 바꾸려면 아래 VBA 코드가 도움이 됩니다。 다음 단계에 따라 진행하세요：

1. 제목 텍스트를 찾기 및 바꾸기하려는 이메일을 선택한 후 「ALT + F11」 키를 눌러 「Microsoft Visual Basic for Applications」 창을 엽니다。

2. 그런 다음 「삽입(Insert)」 > 「모듈(Module)」을 클릭하고， 아래 코드를 열린 빈 모듈에 복사하여 붙여넣습니다。 스크린샷 참조：

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」， 「[[PH_1]]」)， 「kte」는 찾으려는 기존 텍스트이고， 「Kutools for Excel」은 대체하려는 새 텍스트입니다。 필요에 따라 해당 값을 수정하세요。

3. 그런 다음 “F5" 키를 눌러 이 코드를 실행하면， 메시지 제목 내의 특정 텍스트가 원하는 새 텍스트으로 교체됩니다。 스크린샷 참조：

---

VBA 코드를 사용하여 여러 작업 내의 제목 텍스트를 찾기 및 바꾸기하기

작업의 제목 텍스트를 찾기 및 바꾸기해야 하는 경우， 다음 VBA 코드도 도움이 됩니다。

1. 「ALT + F11」 키를 눌러 「Microsoft Visual Basic for Applications」 창을 엽니다。

2. 그런 다음 「삽입(Insert)」 > 「모듈(Module)」을 클릭하고， 아래 코드를 열린 빈 모듈에 복사하여 붙여넣습니다。 스크린샷 참조：

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)」을 클릭하면 작업 제목 내의 기존 텍스트이 새 텍스트로 교체됩니다。 스크린샷 참조：