Outlookで電子メールの件名に添付ファイル名を自動入力する方法

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

Outlookで電子メールの件名として添付ファイル名をよく使用しますか？その場合、Outlookが自動的に完了することを期待する必要があります。この記事では、OutlookVBAでそれを実現するための便利な方法を紹介します。

多くのユーザーは、メールの件名に添付ファイル名を手動で入力することに慣れています。このような場合、Outlook がそれを自動的に行ってくれると、はるかに便利になります。また、件名の入力を忘れてしまうユーザーも少なくありません。そのため、「送信」ボタンをクリックすると、「件名がありません」という警告メッセージが表示されます。このような場合、Outlook が添付ファイル名で件名を自動的に入力してくれると、煩わしい「件名がありません」という警告を回避できます。つまり、多くの Outlook ユーザーが、Outlook がメールの件名に添付ファイル名を自動入力してくれるような方法を待ち望んでいると考えられます。幸いなことに、Outlook VBA を使用すれば、これを非常に簡単に実現できます。以下に、詳細な VBA コードと手順を示します。

電子メールの件名に添付ファイル名を自動入力する

まず、Outlookを起動して「開発者」タブに切り替えてください。
次に、このタブの下にある[Visual Basic]ボタンをクリックすると、VBAエディターが表示されます。
次のウィンドウで、最初に右側のプロジェクトリストで「ThisOutlookSession」プロジェクトを見つける必要があります。
次に、ダブルクリックしてこのプロジェクトを開きます。次に、次のコードをコピーします。

Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

その後、通常どおり、現在のVBAプロジェクトにデジタル証明書を割り当て続ける必要があります。

まず、組み込みのユーティリティ「VBAプロジェクトのデジタル証明書」を利用してデジタル証明書を生成します。
その後、現在のマクロに署名できます。

後でVBAエディターを終了し、マクロ設定を「デジタル署名されたマクロの通知、他のすべてのマクロは無効」に変更します。
最後に、試してみることができます。

新しいメールを作成します。
件名を入力しておらず、ファイルを添付する場合は、次の画像のようなメッセージが表示されます。
「はい」を選択すると、件名に添付ファイル名が一気に入力されます。

頻繁なOutlookの問題に対処する

Outlookを何十年も使用しているとすれば、Outlookの問題がたくさん発生しているはずです。それでは、彼らに会うとき、あなたは通常どのような行動を取りますか？それらをできるだけ早く把握して根絶することをお勧めします。問題が蓄積すると、いつでもOutlookデータが破損する可能性があるためです。したがって、Outlookが通常どおり機能する場合でも、受信トレイの修復ツールまたは外部のいずれかを適用することをお勧めします OutlookPSTエラー修復ユーティリティ、のような DataNumen Outlook Repair、PSTファイルをスキャンしてエラーを検出して解決します。

著者紹介：

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