Outlookで件名のドロップダウンリストを作成するにはどうすればよいですか?
Outlookで異なる受信者に配布する必要があるさまざまな事前設定されたメール件名を持っているかもしれません。 メールを作成する際に、手動で入力することなく件名を選択できる件名行のドロップダウンリストがあると非常に効率的です。 下記のgifのように動作します。 このチュートリアルでは、異なる事前設定された件名を持つドロップダウンリストを作成するのに役立つ3つのVBAコードを提供します。 メールを作成する際、ドロップダウンから必要な件名を選択することで、件名行が自動的に埋められます。 ステップバイステップのガイドに従ってください。
VBAコードを使用してOutlookで件名のドロップダウンリストを作成する
実際には、Outlookは件名行にドロップダウンリストを追加することを許可していません。 ここでは、ユーザー フォームを作成し、それをVBAコードと組み合わせて完成させる必要があります。
1. Outlookを起動し、「Alt」+「F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。
2. 「Microsoft Visual Basic for Applications」ウィンドウで、「挿入」>「ユーザー フォーム」をクリックします。
3. その後、「プロジェクト1」の左ペインにある「Visual Basic」エディタに「UserForm1」が挿入されます。「ツールボックス」から「ComboBox」と「CommandButton」をそれぞれドラッグして、「UserForm1」にコンボボックスとコマンドボタンを追加する必要があります。
4. コマンドボタンを右クリックし、右クリックメニューで「プロパティ」を選択します。
5. 「プロパティ – CommandButton1」ペインで、「キャプション」フィールドを「OK」に変更します。 この操作により、コマンドボタンに表示されるテキストが変更されます。
6. UserFormの空白部分をダブルクリックして対応する「UserForm(コード)」ウィンドウを開き、既存のコードを次のVBAコードに置き換えます。
VBAコード1: 複数の事前設定されたメール件名を含むドロップダウンリスト付きのUserForm
Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
With ComboBox1
.AddItem "Subject 1"
.AddItem "Subject 2"
.AddItem "Subject 3"
.AddItem "Subject 4"
.AddItem "Subject 5"
.AddItem "No change"
End With
End Sub
Private Sub CommandButton1_Click()
GCbbIndex = ComboBox1.ListIndex
GSelSubject = ComboBox1.Value
Unload Me
End Sub
注: コード内の「件名1、2、3、4」および「5」は、メールで使用したい事前設定された件名です。「変更なし」は、既存のメール件名を何も変更しないことを意味します。 必要に応じて、VBAコード内の事前設定された件名を変更できます。
7. 「Project1」>「Microsoft Outlook Objects」>「ThisOutlookSession」をダブルクリックします。 次に、次のVBAコードを「ThisOutlookSession(コード)」ウィンドウにコピーします。
ThisOutlookSessionウィンドウで使用されるVBAコード2
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GInlineMail = Item
End Sub
8. 「Visual Basic」エディタで「挿入」>「モジュール」を続けてクリックします。 次に、次のVBAコードを「モジュール(コード)」ウィンドウにコピーして貼り付けます。
モジュールウィンドウで使用されるVBAコード3
Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
Dim xItem As MailItem
Dim xMail As Outlook.MailItem
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set xMail = GInlineMail
Debug.Print "Explorer"
Case "Inspector"
Set xMail = Application.ActiveInspector.CurrentItem
Debug.Print "Inspector"
End Select
UserForm1.Show
If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
xMail.Subject = GSelSubject
End If
End Sub
9. コードを保存し、「Alt」+「Q」キーを押して「Visual Basic Editor」ウィンドウを閉じ、Outlookアプリケーションに戻ります。
10. 「ホーム」タブの下にある「新規メール」ボタンをクリックしてメールを作成します。
11. 新しいメッセージウィンドウで、「クイックアクセスツールバーのユーザー定義」>「その他のコマンド」をクリックします。
12. 「Outlookオプション」ダイアログボックスで、次のように設定する必要があります。
13. これで、ボタンが メッセージウィンドウのリボンに追加されたことが確認できます。
14. これでOutlookを再起動する必要があります。
15. メールメッセージを作成する際、事前設定された件名を挿入する必要がある場合は、リボンに追加された新しいボタンをクリックしてユーザーフォームを表示し、ドロップダウンメニューから件名を選択して「OK」ボタンをクリックすると、件名行に自動的に入力されます。
注:
OutlookのAIメールアシスタント:スマートな返信、クリアなコミュニケーション(ワンクリックで魔法のような操作!) 無料
Kutools for OutlookのAIメールアシスタントを使用して、毎日のOutlookタスクを効率化しましょう。この強力なツールは、過去のメールから学習し、インテリジェントで正確な返信を提供し、メールの内容を最適化し、メッセージの作成や修正を手間なく行うことができます。

この機能がサポートする内容:
- スマート返信:過去の会話に基づいて調整された、的確で使用準備の整った返信を取得します。
- 強化されたコンテンツ:メールの文章を自動的に洗練させ、明瞭さと影響力を高めます。
- 簡単な作成:キーワードを入力するだけで、複数のライティングスタイルでAIが残りを処理します。
- インテリジェント拡張:文脈を理解した提案で考えを広げます。
- 要約:長文のメールを瞬時に簡潔にまとめます。
- グローバル対応:メールを簡単にどの言語にも翻訳できます。
この機能がサポートする内容:
- スマートメール返信
- 最適化されたコンテンツ
- キーワードベースの下書き
- インテリジェントなコンテンツ拡張
- メールの要約
- 多言語翻訳
何より、この機能は永遠に完全無料です!今すぐAIメールアシスタントをダウンロードしてお楽しみください!
最高のオフィス生産性ツール
最新情報: Kutools for Outlook 無料版リリース!
新しくなった Kutools for Outlook を100以上の素晴らしい機能とともに体験してください!今すぐダウンロードしてみましょう!
🤖 Kutools AI : 高度なAI技術を活用し、メールの返信、要約、最適化、拡張、翻訳、作成までを簡単に処理します。
📧 メール自動化: 自動返信(POPとIMAPに対応) / スケジュール電子メールを送信 /送信時にルールで自動 CC/BCC / 高度なルールによる自動転送 / 挨拶を自動追加 / 複数宛先メールを自動的に一通ずつ分割...
📨 メール管理: メールの取り消し / 件名などで詐欺メールをブロックする / 重複メールを削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: 一括保存 / 一括切り離し / 一括圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェイスマジック: 😊さらに美しくてクールな絵文字 /重要なメール到着時に通知 / Outlookを閉じるのではなくグループを最小化...
👍 ワンクリック便利機能: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーン表示...
👩🏼🤝👩🏻 連絡先&カレンダー: 選択したメールから一括で連絡先を追加 /連絡先グループを個別グループに分割 / 誕生日のリマインダーを削除...
お好みの言語で Kutools を利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語に対応!
Kutools for Outlookをワンクリックですぐに利用開始。待たずに今すぐダウンロードして効率を高めましょう!


🚀 ワンクリックダウンロード — Office用アドインをすべて入手
強くおすすめ: Kutools for Office(5-in-1)
ワンクリックで五つのインストーラーを同時ダウンロード ― Kutools for Excel、Outlook、Word、PowerPoint、Office Tab Pro。 今すぐダウンロード!
- ✅ ワンクリックの便利さ: 五つのセットアップパッケージを一度にダウンロードできます。
- 🚀 あらゆるOffice作業に準備完了: 必要なアドインをいつでもインストール可能です。
- 🧰 含まれるもの: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint