메인 컨텐츠로 가기

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

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

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

Office 탭 - Microsoft Office에서 탭 편집 및 탐색을 활성화하여 작업을 원활하게 만듭니다.
Outlook용 Kutools - 탁월한 효율성을 위한 100개 이상의 고급 기능으로 Outlook 향상
이러한 고급 기능으로 Outlook 2021~2010 또는 Outlook 365를 향상하세요. 포괄적인 60일 무료 평가판을 즐기고 이메일 경험을 향상시키십시오!

화살표 블루 오른쪽 거품약속 제목 검색 및 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개 이상의 강력한 기능

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

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

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

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

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

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

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

 

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Many thanks. I think it is the 1st time, I copied and executed your macro "as is" without any error or any need for changes !
This comment was minimized by the moderator on the site
Buongiorno,
è possibile specificare la cartella posizione calendario (es.: \\mail@dominio\Calendario) senza far apparire la richiesta?
Grazie
Hi,
is it possible to specify the folder location calendar (ex .: \\ mail@domain\Calendar) without making the request appear?

Thank you


This comment was minimized by the moderator on the site
I always get a Syntax Error right at the start on the 2nd line at Dim oApp As Outlook.Application. No idea what's wrong :-(

I try to run the VB Script in Outlook 2016 (O365 Version) on Windows 10.
This comment was minimized by the moderator on the site
It seems I'm unable to do this for non-local, or shared calendars. Does anyone know how to do it for shared calendars? I'm set as "owner" for permission level of the shared calendar, but it won't show up in my list of folders when I run the script, only my locally created calendars show up.
This comment was minimized by the moderator on the site
Worked fantastically! Thank you so much!!!
This comment was minimized by the moderator on the site
This should do it for you. Add these 3 lines immediately after line 8 (Set oApp = Outlook.Application). Dim nmSpace As Outlook.NameSpace Set nmSpace = oApp.GetNamespace("MAPI") Set oCalFolder = nmSpace.GetDefaultFolder(olFolderCalendar)
This comment was minimized by the moderator on the site
Thank you! How can we modify it to always use the same calendar, and not show the first pop-up? thank you
This comment was minimized by the moderator on the site
Worked just fine really good It took me some time to understand that this is case sensitive, but that is very good. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations