VBAを介してOutlookで特定のWord文書またはExcelワークブックをすばやく開く方法

Outlookソリューション 2025 年 9 月 29 日

おそらく、電子メールを作成するときに、Word文書やExcelブックなど、ローカルハードディスクに保存されている特定のファイルを参照する必要がある場合があります。したがって、この記事では、VBAを介してOutlookから特定のファイルをすばやく開く方法を説明します。

Outlookで電子メールを処理するときに、特定のファイルを確認または参照する必要があることがよくありますか？たとえば、あなたの会社はクライアントに送信される電子メールに多くのルールを設定しており、そのルールは特定のWord文書にリストされています。したがって、クライアントに送信されるこのような電子メールを作成するたびに、特定のドキュメントを参照する必要があります。この場合、Outlook内から特定のファイルを直接開くことができれば非常に便利です。幸い、OutlookVBAでそれを実現できます。

Outlookで特定のWord文書を開く

としてtart、starOutlookアプリケーション。
次に、「Alt + F11」キーショートカットを押して、OutlookVBAエディターにアクセスします。
続いて、ポップアップダイアログボックスで、使用されていないモジュールを開くか、「挿入」>「モジュール」で新しいモジュールを挿入します。
その後、次のVBAコードを新しいモジュールにコピーする必要があります。

Public Sub OpenSpecificWordDocument()
    Dim strFile As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordTable As Word.Table
    Dim objWordRange As Word.Range
 
    'Change the following line to point to your own Word document on your local disk
    strFile = "E:\Email\Email Rules.docx"

    Set objWordApp = CreateObject("Word.Application")
    Set objWordDocument = objWordApp.Documents.Open(strFile)
    objWordDocument.Activate
    Set objWordRange = objWordDocument.Range(0, 0)
    objWordApp.Visible = True
    objWordDocument.ActiveWindow.Visible = True
End Sub

後で、VBAエディターを閉じて、VBAプロジェクトをクイックアクセスツールバーまたはリボンに追加できます。ここでは、クイックアクセスツールバーを例として取り上げます。次の画像に示す手順に従うことができます。
最後に、Outlookのメインウィンドウに戻ることができます。クイックアクセスツールバーのマクロボタンをクリックするとすぐに、次のスクリーンショットのように特定のWord文書が開きます。

Outlookで特定のExcelワークブックを開く

Outlook内から特定のExcelブックをすばやく開く場合は、次のVBAコードを使用できます。

Public Sub OpenSpecificExcelWorkbook()
    Dim strFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim objExcelRange As Excel.Range

    'Change the following line to point to your own Word document on your local disk
    strFile = "E:\Email\Email Statistics.xlsx"

    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkBook = objExcelApp.Workbooks.Open(strFile)
    Set objExcelWorkSheet = objExcelWorkBook.Sheets(1)
    objExcelWorkSheet.Activate
    Set objExcelRange = objExcelWorkSheet.Range("A1")
    objExcelRange.Activate
    objExcelApp.Visible = True
End Sub

次に、通常どおり、新しいマクロをクイックアクセスツールバーに追加できます。対応するボタンを押すと、特定のExcelブックが表示されます。

Outlookのエラーを解決するために遅れることはありません

Outlookはエラーの影響を受けやすいため、さまざまな問題が発生している必要があります。それらのいくつかはとても小さくて致命的かもしれません。したがって、苦しんでいる場合でも、Outlookが通常どおり機能する場合があります。しかし、それらを明確に理解したほうがよいでしょう。そうしないと、未解決のOutlookの問題が蓄積され、Outlookデータに重大な損傷が発生します。その時点で、あなたがしたい場合 Outlookを修正する、次のような信頼性が高く信頼できるツールに頼る必要があります DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdfを修正と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com