VBAによる添付ファイルなしのアーカイブ

Outlook用Kutoolsによる添付ファイルなしのアーカイブ

この方法では、アーカイブする指定したフォルダーからすべての添付ファイルを削除するVBAが導入され、添付ファイルなしでアーカイブできます。 次のようにしてください。

1。 の中に Mail 表示し、アーカイブするフォルダを選択して、を押します 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

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

VBA：Outlookで選択したメールフォルダからすべての添付ファイルを削除します

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""
End If
Wend
If xDeletedFilePath <> "" Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "
" & _
"The file(s) were saved to: " & xDeletedFilePath & "
" & xMailItem.HTMLBody
End If
xMailItem.Save
xDeletedFilePath = ""
End If
End If
Next
Exit Sub:
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

3。 プレス F5 キーを押すか、 ラン ボタンをクリックしてコードを実行します。 その後、すべての添付ファイルが選択したメール フォルダーから直ちに削除されます。

4に設定します。 OK をクリックします。 File > インフォ > ツール > 古いアイテムをクリーンアップする （または File > インフォ > クリーンアップツール > Archive).

5。 [アーカイブ] ダイアログ ボックスで、コピーしたフォルダーをクリックして強調表示し、次のように入力します。 TODAY セクションに 古いアイテムをアーカイブする ボックスをクリックし、 ブラウズ ボタン。 スクリーンショットを参照してください：

6。 [Outlook データ ファイルを開く] ダイアログ ボックスで、アーカイブされた PST ファイルを保存するフォルダーを開いて、PST ファイルに名前を付けます。 ファイル名 ボックスをクリックし、 OK ボタン。 スクリーンショットを参照してください：

7。 [アーカイブ]ダイアログボックスに戻ったら、[アーカイブ]をクリックしてください。 OK ボタンをクリックしてアーカイブを終了します。
ここまでは、添付ファイルなしでメール フォルダーをアーカイブしました。

Kutools for Outlookがインストールされている場合は、それを適用できます すべてを切り離す アーカイブする指定フォルダーからすべての添付ファイルをすばやく削除し、添付ファイルなしで簡単にアーカイブする機能。

1。 の中に Mail 表示し、アーカイブする指定したメール フォルダーを開き、 を押してすべてのメールを選択します Ctrlキー + A キーを押してから、 クツール > すべてを切り離す。 スクリーンショットを参照してください：

2。 [フォルダーを選択してください] ダイアログ ボックスで、 ブラウズ (Comma Separated Values) ボタンをクリックして、各々のジョブ実行の詳細（開始/停止時間、変数値など）のCSVファイルをダウンロードします。  添付ファイルを保存するフォルダーを指定するには、サブフォルダー スタイルを指定します。 次のスタイルでサブフォルダーを作成します ドロップダウンリストをクリックして、 Ok ボタン。 スクリーンショットを参照してください：

3。 クリックしてください 有り ボタンと OK ポップアップダイアログボックスでボタンを続けて押します。

4。 クリックしてください File > インフォ > ツール > 古いアイテムをクリーンアップする （または File > インフォ > クリーンアップツール > Archive).

5。 [アーカイブ] ダイアログ ボックスで、添付ファイルなしでアーカイブする指定したフォルダーをクリックして強調表示し、次のように入力します。 TODAY セクションに 古いアイテムをアーカイブする ボックスをクリックし、 ブラウズ ボタン。 スクリーンショットを参照してください：

6。 [Outlook データ ファイルを開く] ダイアログ ボックスで、アーカイブされた PST ファイルを保存するフォルダーを開いて、PST ファイルに名前を付けます。 ファイル名 ボックスをクリックし、 OK ボタン。 スクリーンショットを参照してください：

7。 [アーカイブ]ダイアログボックスに戻ったら、[アーカイブ]をクリックしてください。 OK ボタンをクリックしてアーカイブを終了します。

これまでのところ、指定されたメール フォルダーは添付ファイルなしでアーカイブされています。

Outlookでのみ添付ファイルを自動的にアーカイブするにはどうすればよいですか？

Outlookで年/月/日付ごとに電子メールをアーカイブする方法は？