보낸 편지함에서 이메일을 보낸 후 첨부 파일을 자동으로 제거하는 방법은 무엇입니까？
첨부 파일이 포함된 이메일을 보내면 해당 첨부 파일은 기본적으로 보낸 편지함 폴더의 이메일과 함께 저장됩니다. 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 지원)/이메일 예약 발송/이메일 발송 시 규칙에 따라 자동 참조/숨은 참조/자동 전달(고급 규칙)/자동 인사말 추가/수신자 여러 명이 포함된 이메일을 자동으로 개별 메시지로 분할...
📨이메일 관리:이메일 회수/제목 등을 기준으로 피싱 이메일 차단/중복된 이메일 삭제/고급 검색/폴더 정리...
📁첨부파일 프로:일괄 저장/일괄 분리/일괄 압축/자동 저장/자동 분리/자동 압축...
🌟인터페이스 마법:😊더 예쁘고 멋진 이모지 제공/중요 이메일 수신 시 알림/Outlook 종료 대신 최소화...
👍한 번의 클릭으로 해결:모두 회신(첨부 파일 포함)/피싱 이메일 방지/🕘발신자의 현재 시간 시간대 표시...
👩🏼🤝👩🏻연락처 및 캘린더:선택한 이메일에서 연락처 추가 일괄 생성/연락처 그룹를 개별 그룹으로 분할/생일 알림 제거...
Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 및 40+개의 다른 언어를 지원합니다！
한 번의 클릭으로 즉시 Kutools for Outlook 의 잠금을 해제하세요。 더 이상 기다리지 마시고 지금 다운로드하여 업무 효율을 높이세요！
🚀 한 번의 클릭으로 다운로드 — 모든 Office 애드인 받기
강력히 권장： Kutools for Office (5-in-1)
한 번의 클릭으로다섯 개의 설치 프로그램을동시에 다운로드하세요 —Kutools for Excel, Outlook, Word, PowerPoint및Office Tab Pro.지금 다운로드하세요！
- ✅한 번의 클릭으로 편리하게： 다섯 개의 설치 패키지를 한 번에 다운로드하세요。
- 🚀모든 Office 작업에 대비 완료： 필요한 시점에 필요한 애드인을 설치하세요。
- 🧰포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint