メール送信後、送信済みアイテムから添付ファイルを自動的に削除する方法は？
添付ファイル付きのメールを送信すると、その添付ファイルはデフォルトでメール本体とともに「送信済みアイテム」フォルダーに保存されます。PST ファイルのサイズを小さく保つため、メール送信後に「送信済みアイテム」から添付ファイルを自動的に削除したい場合があります。本記事では、Outlook でこのタスクを実行する方法をご紹介します。
メール送信後に送信済みアイテムから添付ファイルを自動的に削除する
メール送信後に送信済みアイテムから添付ファイルを自動的に削除する
以下の VBA コードを使えば、Outlook でメールを送信した後に添付ファイルを自動的に削除できます。次の手順に従ってください。
1「ALT」キーと「F11」キーを同時に押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。
2。「Microsoft Visual Basic for Applications」ウィンドウで、「Project1 (VbaProject.OTM)」ペイン内の「ThisOutlookSession」をダブルクリックしてモジュールを開き、次のコードを空のモジュールにコピー＆ペーストしてください。
VBA コード：送信済みアイテムからメール送信後に添付ファイルを自動削除する方法：
Public WithEvents SentMailItems As Outlook.Items
Private Sub Application_Startup()
Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Sub SentMailItems_ItemAdd(ByVal Item As Object)
Dim xSentMail As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xAttachmentInfo As String
On Error Resume Next
If Item.Class = olMail Then
Set xSentMail = Item
End If
Set xAttachments = xSentMail.Attachments
For i = xAttachments.Count To 1 Step -1
Set xAttachment = xAttachments.Item(i)
xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
"</BODY></HTML>" & vbCrLf & xAttachmentInfo
xAttachment.Delete
Next
xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
xSentMail.Save
End Sub
3 上記のコードを挿入した後、Outlook を再起動してコードを有効にしてください。
4これ以降、添付ファイル付きのメールを送信すると、以下のスクリーンショットのように、送信済みアイテム内の添付ファイルが自動的に削除されます。
注記：このコードは、デフォルトのデータアカウントでのみご利用いただけます。
最高の Office 生産性ツール
まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！
🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。
📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...
📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...
📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...
🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...
👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...
👩🏼🤝👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...
Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！
ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！
🚀 ワンクリックダウンロード — Office アドインをすべて入手
強く推奨：Kutools for Office（5-in-1）
ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！
- ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
- 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
- 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint