메인 컨텐츠로 가기

Outlook에서 선택한 여러 이메일을 MSG 파일로 대량으로 저장하는 방법은 무엇입니까?

Outlook에서 이메일을 MSG 파일로 저장하는 것은 쉽습니다. Outlook에서 여러 개의 선택한 이메일을 개별 MSG 파일로 대량으로 저장하려면 어떻게해야합니까? 이 기사는 그것을 달성하는 방법을 보여줄 것입니다.

VBA 코드를 사용하여 선택한 여러 이메일을 MSG 파일로 저장


VBA 코드를 사용하여 선택한 여러 이메일을 MSG 파일로 저장

다음 VBA 코드를 사용하면 선택한 여러 전자 메일을 Outlook에서 개별 MSG 파일로 대량으로 저장할 수 있습니다. 다음과 같이하십시오.

1. MSG 파일로 저장할 이메일을 선택합니다. 그런 다음 Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2. Microsoft Visual Basic for Applications 창에서 삽입> 모듈을 클릭 한 다음 VBA 코드 아래를 모듈 창에 복사합니다.

VBA 코드 : 선택한 여러 이메일을 Outlook에서 개별 MSG 파일로 저장

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. F5 키를 눌러 코드를 실행합니다.

4. 폴더 찾아보기 대화 상자에서 MSG 파일을 저장할 폴더를 지정한 후 확인 버튼을 클릭하세요. 스크린샷 보기:

이제 선택한 모든 이메일은 아래 스크린샷과 같이 개별 MSG 파일로 저장됩니다.


Outlook에서 선택한 이메일을 다른 형식의 파일로 쉽게 저장 :

와 더불어 대량 저장 ~의 유용성 Outlook 용 Kutools, 아래 스크린 샷과 같이 Outlook에서 여러 개의 선택된 이메일을 개별 HTML 형식 파일, TXT 형식 파일, Word 문서, CSV 파일 및 PDF 파일로 쉽게 저장할 수 있습니다. 지금 다운로드하여 사용해 보세요! (60일 무료 트레일)


최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It doesn't seem to work when emails are displayed in conversation mode or from a Group folder.
This comment was minimized by the moderator on the site
Hi, i am new to macro. i am looking for a macro that allows me to save the filename, not by subject or time. But by the reference # found inside the email body. This macro works well when i save multiple emails into my folder. But as i want each email to be saved using the reference #, would you have a macro for it? The reference # is found on the 6th row of the emails body (REF : WL344ET2), that i received everyday. Appreciate if anyone can help on this and thank you in advance.
This comment was minimized by the moderator on the site
When there is a ":" in the subject, this code cannot copy the whole subject to be the name of the saved message, is there any way to solve this problem?
This comment was minimized by the moderator on the site
change line 21 to xName="". The saved message filname will not include the subject anymore.
This comment was minimized by the moderator on the site
A better way is to always replace ":" with blanks adding this line under xName = xMail.Subject

xName = Replace(xName, ":", "")
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations