特定のOutlookフォルダをExcelから開くにはどうすればよいですか?
Excelファイルから特定のOutlookフォルダ(たとえば「受信トレイ」フォルダや「連絡先」フォルダ、またはその他のフォルダ)を開こうとしたことはありますか?この記事では、Excelワークブックから目的のOutlookフォルダを開く方法について説明します。
VBAコードを使用してExcelファイルから特定のOutlookフォルダを開く
VBAコードを使用してExcelファイルから特定のOutlookフォルダを開く
次のVBAコードを使用すると、Excelワークシートから特定のOutlookフォルダを開くことができます。以下の手順に従ってください:
1. Excelで、「Alt」+「F11」キーを押しながら押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。
2. 「挿入」>「モジュール」をクリックし、次のマクロを「モジュールウィンドウ」に貼り付けます。
VBAコード:Excelファイルから特定のOutlookフォルダを開く:
Sub OpenOutlookFolder()
Dim xOutlookApp As Outlook.Application
Dim xNameSpace As Outlook.Namespace
Dim xFolder As Outlook.Folder
Dim xFolderType As OlDefaultFolders
On Error Resume Next
Set xOutlookApp = New Outlook.Application
Set xNameSpace = xOutlookApp.Session
Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
xFolder.Display
Set xFolder = Nothing
Set xNameSpace = Nothing
Set xOutlookApp = Nothing
Exit Sub
End Sub
注:上記のコードでは、「Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)」スクリプト内の「受信トレイ」を、開きたい他のフォルダ名に変更できます。
3. 次に、「Microsoft Visual Basic for Applications」ウィンドウで「ツール」>「参照設定」をクリックし、表示された「参照設定-Project1」ダイアログボックスで、「利用可能な参照」リストボックスから「Microsoft Outlook Object Library」オプションをチェックします。スクリーンショットをご覧ください:
4. その後、「OK」をクリックしてダイアログボックスを閉じ、「F5」キーを押してこのコードを実行すると、指定したOutlookフォルダがすぐに開きます。
最高のオフィス生産性ツール
速報:Kutools for Outlook が無料版をリリース!
新しくなった Kutools for Outlook を100以上の素晴らしい機能とともに体験してください!今すぐダウンロード!
🤖 Kutools AI : 高度なAI技術を活用し、メールの返信、要約、最適化、拡張、翻訳、作成を効率良くこなします。
📧 メール自動化: 自動返信(POPとIMAPに対応) / メール送信のスケジュール設定 /送信時にルールで自動 CC/BCC / 高度なルールによる自動転送 / 挨拶文を自動追加 / 複数宛先のメールを自動で個別のメールに分割 ...
📨 メール管理: メールの取り消し / 件名やその他の条件で迷惑メールをブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理 ...
📁 添付ファイルPro: 一括保存 / 一括切り離し / 一括圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっとキレイで楽しい絵文字 /重要なメールの到着をお知らせ / Outlookを閉じずに最小化 ...
👍 ワンクリック便利機能: 全員に【Attachment】付きで返信 /迷惑メール対策 / 🕘送信者のタイムゾーン表示 ...
👩🏼🤝👩🏻 連絡先&カレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除 ...
お好みの言語で Kutools をご利用いただけます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上をサポート!
Kutools for Outlook はワンクリックですぐにアンロックできます。今すぐダウンロードして効率をアップしましょう!

