보낸 편지함에서 이메일을 보낸 후 첨부 파일을 자동으로 삭제하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

첨부 파일이 포함된 이메일을 보낼 때, 첨부 파일은 기본적으로 보낸 편지함 폴더에 이메일과 함께 저장됩니다. 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