エクスポートを使用して、XNUMXつのOutlook定期的な予定のリストを印刷します

VBAでXNUMXつのOutlook定期的な予定のリストを印刷します

実際には、Outlookで定期的な予定のすべての発生のリストを印刷する直接的な方法はありません。 ただし、カレンダーデータをExcelにエクスポートし、定期的な予定のすべての発生を除外してから、印刷することができます。 次のようにしてください。

1. Outlookで、をクリックしてください File > 開く＆エクスポート （または Open）> 輸出入 （または インポート).

2.インポートおよびエクスポートウィザードで、をクリックしてください。 ファイルへのエクスポート オプションをクリックし、 Next

3.最初の[ファイルにエクスポート]ダイアログボックスで、[ カンマ区切り オプションをクリックし、 Next

4. XNUMX番目の[ファイルにエクスポート]ダイアログボックスで、 カレンダー 印刷する定期的な予定が含まれているので、 Next

5. XNUMX番目の[ファイルにエクスポート]ダイアログボックスで、[ ブラウズ

6.これで[参照]ダイアログボックスが表示されます。 お願いします (1) エクスポートされたCSVファイルを保存する宛先フォルダーを指定します。 (2) のCSVファイルに名前を付けます ファイル名 ボックス、および (3) クリック OK

7。 クリック Next ボタンと 終了 XNUMX番目と最後の[ファイルのエクスポート]ダイアログボックスの両方にあるボタン。

8. [日付範囲の設定]ダイアログボックスでカレンダーをエクスポートする日付範囲を指定し、[ OK

9.これまでのところ、OutlookカレンダーはCSVファイルとしてエクスポートされています。 CSVファイルを含むフォルダを開き、CSVファイルを右クリックして選択してください で開きます > Excel コンテキストメニューから。 スクリーンショットを参照してください：

10.エクスポートされたCSVファイルがExcelで開かれています。 件名の列ヘッダーを選択して、をクリックしてください 且つ > フィルタ。 スクリーンショットを参照してください：

10. [件名]の列ヘッダーにある[フィルター]アイコンをクリックし、ドロップダウンリストから印刷する定期的な予定の件名のみを確認して、[ OK

11.指定された定期的な予定の発生のみが除外されます。 クリックしてください File > 印刷物 それらを印刷します。

この方法では、VBAが導入され、Outlookで定期的な予定のリストを簡単にすばやく印刷できます。 次のようにしてください。

1.カレンダービューで、印刷する定期的な予定をXNUMXつ選択し、を押します。 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

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

Note：コード内で定期的な予定を印刷する日付範囲を変更してください： sFilter = "[Start]> = '11/1/2016'そして[終了] <'6年30月2017日 ' And [IsRecurring] = True And [Subject] = "＆strSubject

3。 押す F5 キーを押すか、 ラン このVBAを実行するためのボタン。

4.これで、以下のスクリーンショットに示すように、選択した定期的な予定のすべてのオカレンスのリストがコピーされ、新しい電子メールに貼り付けられます。 クリックしてください File > 印刷物 リストを印刷します。

Outlookで空白のカレンダー（予定なし）を印刷する

OutlookでXNUMXページにXNUMX週間/月のカレンダーを印刷する

Outlookで日カレンダーを印刷する