Outlook 일정에서 약속 제목을 검색하고 바꾸는 방법은 무엇입니까?

Outlook 일정에서 약속 제목 찾기 및 바꾸기는 일부 제목을 대량으로 동일한 텍스트로 바꿔야하는 경우에 유용합니다. 또는 Outlook에서 데이터를 가져온 후 제목 필드에서 복사라는 단어를 바꿉니다. 이 기사에서는 여러 약속 주제를 검색하고 바꾸는 VBA 코드를 제공합니다. 자세한 내용은 찾아보세요.

약속 제목 검색 및 VBA 코드로 바꾸기

약속 제목 검색 및 VBA 코드로 바꾸기

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

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

1) Outlook 2010 및 2013에서 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 옵션 . 그리고에 전망 옵션 대화 상자에서 보안 센터 왼쪽 표시 줄에서 보안 센터 설정 버튼을 클릭합니다.

. 보안 센터 대화 상자에서 매크로 설정 왼쪽 표시 줄에서 모든 매크로 사용 에서 옵션 매크로 설정 부분. 그리고 OK 단추. 스크린 샷보기 :

2). Outlook 2007에서는 도구 > 보안 센터. 에서 보안 센터 대화 상자에서 매크로 설정 왼쪽 표시 줄에서 매크로에 대한 보안 검사 없음 옵션을 클릭하고 OK 버튼을 클릭합니다.

2. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

3. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 두 번 클릭하여 project1 > Microsoft Outlook 개체 > ThisOutlook세션 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. 코드를 실행 한 후 마이크로 소프트 아웃룩 대화 상자가 나타납니다. 클릭 OK 버튼을 클릭합니다.

6. 두 번째 마이크로 소프트 아웃룩 대화 상자에서 바꿀 텍스트를 입력 한 다음 OK 버튼을 클릭합니다.

7. 세 번째 마이크로 소프트 아웃룩 대화 상자에서 바꿀 텍스트를 입력하고 OK.

주의 사항: 지정된 달력의 제목에서 "복사"단어를 모두 제거하려면이 상자를 비워 두십시오.

8. 을 클릭합니다 OK 아래 대화 상자에서 버튼을 누릅니다.

9. 에서 폴더 선택 대화 상자에서 지정된 전자 메일 계정에서 달력을 선택한 다음 OK 단추. 스크린 샷보기 :

10. 그런 다음 교체가 성공했음을 알리는 대화 상자가 나타납니다. 클릭하십시오 OK 버튼을 클릭합니다.

11. 그런 다음 선택한 캘린더의 주제에있는 모든 텍스트가 새 콘텐츠로 대체되었습니다.

---

최고의 사무 생산성 도구

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

🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

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

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

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

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

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

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

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

상세 보기       무료 다운로드      매수