OutlookVBAを使用してテンプレートから新しい電子メールを作成する2つの簡単な方法

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

多くのユーザーがOutlookの電子メールテンプレートを見つけて使用するのは面倒だと考えているため、この記事では、OutlookVBAでテンプレートを使用して新しい電子メールを作成する2つの簡単な方法を紹介します。

多くの場合、Outlookのメールテンプレートを使用するには、まず「新しいアイテム」＞「その他のアイテム」＞「フォームの選択」をクリックしてテンプレートを見つける必要があります。次に、「フォームの選択」ダイアログボックスで、次のスクリーンショットのように、「ファイルシステムのユーザーテンプレート」から目的のテンプレートを見つけて開きます。

明らかに、それは確かに非常に面倒です。したがって、ここでは、OutlookVBAを使用してテンプレートを使用して新しい電子メールをすばやく作成できる2つの簡単な方法を紹介します。それらを詳細に理解するために読んでください。

方法1：OutlookVBAで直接新しい電子メールテンプレートを作成する

まず、Outlookのメインウィンドウの[開発者]タブに移動します。
次に、「Visual Basic」ボタンをクリックすると、新しいウィンドウが表示されます。
次に、次のVBAコードをコピーしてモジュールに貼り付けます。

Sub CreateNewMail()
    Dim obApp As Object
    Dim NewMail As MailItem
 
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItem(olMailItem)
 
    'You can change the concrete info as per your needs
    With NewMail
         .Subject = Date & " Test Email"
         .To = "example@mail.com"
         .Body = "Dear Johnny," & vbCrLf & vbCrLf & "I'm glad to write this email to you .......... " & vbCrLf & vbCrLf & "This is just a test email template with Outlook VBA" & vbCrLf & vbCrLf & vbCrLf & "Yours Truly," & vbCrLf & vbCrLf & "John Smith"
         .Attachments.Add ("C:\Attachments\Test File.docx")
         .Importance = olImportanceHigh
         .Display
    End With
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

その後、「VisualBasic」ウィンドウを終了します。次に、以下の手順に従って、このマクロをクイックアクセスツールバーに追加します。

まず、クイックアクセスツールバーの下矢印をクリックして、[その他のコマンド]を選択します。
次に、新しいポップアップウィンドウで、[コマンドの選択元]を[マクロ]に設定します。
その後、正しいものを売り込みます。
次に、「追加」ボタンをクリックします。
その後、外観を変更できます。「変更」ボタンをクリックします。新しいダイアログボックスで、新しい名前を付けてアイコンを指定します。
最後にXNUMXつの「OK」をクリックします。

最後に、クイックアクセスツールバーのマクロアイコンをクリックできます。すぐに、次の図のような新しいメッセージウィンドウがポップアップ表示されます。

方法2：OutlookVBAで既存のテンプレートから新しい電子メールを作成する

まず、既製の電子メールテンプレートを手元に用意する必要があります。希望の形式、ひな形で新しいメールを作成し、Outlookテンプレートとして保存します。詳細な手順については、記事「Outlookテンプレートを使用して作業効率を向上させる方法」。また、このテンプレートファイルの保存フォルダパスを書き留めてください。
次に、「Visual Basic」ウィンドウにアクセスし、ヒント1のような新しいモジュールを開きます。
その後、次のスクリーンショットをコピーして貼り付ける必要があります。

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate("C:\Users\Test\Documents\Test Mail.oft")
    NewMail.Display
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

その後、上記のヒント5の手順1に従って、新しいマクロをクイックアクセスツールバーに追加します。
最終的には、試してみることができます。以下の画像のように、テンプレートを使用して新しいメールを受け取ります。

2つの方法の比較

メソッド	利点	不利益
方法1	メールテンプレートは、VBAコードで直接作成できます。	メッセージ内のテキストをフォーマットすることはできません。
方法2	必要なひな形を適用して、電子メールのテキストをフォーマットできます。	事前に新しいメールテンプレートを作成する必要があります。

時折発生するOutlookエラーに対処する

Outlookは機能が豊富ですが、さまざまな問題が発生しやすいです。中でも最も厄介なのは、Outlookが起動できないことです。一般的に、これは次のような場合に発生する可能性があります。破損したOutlook。したがって、「コントロールパネル」に移動してオフィススイートを修復できます。問題が解決しない場合は、次のような経験豊富な修復ツールを使用する必要があります。 DataNumen Outlook Repair.

著者紹介：

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