メインコンテンツへスキップ

Outlookで複数の電子メールから新しい電子メールにすべての添付ファイルをコピーするにはどうすればよいですか?

一般に、Outlookでコピーして貼り付けると、ある電子メールから別の電子メールに添付ファイルをコピーするのは簡単です。 しかし、添付ファイルを複数の電子メールから新しい電子メールにコピーするのはどうですか? この記事では、ソリューションを紹介します。

Office タブ - Microsoft Office でタブによる編集と参照を有効にし、仕事をスムーズにします
Kutools for Outlook - 100 以上の高度な機能で Outlook を強化し、優れた効率を実現します
これらの高度な機能を使用して、Outlook 2021 ~ 2010 または Outlook 365 を強化します。 包括的な 60 日間の無料トライアルを利用して、メール エクスペリエンスを向上させてください。

複数の電子メールから新しい電子メールにすべての添付ファイルをコピーします

この記事では、Outlookで複数の電子メールから新しい添付ファイルにすべての添付ファイルをすばやくコピーするVBAを紹介します。 次のようにしてください。

1。 添付ファイルをコピーする複数のメールを選択し、を押します 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。
Note: ホールディング Ctrlキー キーを押すと、隣接していない複数のメールをXNUMXつずつクリックして選択できます。 ホールディング シフト キーを押すと、最初のメールと最後のメールをクリックして、隣接する複数のメールを選択できます。

2に設定します。 OK をクリックします。 インセット > モジュール、次にVBAコードの下を新しいモジュールウィンドウに貼り付けます。

VBA:すべての添付ファイルを複数のメールから新しいメールにコピーします

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

3。 押す F5 キーまたは ラン このVBAを実行するためのボタン。

これで、選択したメールからすべての添付ファイルがコピーされ、新しいメールに貼り付けられたことがわかります。


すべての添付ファイルをメールから返信メールにコピーします

Kutools for Outlookがインストールされている場合は、それを適用できます 添付ファイルで返信 電子メールのすべての添付ファイルを Outlook の返信メールに簡単にコピーする機能。 次のようにしてください。

Outlook用Kutools: 100 を超える便利なツールを備えた究極の Outlook ツールキット。 60 日間無料でお試しいただけます。制限はなく、心配する必要はありません。   続きを読みます...   今すぐ無料トライアルを始めましょう!

返信するメールを選択し、クリックします クツール > 添付ファイルで返信 > 添付ファイルを添えて返信してください。 スクリーンショットを参照してください:

すべての添付ファイルが返信メールに自動的にコピーされることがわかります。


関連記事


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations