Outlook で電子メールの件名に添付ファイル名を自動的に入力する方法
Outlook で電子メールの件名として添付ファイル名を使用することに慣れている場合、件名に添付ファイル名を毎回手動で入力するのは時間がかかります。 下の gif に示すように、添付ファイルを挿入するときに電子メールの件名に添付ファイル名を自動的に入力する場合は、このチュートリアルの VBA メソッドが役立ちます。
電子メールの件名に添付ファイル名を VBA コードで自動的に入力する
次の VBA コードを実行して、電子メールの件名に Outlook に挿入された添付ファイルの名前を自動的に入力してください。
1. Outlookを起動し、を押します 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック プロジェクト1 (VbProject.OTM) > MicrosoftOutlookオブジェクト > このOutlookSession を開く ThisOutlookSession（コード） エディタ。
3. 次に、次の VBA コードを ThisOutlookSession（コード） エディタ。
VBAコード：電子メールの件名に添付ファイル名を自動入力
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. ここで、コードを保存して Outlook を再起動する必要があります。
5. 今後、件名がまだ入力されていないメールに添付ファイルを挿入すると、 Kutools for Outlook 添付ファイル名を件名として使用するかどうかを尋ねるダイアログ ボックスが表示されたら、 はい
件名には、挿入された添付ファイルの名前が自動的に入力されます。
ノート:
Outlook の AI メール アシスタント: よりスマートな返信、より明確なコミュニケーション (ワンクリックの魔法!) 無料
Kutools for Outlook の AI メール アシスタントを使用して、Outlook の日常的なタスクを効率化します。この強力なツールは、過去のメールから学習して、インテリジェントで正確な応答を提供し、メールのコンテンツを最適化し、メッセージを簡単に下書きおよび修正するのに役立ちます。
この機能は以下をサポートします。
- スマート返信: 過去の会話から作成された返信を、カスタマイズされ、正確で、すぐに使える状態で受け取ります。
- 強化されたコンテンツ: 電子メールのテキストを自動的に調整して、明確さとインパクトを高めます。
- 簡単な構成: キーワードを入力するだけで、あとは AI が複数の書き方で処理します。
- インテリジェントな拡張機能: コンテキストに応じた提案で考えを広げます。
- 要約: 長いメールの簡潔な概要を即座に取得します。
- グローバルリーチ: メールをあらゆる言語に簡単に翻訳できます。
この機能は以下をサポートします。
- スマートなメール返信
- 最適化されたコンテンツ
- キーワードベースの下書き
- インテリジェントなコンテンツ拡張
- 電子メールの要約
- 多言語翻訳
何よりも、この機能は 完全に 無料です。 永遠に！ 待ってはいけません—今すぐAIメールアシスタントをダウンロードしてお楽しみください!
最高のオフィス生産性向上ツール
速報: Outlook 向け Kutools がリリース 無償版!
まったく新しいKutools for Outlookを体験してください 70以上の素晴らしい機能を備えた無料版を永久にご利用いただけます! 今すぐダウンロードするにはクリックしてください！
🤖 クツールAI : 高度な AI テクノロジーを使用して、メールの返信、要約、最適化、拡張、翻訳、作成など、メールを簡単に処理します。
📧 自動メール: 自動返信（POP および IMAP で利用可能） / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールの取り消し / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / 重要なメールが届いたら通知する / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
ワンクリックでKutools for Outlookを即座にロック解除—永久に無料待たずに今すぐダウンロードして効率を高めましょう!
