Outlook: 주최자로 일정에서 회의 취소를 유지하는 방법은 무엇입니까?
Outlook에서 모임 이끌이가 모임을 취소하면 일정에서 모임이 자동으로 삭제됩니다. 경우에 따라 일부 표시를 위해 취소된 회의를 달력에 보관할 수 있습니다. 그러나 Outlook에는 이 작업을 처리할 수 있는 기본 제공 기능이 없습니다. 이 자습서에서는 취소하는 동안 회의를 약속으로 유지하기 위한 두 개의 VBA 코드를 제공합니다.
취소된 회의를 약속으로 복사하기 위한 VBA 코드
다음은 회의를 취소하고 동시에 약속으로 복사하여 붙여넣는 두 가지 코드입니다.
참고: 코드를 활성화하기 전에 다음 두 가지 옵션이 선택되어 있는지 확인하십시오.
Outlook을 활성화하고 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 옵션 , Outlook 옵션 창에서 클릭 보안 센터 탭을 클릭하고 보안 센터 설정, 보안 센터 창에서 클릭 매크로 설정 탭, 확인 모든 매크로 사용 (권장하지 않음, 잠재적으로 위험한 코드 실행 가능) 과 설치된 추가 기능에 매크로 보안 설정 적용 옵션. 딸깍 하는 소리 OK > OK 창을 닫습니다. 다시 시작 시야.
1. Outlook 일정 보기로 전환하고 취소하려는 회의를 선택합니다. 다른 + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 활성화합니다.
2. 클릭 끼워 넣다 > 모듈 새 빈 모듈을 삽입합니다. 그런 다음 아래 코드를 복사하여 붙여넣습니다.
코드: 회의를 약속으로 복사하고 취소
Sub CopyMeetingAsAppointmentBeforeCancel()
'UpdatebyExtendoffice20221129
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
.Subject = "Canceled: " & xMeetingItem.Subject
.Start = xMeetingItem.Start
.Duration = xMeetingItem.Duration
.Location = xMeetingItem.Location
.Body = xMeetingItem.Body
.Save
.Move Application.ActiveExplorer.CurrentFolder
End With
With xMeetingItem
.MeetingStatus = olMeetingCanceled
.Send
.Delete
End With
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.CurrentItem
End Select
End Function
3. 클릭 달리기 버튼을 누르거나 누르십시오. F5 키, 이제 선택한 회의가 취소되었으며 취소 및 제출이라는 새 약속이 있습니다.
회의를 복사하여 다른 일정에 약속으로 붙여넣은 다음 회의를 취소하려면 아래 코드를 사용하십시오.
코드: 다른 일정에 회의를 약속으로 복사하고 취소
Sub CopyMeetingAsAppointmentToCalenderBeforeCancel()
'Updatebyextendoffice20221129
Dim xDestCalendar As Outlook.MAPIFolder
Dim xNameSpace As Outlook.NameSpace
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xNameSpace = Application.GetNamespace("MAPI")
Set xDestCalendar = xNameSpace.PickFolder
If xDestCalendar.DefaultItemType <> olAppointmentItem Then
MsgBox "Please Select calendar folder. ", vbOKOnly + vbInformation, "Kutools for Outlook"
Exit Sub
End If
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
.Subject = "Canceled: " & xMeetingItem.Subject
.Start = xMeetingItem.Start
.Duration = xMeetingItem.Duration
.Location = xMeetingItem.Location
.Body = xMeetingItem.Body
.Save
.Move xDestCalendar
End With
With xMeetingItem
.MeetingStatus = olMeetingCanceled
.Send
.Delete
End With
Set xDestCalendar = Nothing
Set xNameSpace = Nothing
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.CurrentItem
End Select
End Function
달리기 버튼을 누르거나 누르십시오. F5 키를 누르면 일정 폴더를 선택하여 약속을 붙여넣은 다음 확인을 클릭할 수 있는 폴더 선택 대화 상자가 나타납니다.
이제 회의가 취소되고 복사하여 선택한 일정 폴더에 약속으로 붙여넣었습니다.
최고의 사무 생산성 도구
Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능
🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...
📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능) / 이메일 보내기 예약 / 이메일 발송 시 규칙에 따른 자동 참조/숨은참조 / 자동 전달(고급 규칙) / 인사말 자동 추가 / 여러 수신자 이메일을 개별 메시지로 자동 분할 ...
📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다. / 제목 및 기타 사기 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 통합 ...
📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘 / 탭 보기로 Outlook 생산성 향상 / 문을 닫는 대신 전망을 최소화하세요 ...
???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신 / 피싱 방지 이메일 / 🕘발신자의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...
이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.