件名なしでOutlook電子メールを送信する前に件名として本文の最初の行を自動的に取得する方法

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

一部のユーザーは、件名のない電子メールを送信するときに、Outlookが電子メール本文の最初の行を件名として自動的に取得することを望んでいます。さて、この記事では、VBAコードで実現する方法を紹介します。

複数のユーザーが、メールを作成して送信するときに件名を入力するのを忘れることがよくあります。したがって、通常、送信メールに件名がない場合、Outlookがメール本文の最初の行で件名を自動的に埋めることができることを望んでいます。以下、簡単で便利な方法をご紹介します。

件名なしでメールを送信する前に、本文の最初の行を件名として自動取得

最初に、Outlookアプリケーションを起動します。
次に、「OutlookでVBAコードを実行する方法「、VBAエディターに入ることができます。
次に、VBAエディターで、「MS Word ObjectLib」への参照を追加します。rary」に従って「オブジェクトライブラリを追加する方法raryVBAでの参照"
後で、以下のコードを「ThisOutlookSession」プロジェクトにコピーします。

Private WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail And Inspector.CurrentItem.Subject = "" Then
       Inspector.CurrentItem.Subject = " "
    End If
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objMailSelection As Word.Selection
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       If Len(Trim(objMail.Subject)) = 0 Then
          If MsgBox("No subject! Whether to take first line as subject?", vbQuestion + vbYesNo) = vbYes Then
             Set objMailDocument = objMail.GetInspector.WordEditor
             Set objMailSelection = objMailDocument.Application.Selection
 
             objMailDocument.Range(0, 0).Select
             objMailSelection.MoveEnd wdLine
 
             'Take first line of body as subject
             objMail.Subject = objMailSelection.Text
          End If
       End If
     End If
End Sub

その後、「Application_S」にカーソルを置きますtar「tup」サブルーチンを選択し、「F5」を押します。
最後に、試してみることができます。

最初に、件名のみが空のメールを作成して作成します。
次に、「送信」ボタンをクリックします。
後で、本文の最初の行を件名にするかどうかを尋ねるメッセージが表示されます。
「はい」ボタンを選択している限り、メール本文の最初の行が抽出されて件名として使用され、メールが送信されます。

Outlookデータを安全に保つ

絶対に、Outlookには複数の重要な電子メールやその他の項目があります。したがって、Outlookのデータ損失に遭遇することを望まない必要があります。次に、Outlookの定期的なデータバックアップの作成、組み込みの修復ツールの使用方法の学習など、いくつかのアクションを実行する必要があります。 Outlookを修正するエラーと堅牢な外部リカバリユーティリティの準備。 DataNumen Outlook Repair PSTの回復率が高いため、これは良い選択です。

著者紹介：

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