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

Author: Siluvia Last Modified: 2025-08-06

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

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

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

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

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

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

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

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

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

3. "Microsoft Visual Basic for Applications" 창에서 "프로젝트1" > "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. 코드 실행 후 "Microsoft Outlook" 대화 상자가 나타납니다. "확인" 버튼을 클릭하세요.