Outlookでメールの添付ファイルをフォルダーに保存して名前を変更するにはどうすればよいですか？
Outlookでは、通常、添付ファイル付きのメールを受信することがあります。以下のスクリーンショットのように、メールの添付ファイルの名前を変更してフォルダーに保存しようとしたことはありますか？明らかに、それらをフォルダーに保存し、1つずつ名前を変更することはできますが、実際には、すべての添付ファイルを同じ名前で一括して名前を変更し、1つのフォルダーに保存できるVBAコードがあります。
Kutools for Outlookを使用してフォルダー内の添付ファイルの名前を変更して保存する
同じ名前の添付ファイルをフォルダーに保存して名前を変更する
1. 添付ファイルを保存し、同じ名前に変更したいメールを選択します。
2. 「Alt」+「F11」キーを押して、「プロジェクト1」ペインで「ThisOutlookSession」をダブルクリックし、右側のセクションに新しい空のスクリプトを作成します。その後、コードをコピーして貼り付けます。
VBA: 添付ファイルの名前を変更して保存する
Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object 'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xAttachment.SaveAsFile xFilePath
Set xFile = xFSO.GetFile(xFilePath)
xCount = 1
Saved = False
xExt = "." & xFSO.GetExtensionName(xFilePath)
xTmpName = xNewName
xNewName = xTmpName & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Else
xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
While Saved = False
xNewName = xTmpName & xCount & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Saved = True
Else
xCount = xCount + 1
End If
Wend
End If
Next
Next
Set xFSO = Nothing
End Sub
3. 「ツール」>「参照設定」をクリックし、表示されるダイアログで「Microsoft Script Runtime」チェックボックスをオンにします。
 |  |  |
4. 「OK」をクリックし、「F5」キーを押してコードを実行すると、「フォルダーの参照」ダイアログが表示され、添付ファイルを配置するためのフォルダーを選択または作成できます。
5. クリックしてください OKそして、添付ファイルに名前を付けます。
6. 「OK」をクリックすると、添付ファイルは同じ名前で名前が変更されます。重複がある場合、重複したものは接尾辞として番号が追加されます。
元の添付ファイルを含む返信メッセージをOutlookで送信 |
| ご存知の通り、Outlookで受信者にメッセージを返信する際、元のメッセージに添付されていた添付ファイルは削除されてしまいます。添付ファイルを保持したまま返信したい場合、Kutools for Outlookの「添付ファイル付きで返信」機能をお試しください。この機能を使用すると、元の添付ファイルを含んだメッセージを簡単に返信できます。また、すべてのメッセージにも対応しています。 全機能を見るには 30 日間の無料トライアルをご利用ください！ |
 |
| Kutools for Outlook: 便利なOutlookアドインが数十種類揃っており、30日間、制限なく無料でお試しいただけます。 |
Kutools for Outlookを使用してフォルダー内の添付ファイルの名前を変更して保存する
実際、「Kutools for Outlook」には、Outlookの便利なアドインツールであり、添付ファイルを保存または送信する前にすべての添付ファイルの名前を変更する機能があります。
無料でインストール Kutools for Outlookを、以下の手順に従って操作してください：
1. メールをナビゲーションペインまたはメッセージボックスでアクティブにし、「Kutools」>「添付ファイルツール」>「すべての名前を変更」をクリックします。
2. 表示されるダイアログで、各添付ファイルに使用する新しい名前を入力します。「OK」をクリックすると、添付ファイルが新しい名前で変更されます。
3. 1つの添付ファイルを右クリックし、「すべての添付ファイルを保存」を選択し、「OK」をクリックして、添付ファイルを保存するフォルダーを選択します。これで、名前が変更された添付ファイルがフォルダーに保存されます。
最高のオフィス生産性ツール
速報: Kutools for Outlook が無料版をリリース！
新しい Kutools for Outlook の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます！今すぐダウンロードをクリック！
🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。
📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...
📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...
👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除...
Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう！
