메인 컨텐츠로 가기

 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", "Excel 용 Kutools")"kte”는 찾으려는 이전 텍스트이고“Excel 용 Kutools”은 바꿀 새 텍스트입니다. 필요에 따라 변경하십시오.

doc 대체 주제 1

3. 그런 다음 F5 이 코드를 실행하려면 키를 사용하고 메시지 제목의 특정 텍스트는 필요에 따라 새 텍스트로 대체되었습니다. 스크린 샷을 참조하십시오.

doc 대체 주제 2


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 키를 눌러이 코드를 실행하면 프롬프트 상자가 나타납니다. 작업 주제에서 찾고자하는 텍스트를 입력하십시오. 스크린 샷을 참조하십시오.

doc 대체 주제 3

4. 딸깍 하는 소리 OK, 또 다른 프롬프트 상자가 나타납니다. 바꿀 새 텍스트를 입력하십시오. 스크린 샷을 참조하십시오.

doc 대체 주제 4

5. 그런 다음 OK, 변경된 주제 수를 알려주는 대화 상자가 표시됩니다. 스크린 샷을 참조하십시오.

doc 대체 주제 5

6. 딸깍 하는 소리 OK, 작업 주제의 이전 텍스트가 새 텍스트로 대체되었습니다. 스크린 샷을 참조하십시오.

doc 대체 주제 6


최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hallo,
beide Funktionen sind echt super.
Bin aber auch auf der Suche nach einer Lösung wo ich den Betreff mehrerer Mails ändern kann, genau wie hier bei den Aufgaben.

Ich möchte den Text in den Betreffzeilen kürzen und verwende hierzu z.B. bei München nur ein M
Mails also markieren, suche München im Betreff und ändere München in "M".
Kann mir jemand helfen?
This comment was minimized by the moderator on the site
Hello, Bördi
To find and replace the text of subject in emails, you just need to apply the first VBA code of this article.
Please select the emails first, and then apply the below code:
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, "Munich", "M")
            .Subject = xNewSubject
            .Save
        End With
    End If
Next
End Sub


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is there a way to change the subject line of email(s) in a folder (window level) via vba?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations