Skip to main content

Kutools for Office — 하나의 패키지. 다섯 가지 도구. 더 많은 일을 처리하세요.

아웃룩 캘린더에서 약속 제목을 검색하고 바꾸는 방법은 무엇입니까?

Author Siluvia Last modified

아웃룩 캘린더에서 약속 제목을 찾아 바꾸는 것은 여러 항목의 제목을 동일한 텍스트로 대체해야 할 때 유용합니다. 또는 아웃룩에서 데이터를 가져온 후 제목 필드에 있는 단어 '복사'를 변경할 수도 있습니다. 이 문서에서는 여러 약속 제목을 검색하고 바꾸기 위한 VBA 코드를 제공합니다. 자세한 내용은 아래를 참조하세요.

VBA 코드를 사용하여 약속 제목 검색 및 바꾸기


VBA 코드를 사용하여 약속 제목 검색 및 바꾸기

이 섹션에서는 다음과 같이 VBA 코드를 사용하여 약속 제목을 검색하고 바꿀 수 있습니다.

1. 먼저 아웃룩에서 매크로 설정을 낮게 설정해야 합니다.

1) 아웃룩 2010 및 2013에서 "파일" > "옵션"을 클릭합니다. "아웃룩 옵션" 대화 상자에서 왼쪽 메뉴에서 "보안 센터"를 클릭한 다음 "보안 센터 설정" 버튼을 클릭합니다.

doc-find-and-replace-subject-1

"보안 센터" 대화 상자에서 왼쪽 메뉴에서 "매크로 설정"을 클릭하고, "매크로 설정" 섹션에서 "모든 매크로 활성화" 옵션을 선택한 다음 "확인" 버튼을 클릭합니다. 스크린샷 보기:

doc-find-and-replace-subject-2

2) 아웃룩 2007에서는 "도구" > "보안 센터"를 클릭하세요. "보안 센터" 대화 상자에서 왼쪽 메뉴에서 "매크로 설정"을 클릭하고, "매크로 보안 검사 없음" 옵션을 선택한 다음 "확인" 버튼을 클릭합니다.

doc-find-and-replace-subject-3

2. "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

3. "Microsoft Visual Basic for Applications" 창에서 "프로젝트1" > "Microsoft Outlook 개체" > "ThisOutlookSession"을 두 번 클릭하여 VBA 편집기를 엽니다. 스크린샷 보기:

doc-find-and-replace-subject-4

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. 코드 실행 후 "Microsoft Outlook" 대화 상자가 나타납니다. "확인" 버튼을 클릭하세요.

doc-find-and-replace-subject-5

6. 두 번째 "Microsoft Outlook" 대화 상자에서 바꾸고 싶은 텍스트를 입력한 다음 "확인" 버튼을 클릭합니다.

doc-find-and-replace-subject-6

7. 세 번째 "Microsoft Outlook" 대화 상자에서 교체하고자 하는 텍스트를 입력하고 "확인"을 클릭합니다.

doc-find-and-replace-subject-7

메모: 특정 캘린더의 제목에서 모든 “복사”라는 단어를 제거하려면 이 상자를 비워두세요.

8. 아래 대화 상자에서 "확인" 버튼을 클릭합니다.

doc-find-and-replace-subject-8

9. "폴더 선택" 대화 상자에서 지정된 이메일 계정 아래의 캘린더를 선택하고 "확인" 버튼을 클릭합니다. 스크린샷 보기:

doc-find-and-replace-subject-9

10. 그런 다음 교체가 성공적으로 완료되었음을 알리는 대화 상자가 나타납니다. "확인" 버튼을 클릭하세요.

doc-find-and-replace-subject-10

11. 이제 선택한 캘린더의 모든 제목 텍스트가 새 내용으로 교체됩니다.


최고의 오피스 생산성 도구

속보: Kutools for Outlook 무료 버전 출시!

새롭게 달라진 Kutools for Outlook에서100가지 이상의 놀라운 기능을 경험해보세요! 지금 다운로드하세요!

🤖 Kutools AI : 첨단 AI 기술을 활용해 이메일을 손쉽게 처리합니다. 회신, 요약, 최적화, 확장, 번역, 작성까지 모두 지원합니다.

📧 이메일 자동화: 자동 응답(POP 및 IMAP 지원) / 이메일 보내기 예약 / 이메일 전송 시 규칙별 자동 참조/숨은 참조 / 자동 전달(고급 규칙) / 자동 인사말 추가 / 여러 수신자 이메일을 개별 이메일로 자동 분할 ...

📨 이메일 관리: 이메일 회수 / 제목 및 기타 기준으로 의심스러운 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 정리 ...

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

🌟 인터페이스 매직: 😊더 예쁘고 다양한 이모지 / 중요한 이메일이 오면 알림 / Outlook 종료 대신 최소화 ...

👍 원클릭 기능: 모두 회신 (첨부 파일 포함) / 피싱 방지 이메일 / 🕘보낸 사람의 시간대 표시 ...

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

원하는 언어로 Kutools를 사용하세요 – 영어, 스페인어, 독일어, 프랑스어, 중국어 및40가지 이상을 지원합니다!

한 번의 클릭으로 Kutools for Outlook을 즉시 활성화하세요. 기다리지 말고 지금 다운로드하여 업무 효율을 높여보세요!

kutools for outlook features1 kutools for outlook features2

🚀 원클릭 다운로드 — 모든 Office 추가 기능 받기

강력 추천: Kutools for Office (5-in-1)

한 번의 클릭으로 다섯 종류의 설치 파일을 동시에 다운로드하세요 — Kutools for Excel, Outlook, Word, PowerPointOffice Tab Pro. 지금 다운로드하세요!

  • 원클릭 편리함: 다섯 가지 설치 패키지를 단 한 번에 다운로드할 수 있습니다.
  • 🚀 모든 Office 작업에 바로 준비 완료: 필요한 추가 기능을 원하는 때에 설치하세요.
  • 🧰 포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint