Outlookで特定の電子メールを送信するときに特定のファイルを自動添付する方法

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

Outlookで特定の電子メールを送信するときに、特定のファイルを添付する必要があることがよくありますか？その場合、毎回手動で追加するのは面倒だと感じるかもしれません。この記事では、OutlookVBAでそれを実現するための簡単な方法を説明します。

私の日常業務では、特定のメールを送信するときに特定のファイルを添付する必要があることがよくあります。たとえば、毎週、上司にメールを送信して、毎週の仕事を報告する必要があります。このメールでは、作業ログ、データ統計レポートなど、特定のファイルを添付する必要があります。私は通常、これらのファイルを毎週更新します。以前は、通常、最初にメッセージ本文を作成してから、これらのファイルを手動で追加していました。しかし、現在、私はより賢いトリックを見つけています。それはそれを自動化するためにOutlookVBAを使用しています。同様の要件がある場合は、具体的なVBAコードと詳細な操作を確認するために読んでください。

特定のメールを送信するときに特定のファイルを自動添付する

としてtart、Outlookを起動し、[開発者]タブに移動します。
次に、「Visual Basic」ボタンを見つけてクリックすると、VBAエディタウィンドウがすぐに表示されます。
次のウィンドウで、左側のプロジェクトリストにある「ThisOutlookSession」プロジェクトをダブルクリックする必要があります。
次に、次のVBAコードをコピーして貼り付ける必要があります。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strPrompt As String
    Dim nRes As Integer
 
    'Check the email subject and recipient
    If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
       strPrompt = "Do you want to attach the worklog related files?"
       nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
       If nRes = vbYes Then
          'Attach the specific files
          With Item
               .Attachments.Add ("C:\Attachments\WorkLog.docx")
               .Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
               .Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
          End With
       End If
    End If
End Sub

その後、新しいプロジェクトにデジタル証明書を割り当てる必要があります。

まず、ツールバーの「ツール」ボタンをクリックし、「デジタル署名」を選択します。
次に、ポップアップの[デジタル署名]ダイアログボックスで、[選択]ボタンを押します。
その後、既存の証明書を選択できます。
最後に、一連の「OK」をクリックして、正常に割り当てます。

後で、マクロ設定を変更して、デジタル署名されたマクロを単に許可する必要があります。
最終的には、試してみることができます。

「送信」をクリックして、件名に特定の単語を含む特定のメールを送信するか、特定の連絡先に送信すると、次の画像のようなメッセージボックスが表示されます。
その後、送信したメールを確認できます。送信メールには必ずプリセットファイルが添付されています。

Outlookエラーの修正を延期しないでください

Outlookでエラーメッセージが表示された場合でも、メッセージを閉じた後も作業を続行できる場合があります。しかし、実際にはそれはお勧めのアクションではありません。あなたがすべきことは、それらを脇に置くのではなく、できるだけ早くそれらを排除することです。問題が蓄積すると、重大なクラッシュが発生します。 Outlookがクラッシュすると、OutlookのPSTデータが危険にさらされます。知っている必要があります破損したOutlookPSTデータかなり節があります。その時、あなたは経験豊富で評判の良い修理ツールを使うしかないのです。 DataNumen Outlook Repair.

著者紹介：

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