ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
登録
x

or

Outlookのすべてのフォルダとサブフォルダのリストをエクスポートして印刷する方法は?

一般的に言えば、 Ctrlキー + 6 キーを使用して、Outlookのナビゲーションペインにあるすべてのフォルダの一覧を表示します。 ただし、フォルダの一覧を印刷することはできません。 この記事では、Outlookですべてのフォルダとそのサブフォルダの一覧をエクスポートおよび印刷するための2つのVBAスクリプトを紹介します。

1回クリックすると、Outlookのナビゲーションペインにあるすべてのフォルダ内のアイテムの総数が表示されます

通常、Outlookでは、ナビゲーションペインの各フォルダに未読アイテムの数が表示されます。 しかし、Outlook用のKutools すべてのフォルダにアイテムの総数が表示されます 1回のクリックですべてのフォルダ内のアイテムの総数を表示するのに役立ちます。 無制限に60-day無料トライアルをクリックしてください!
すべてのフォルダは総数を表示しますkto 9.00

Kutools for Outlook: 100 +新しい高度なツール Outlook用。
Office Tab: Officeでのタブ付き編集とブラウズを有効にする、ちょうどChrome、Firefox、IE 8 / 9 / 10のように。
クラシックメニュー: 古いメニューとツールバーを元に戻す Office 2007、2010、2013、2016、および2019に送信します。

矢印青い右の泡 新しい電子メールですべてのOutlookフォルダとそのサブフォルダのリストをエクスポートして印刷する

この方法では、指定された電子メールアカウントのすべてのフォルダとそのサブフォルダの一覧をOutlookの新しい電子メールにエクスポートするVBAを導入し、フォルダの一覧を簡単に印刷できます。

1。 押す 他の + F11 キーを使用してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2。 クリック インセット > モジュール新しいモジュールウィンドウにVBAコードの下に貼り付けます。

VBA:Outlookで新しい電子メールのフォルダとサブフォルダの一覧をエクスポートする

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.mailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)

Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

    For i = CurrentFolder.Folders.Count To 1 Step -1
Set oFolder = CurrentFolder.Folders(i)

sFolderPaths = oFolder.FolderPath
gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
If oSubFolder.Name <> "Deleted Items" Then
ProcessFolder oSubFolder
End If

Next

End Sub

3。 押す F5 このVBAを実行するキー。

4。 [フォルダの選択]ダイアログボックスが表示されたら、フォルダの一覧を印刷する電子メールアカウントを選択し、 OK ボタン。 スクリーンショットを見る:

5。 そして、指定された電子メールアカウントのフォルダ一覧が、下のスクリーンショットのように新しい電子メールにコピーされます。 クリックしてください フィレット > 印刷物 コピーしたフォルダのリストを印刷します。

6。 印刷後、保存せずに新しいメールを閉じてください。


矢印青い右の泡 メモ帳にすべてのOutlookフォルダとサブフォルダのリストをエクスポートして印刷する

この方法では、VBAを使用して、指定された電子メールアカウントのすべてのフォルダとそのサブフォルダの一覧をOutlookからメモ帳にエクスポートし、Outlookフォルダの一覧をメモ帳に簡単に印刷できます。

1。 押す 他の + F11 キーを使用してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2。 クリック インセット > モジュール新しいモジュールウィンドウにVBAコードの下に貼り付けます。

VBA:すべてのOutlookフォルダとサブフォルダの一覧をOutlookからメモ帳にエクスポートする

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

  Set objOutlook = CreateObject("Outlook.Application")

  Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
Set Folders = F.Folders

    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
If Result = 6 Then
gCreateTree = True
Else
gCreateTree = False
End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))

LoopFolders Folders

Set F = Nothing
Set Folders = Nothing
Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F

For Each F In Folders
WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
CreateFolderTree = Mid(OLKfolderpath, 3)
Else
Dim i, x, OLKprefix
i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))

    For x = gBase To i
OLKprefix = OLKprefix & "-"
Next

CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3。 押す F5 このVBAを実行するキー。 次に、[フォルダの選択]ダイアログボックスで、フォルダリストをエクスポートして印刷する電子メールアカウントを選択し、 OK ボタン。 スクリーンショットを見る:

4。 次に出力フォルダツリーダイアログボックスが表示されます。 をクリックしてください はい ボタンまたは いいえ ボタンを押します。

これで、 Outlook-Folders 以下のスクリーンショットのように作成され、デスクトップに保存されます。

5。 ダブルクリックして新しいテキストファイルを開き、[OK]をクリックします。 フィレット > 印刷物 エクスポートされたOutlookフォルダのリストを印刷します。


矢印青い右の泡関連記事



Kutools for Outlook

Outlook用100拡張機能2010、2013、2016、2019、および365

バナー201812のための小さい見通しのためのスクリーンショットkutools

より多くの機能 | 無料ダウンロード | 何百もの関数に対して$ 39.00のみ

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.