初心者でもできる！OutlookをVBAで自動起動する方法

2025.05.21

「Outlookを毎回手動で起動するのが面倒」「VBAでOutlookを自動起動したい」とお考えの方へ。今回は、OutlookをVBAで自動起動する方法を、初心者の方にもわかりやすく解説します。さらに、YouTube動画の台本としても活用できる内容に仕上げていますので、ぜひ最後までご覧ください。

OutlookをVBAで自動起動する基本のコード
Outlook起動時に自動で処理を実行する方法
Outlookが起動しているかを確認する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

OutlookをVBAで自動起動する基本のコード

Outlookのイメージ

まずは、OutlookをVBAで自動起動するための基本的なコードをご紹介します。

Sub 起動する()
    Dim OutlookApp As Object
    On Error Resume Next
    Set OutlookApp = GetObject(, "Outlook.Application")
    On Error GoTo 0
    If OutlookApp Is Nothing Then
        Set OutlookApp = CreateObject("Outlook.Application")
    End If
    OutlookApp.Visible = True
End Sub

このコードは、Outlookが既に起動しているかを確認し、起動していなければ新たに起動します。`Outlook.Application`オブジェクトを使用してOutlookを操作します。

Outlook起動時に自動で処理を実行する方法

Outlookを起動した際に、自動で特定の処理を実行したい場合、`Application_Startup`イベントを利用します。以下は、Outlook起動時に「ようこそ」とメッセージを表示し、ウィンドウを最大化する例です。

Private Sub Application_Startup()
    MsgBox "ようこそ、" & Application.GetNamespace("MAPI").CurrentUser
    Application.ActiveExplorer.WindowState = olMaximized
End Sub

このコードは、`ThisOutlookSession`モジュールに記述します。`Application_Startup`イベントは、Outlookが起動した際に自動で実行されます。

Outlookが起動しているかを確認する方法

VBAでOutlookが起動しているかを確認するには、`GetObject`関数を使用します。以下のコードで、Outlookが起動しているかを確認できます。

Sub Outlook起動確認()
    Dim OutlookApp As Object
    On Error Resume Next
    Set OutlookApp = GetObject(, "Outlook.Application")
    On Error GoTo 0
    If OutlookApp Is Nothing Then
        MsgBox "Outlookは起動していません。"
    Else
        MsgBox "Outlookは起動しています。"
    End If
End Sub

このコードは、Outlookが起動していない場合にメッセージボックスで通知します。