Outlookで送信した後に電子メールの添付ファイルを自動削除する方法

Outlookソリューション 2025 年 9 月 29 日

送信後に電子メールの添付ファイルを削除することに慣れている場合は、この記事で紹介した方法を使用できます。この方法では、OutlookVBAを使用して自動取得します。

送信メールの添付ファイルは通常自分のPCに保存されているため、メールを送信した後に添付ファイルを削除することに慣れている場合があります。これにより、PSTファイルのサイズが小さくなり、Outlookのパフォーマンスが向上するだけでなく、PSTが破損する可能性も低くなります。したがって、Outlookに送信メールの添付ファイルを自動的に削除させたい場合は、VBAコードを適用する次の方法を使用できます。

送信後にメールの添付ファイルを自動的に削除する

最初に、Outlookアプリケーションを起動します。
次に、「Alt + F11」キーのショートカットを押します。
次に、OutlookVBAエディターに入ります。
続いて、「ThisOutlookSession」プロジェクトウィンドウを開く必要があります。
次に、次のVBAコードをコピーして貼り付けます。

Public WithEvents objSentMails As Outlook.Items

Private Sub Application_Startup()
    Set objSentMails = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub

Private Sub objSentMails_ItemAdd(ByVal Item As Object)
    Dim objSentMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim i As Long
    Dim strAttachmentInfo As String
 
    'Only work on emails
    If Item.Class = olMail Then
       Set objSentMail = Item
    End If
 
    Set objAttachments = objSentMail.attachments
 
    While objAttachments.Count > 0
          'Get the information of removed attachments
          strAttachmentInfo = "<HTML><BODY>Attachment Removed: " & objAttachments.Item(1).DisplayName & "</HTML></BODY>---------------------------------------------------------" & strAttachmentInfo
          objAttachments.Item(1).Delete
    Wend
 
    'Insert the information of removed attachments to the body
    objSentMail.HTMLBody = strAttachmentInfo & objSentMail.HTMLBody
    objSentMail.Save
End Sub

その後、このコードに署名する必要があります。

まず、VBAプロジェクトのデジタル証明書を使用して証明書を作成します。
次に、この証明書を新しいマクロに割り当てます。「ツール」>「署名」をクリックし、画面の指示に従ってください。

後で、Outlookのメインウィンドウに戻り、[開発者]タブの[マクロセキュリティ]をクリックできます。
次に、ポップアップダイアログボックスで、マクロ設定を変更して、デジタル署名されたマクロを許可します。
最後に解像度tarOutlookを使用して、新しいVBAプロジェクトをアクティブ化します。
これ以降、次のスクリーンショットのように、メールを送信するたびに、その添付ファイルは自動的に削除されます。

Outlookの問題を時間内に解決する

Outlookがエラーを起こしやすいことは疑いの余地のない事実です。したがって、Outlookデータを損失や破損から保護したい場合は、定期的なデータバックアップの作成や堅牢性の維持など、多くの労力を費やす必要があります。 Outlookの修正近くのツールなど DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。破損したmdf と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com