내보내기를 사용하여 하나의 Outlook 되풀이 약속 목록 인쇄

VBA를 사용하여 하나의 Outlook 되풀이 약속 목록 인쇄

실제로 Outlook에서 되풀이되는 약속의 모든 항목 목록을 직접 인쇄하는 방법은 없습니다. 그러나 일정 데이터를 Excel로 내보내고 반복되는 모든 약속을 필터링 한 다음 인쇄 할 수 있습니다. 다음과 같이하십시오 :

1. Outlook에서 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 열기 및 내보내기 (또는 엽니다)> 가져 오기 / 내보내기 (또는 수입).

2. 가져 오기 및 내보내기 마법사에서 파일로 내보내기 옵션을 클릭하고 다음 보기 버튼을 클릭합니다.

3. 첫 번째 파일로 내보내기 대화 상자에서 쉼표로 구분 된 값 옵션을 클릭하고 다음 보기 버튼을 클릭합니다.

4. 두 번째 파일로 내보내기 대화 상자에서 달력 인쇄 할 되풀이 약속이 포함 된 다음 보기 버튼을 클릭합니다.

5. 세 번째 파일로 내보내기 대화 상자에서 검색 버튼을 클릭합니다.

6. 이제 찾아보기 대화 상자가 나타납니다. 부디 (1) 내 보낸 CSV 파일을 저장할 대상 폴더를 지정하고, (2) CSV 파일의 이름을 사진이름 상자 및 (3) 클릭 OK 버튼을 클릭합니다.

7. 을 클릭합니다 다음 보기 버튼 및 마감재 세 번째 및 마지막 파일 내보내기 대화 상자에서 버튼을 클릭합니다.

8. 날짜 범위 설정 대화 상자에서 달력을 내보낼 날짜 범위를 지정하고 OK 버튼을 클릭합니다.

9. 지금까지 Outlook 일정이 CSV 파일로 내보내졌습니다. CSV 파일이 포함 된 폴더를 열고 CSV 파일을 마우스 오른쪽 버튼으로 클릭하고 열기 > 뛰어나다 상황에 맞는 메뉴에서. 스크린 샷보기 :

10. 내 보낸 CSV 파일이 Excel에서 열립니다. 제목 열 머리글을 선택하고 Data > 필터. 스크린 샷보기 :

10. 제목 열 머리글에서 필터 아이콘을 클릭하고 드롭 다운 목록에서 인쇄 할 되풀이 약속의 제목 만 선택하고 OK 버튼을 클릭합니다.

11. 지정된 되풀이 약속의 발생 만 필터링됩니다. 클릭하세요 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 인쇄 그들을 인쇄하십시오.

이 방법은 VBA를 도입하여 Outlook에서 되풀이되는 약속 목록을 쉽게 인쇄 할 수 있습니다. 다음과 같이하십시오 :

1. 달력보기에서 인쇄 할 되풀이 약속 중 하나를 선택하고 다른 + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2. 클릭 끼워 넣다 > 모듈을 클릭 한 다음 VBA 코드 아래에 새 여는 모듈 스크립트에 붙여 넣습니다.

VBA : Outlook에서 되풀이 약속의 모든 항목 목록 인쇄

Sub RecurringList()

Dim CalendarFolder As Outlook.MAPIFolder
Dim CalendarItems As Outlook.Items
Dim RestrictItems As Outlook.Items
Dim sFilter, sSubject, sOccur As String
Dim iNumRestricted As Integer
Dim itm, itmNew As Object
Dim tStart, tEnd As Date

Set CalendarFolder = Application.ActiveExplorer.CurrentFolder
Set CalendarItems = CalendarFolder.Items

   CalendarItems.Sort "[Start]"
CalendarItems.IncludeRecurrences = True

    tEnd = Format(Now + 10, "Short Date")

sSubject = Application.ActiveExplorer.Selection.Item(1).Subject

   sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Subject] = " & sSubject

   Set RestrictItems = CalendarItems.Restrict(sFilter)

   iNumRestricted = 0

   For Each itm In RestrictItems
iNumRestricted = iNumRestricted + 1
sOccur = sOccur & vbCrLf & itm.Subject & vbTab & " >> " & vbTab & itm.Start & vbTab & " to: " & vbTab & itm.End
Next

Set itmNew = Application.CreateItem(olMailItem)
itmNew.Body = sOccur & vbCrLf & iNumRestricted & " occurrences found."
itmNew.Display

End Sub

주의 사항: 코드에서 반복 약속을 인쇄 할 날짜 범위를 변경하십시오. sFilter = "[시작]> = '11/1/2016'그리고 [끝] <'6 년 30 월 2017 일 그리고 [IsRecurring] = True And [Subject] = "& strSubject

3. 프레스 F5 키를 누르거나 달리기 버튼을 눌러이 VBA를 실행합니다.

4. 이제 선택한 되풀이 약속의 모든 항목 목록이 아래 스크린 샷과 같이 복사되어 새 이메일에 붙여 넣어집니다. 클릭하세요 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 인쇄 목록을 인쇄합니다.

Outlook에서 빈 일정 (약속 없음) 인쇄

Outlook에서 페이지 당 XNUMX 주 / 월 일정 인쇄

Outlook에서 일일 캘린더 인쇄