VBA로 첨부 파일없이 보관

Outlook 용 Kutools로 첨부 파일없이 보관

이 방법은 보관할 지정된 폴더에서 모든 첨부 파일을 삭제하는 VBA를 도입 한 다음 첨부 파일없이 보관할 수 있습니다. 다음과 같이하십시오 :

1. 에서 우편 보기에서 보관할 폴더를 선택하고 다른 + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭 한 다음 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. 딸깍 하는 소리 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 정보 > 도구 > 오래된 항목 정리 (또는 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 정보 > 정리 도구 > 아카이브).

5. 아카이브 대화 상자에서 클릭하여 복사된 폴더를 강조 표시하고 다음을 입력하십시오. 오늘 FBI 증오 범죄 보고서 다음보다 오래된 항목 보관 상자를 클릭 한 다음 검색 단추. 스크린 샷보기 :

6. Outlook 데이터 파일 열기 대화 상자에서 보관된 PST 파일을 저장할 폴더를 열고 PST 파일 이름을 파일 이름 상자를 클릭 한 다음 OK 단추. 스크린 샷보기 :

7. 이제 아카이브 대화 상자로 돌아가서 OK 버튼을 누르면 아카이빙이 완료됩니다.
지금까지 첨부 파일 없이 메일 폴더를 보관했습니다.

Outlook 용 Kutools가 설치되어있는 경우 적용 할 수 있습니다. 모두 분리 보관할 지정된 폴더에서 모든 첨부 파일을 빠르게 삭제한 다음 첨부 파일 없이 쉽게 보관할 수 있는 기능입니다.

1. 에서 우편 보기, 보관할 지정된 메일 폴더를 열고를 눌러 모든 이메일을 선택하십시오. Ctrl 키 + A 키를 누른 다음 쿠툴 > 모두 분리. 스크린 샷보기 :

2. 폴더를 선택하십시오 대화 상자에서 검색 단추  첨부 파일을 저장할 폴더를 지정하려면 다음 스타일로 하위 폴더를 만듭니다. 드롭 다운 목록을 클릭하고 Ok 단추. 스크린 샷보기 :

3. 클릭하세요 가능 버튼 OK 팝업 대화 상자에서 버튼을 연속적으로 누릅니다.

4. 클릭으로 이동 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 정보 > 도구 > 오래된 항목 정리 (또는 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 정보 > 정리 도구 > 아카이브).

5. 보관 대화 상자에서 첨부 파일 없이 보관할 지정된 폴더를 클릭하여 강조 표시하고 다음을 입력하십시오. 오늘 FBI 증오 범죄 보고서 다음보다 오래된 항목 보관 상자를 클릭 한 다음 검색 단추. 스크린 샷보기 :

6. Outlook 데이터 파일 열기 대화 상자에서 보관된 PST 파일을 저장할 폴더를 열고 PST 파일 이름을 파일 이름 상자를 클릭 한 다음 OK 단추. 스크린 샷보기 :

7. 이제 아카이브 대화 상자로 돌아가서 OK 버튼을 누르면 아카이빙이 완료됩니다.

지금까지는 이미 첨부 파일 없이 지정된 메일 폴더를 보관했습니다.

Outlook에서만 첨부 파일을 자동으로 보관하는 방법은 무엇입니까?

Outlook에서 연도 / 월 / 일별로 이메일을 보관하는 방법은 무엇입니까?