Note: The other languages of the website are Google-translated. Back to English

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

Outlook で電子メールの件名として添付ファイル名を使用することに慣れている場合、件名に添付ファイル名を毎回手動で入力するのは時間がかかります。 下の gif に示すように、添付ファイルを挿入するときに電子メールの件名に添付ファイル名を自動的に入力する場合は、このチュートリアルの VBA メソッドが役立ちます。


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

次の VBA コードを実行して、電子メールの件名に Outlook に挿入された添付ファイルの名前を自動的に入力してください。

1. Outlookを起動し、を押します 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック Project1 (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. 今後、件名がまだ入力されていないメールに添付ファイルを挿入すると、 Outlook用Kutools 添付ファイル名を件名として使用するかどうかを尋ねるダイアログ ボックスが表示されたら、 あり ボタン。

件名には、挿入された添付ファイルの名前が自動的に入力されます。

免責事項:

1) 件名を既に入力している場合、添付ファイルを挿入してもダイアログ ボックスは表示されません。
2) 現在の電子メールから既存の件名を削除しても件名にカーソルが表示されたままの場合、添付ファイルを挿入してもダイアログ ボックスは表示されません。 件名を削除した後、コードを機能させるには、件名の行から離れたところをクリックしてメッセージ ボックスを更新する必要があります。
3) 複数の添付ファイルを同時に挿入した場合、最初の添付ファイルの名前のみが電子メールの件名として使用できます。

Kutools for Outlook-100の高度な機能をOutlookにもたらし、作​​業をはるかに簡単にします!

  • 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
  • BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
  • メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
  • 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
  • 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。
ショットkutoolsの見通しkutoolsタブ1180x121
ショットkutoolsの見通しkutoolsプラスタブ1180x121
 
コメントを並べ替える
コメント (7)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
Добрый день。 2 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の XNUMX 番目の今日は何の日ですか? Заранее спасибо
このコメントは、サイトのモデレーターによって最小化されました
こんにちは。

件名に複数の添付ファイル名を同時に追加してANDでつなぐということですか?
このコメントは、サイトのモデレーターによって最小化されました
だ。 Например перетащил два файла および он их имена написал через И. Именно два файла, больше не надо.
このコメントは、サイトのモデレーターによって最小化されました
こんにちは。 ТЕ при добавлении или перетягивании двух файлов тема письма писалась через И
このコメントは、サイトのモデレーターによって最小化されました
Добрый день。 ДА при добавлении 2 файлов в тему писалось через И.
このコメントは、サイトのモデレーターによって最小化されました
こんにちは。

次の VBA コードは、問題の解決に役立ちます。 ぜひお試しください。
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub
このコメントは、サイトのモデレーターによって最小化されました
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護