Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

Outlookで返信するときにすべての添付ファイルの名前をコピーするにはどうすればよいですか?

OutlookでRTF電子メール(リッチフォーマットとしてフォーマットされている)に返信すると、すべての添付ファイルの名前がコピーされ、メッセージ本文に自動的に貼り付けられます(下のスクリーンショットを参照)。 ただし、OutlookでHTMLメールに返信すると、返信メールに添付ファイルがありません。 ここでは、この記事では、電子メールに返信するとき、または受信した電子メールに直接、すべての添付ファイルの名前をコピーするいくつかの方法を紹介します。


HTMLをRTFに変更して返信する場合は、すべての添付ファイルの名前をコピーしてください

返信する前にHTMLメールをRTFに変換した場合、Outlookで[ホーム]> [返信]をクリックすると、すべての添付ファイルの名前が返信メッセージにコピーされます。

1。 添付ファイルの名前をコピーする必要があるメールをダブルクリックして開き、[ お問合わせ内容 > アクション > メッセージの編集 メッセージウィンドウで。 スクリーンショットを参照してください:

2。 クリックしてください 書式テキスト > リッチテキスト、メールを保存して閉じます。

3。 ここで、メインビューに戻ります。 メールを選択し続け、クリックします ホーム > 返信.

4。 これで、以下のスクリーンショットに示すように、すべての添付ファイルの名前が元の電子メールからコピーされ、返信メッセージに貼り付けられます。 返信メッセージを作成して送信してください。

VBAで返信するときは、すべての添付ファイルの名前をコピーしてください

このメソッドは、電子メールに返信するときにすべての添付ファイルの名前をコピーするVBAマクロを導入し、Outlookの返信メールのメッセージ本文に名前を貼り付けます。

1。 押す 他の + F11 キーを同時に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2。 左側のプロジェクトエクスプローラーで、プロジェクト1を展開し、ダブルクリックして開きます。 ThisOutlookSession ウィンドウ(下のスクリーンショットを参照)をクリックし、以下のコードをウィンドウに貼り付けます。

VBA:Outlookでメールに返信するときに、すべての添付ファイルの名前をコピーします

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3に設定します。 OK をクリックします。 BHツール > リファレンス.

4。 Outlook 1の最初の[参照–プロジェクト2016]ウィンドウで、 Microsoft Word16.0オブジェクトライブラリ [利用可能な参照]ボックスで参照し、[ OK ボタン。 スクリーンショットを参照してください:

ノート:を選択してください Microsoft Word15.0オブジェクトライブラリ Outlook 2013を使用している場合は参照、または Microsoft Word14.0オブジェクトライブラリ Outlook2010との参照。

5。 VBAを保存し、Microsoft Visual Basic forApplicationsウィンドウを閉じます。

6。 ここで、Outlookのメインインターフェイスに戻ります。 返信するメールを選択して、 ホーム > 返信 or 全員に返信.
ノート: 添付ファイル名がコピーされて返信メールに貼り付けられていない場合は、Outlookを再起動してもう一度返信してください。

これで、すべての添付ファイルの名前が選択した電子メールからコピーされ、返信電子メールに貼り付けられます。 スクリーンショットを参照してください:


すばらしいツールで返信するときは、すべての添付ファイル名をコピーしてください

あなたが持っている場合 Outlook用Kutools インストールすると、適用できます 名前をコピーする 受信した電子メールからすべての添付ファイル名をすばやくコピーし、Outlookに返信メッセージを簡単に貼り付ける機能。

Outlook用Kutools:Outlook用の便利なツールを100以上追加し、60日以内に制限なしで無料で試すことができます。 続きを読む       今すぐ無料トライアル

1。 返信するメールを選択して、 クツール > アタッチメントツール > 名前をコピーする.

次に、ダイアログが表示され、添付ファイル名がクリップボードにコピーされたことが通知されます。 クリック OK それを閉じる。

2。 クリックしてください ホーム > 返信 選択したメールに返信します。

3。 返信メッセージウィンドウで、メッセージ本文にカーソルを置き、を押します。 Ctrlキー + V 添付ファイル名を簡単に貼り付けるためのキー。

Outlookに保存されているすべての元の添付ファイルを使用して、選択した電子メールに簡単に返信できます

通常、Outlookで電子メールに返信すると、元の添付ファイルは削除されます。 しかし、素晴らしい 添付ファイルで返信 Kutools for Outlookの機能により、Outlookで返信するときに、メールのすべての添付ファイルを簡単に保持できます。 クリックして60日間の無料トライアルを無制限に!
添付ファイルで返信


関連記事:


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

  • 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
  • BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
  • メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
  • 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
  • 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。
ショットkutoolsの見通しkutoolsタブ1180x121
ショットkutoolsの見通しkutoolsプラスタブ1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.