사용자는 Outlook과 별도로 전자 메일을 보거나 다른 사람과 공유하기 위해 하드 드라이브에 전자 메일을 저장하려고 할 수 있습니다. 이 기사에서는 VBA를 통해 자동으로 수행하는 방법을 소개합니다.
Outlook에서 이메일 내보내기
모든 인터넷 사용자가 Outlook을 이메일 클라이언트로 사용하는 것은 아니며 대체 클라이언트를 사용하고있을 수 있습니다. 실제 이메일을 보내지 않고 다른 사람과 이메일을 공유해야하는 상황도있을 수 있습니다. 또한 문서화 및 정밀 조사 목적으로 이메일이 종종 증거로 제공됩니다. 이러한 시나리오의 경우 Outlook은 이메일을 .msg 또는 .html 파일로 독립적으로 내보내는 방법을 제공합니다. 다음 VBA 스크립트는 html 형식의 사용자 개입없이 모든 수신 이메일을 하드 드라이브의 미리 정의 된 위치에 자동으로 저장합니다. 일단 저장되면 이메일 클라이언트 없이도 모든 인터넷 브라우저에서 이메일을 볼 수 있습니다.
Outlook VBA 스크립트
다음은 전체 Outlook VBA 스크립트입니다.
Private WithEvents Items As Outlook.Items
Private Count As Integer
Private Sub Application_Startup()
Dim objApp As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
' Get the items in the Inbox folder
Set objApp = Outlook.Application
Set objNameSpace = objApp.GetNamespace("MAPI")
Set Items = objNameSpace.GetDefaultFolder(olFolderInbox).Items
' Initialize count
Count = 1
End Sub
Private Sub Items_ItemAdd(ByVal objItem As Object)
On Error GoTo ShowError
Dim objMail As Outlook.MailItem
' Check if the item is a mail. If yes, then save it as a HTML file and update Count
If TypeName(objItem) = "MailItem" Then
Set objMail = objItem
objMail.SaveAs "C:\MyEmails\MyEmail" & CStr(Count), olHTML
Count = Count + 1
End If
Exit Sub
ShowError:
MsgBox Err.Number & " - " & Err.Description
End Sub
스크립트 실행 방법
PR 기사 Alt + F11 Outlook VBA 편집기를 열고 위의 코드를 "ThisOutlookSession"에 붙여넣으세요. 이 스크립트를 실행하기 전에 "C:\MyEmails" 폴더가 존재하고 사용자에게 쓰기 권한이 있는지 확인하십시오. 또한, 이 스크립트를 실행하기 전에 "도구" 메뉴에서 Microsoft Outlook XX 개체 라이브러리를 프로젝트 참조에 추가해야 합니다. 여기서 XX는 라이브러리 버전입니다.
스크립트 이해
위 스크립트에서 "Items_ItemAdd" 루틴은 받은 편지함 폴더로 들어오는 모든 항목에 대해 실행됩니다. "TypeName" 함수는 항목이 이메일이고 다른 유형의 Outlook 개체인 경우에만 루틴이 실행되도록 합니다. 예를 들어 "보낸 편지함" 폴더에서 이메일을 받은 편지함으로 드래그하면 루틴은 여전히 작동합니다. "Items_ItemAdd" 루틴은 이메일이 기본 받은 편지함 폴더에 추가될 때만 실행된다는 점에 유의해야 합니다. 기본 받은 편지함 폴더 내에 하위 폴더가 있는 경우, 이메일이 하위 폴더에 추가되면 이 코드는 작동하지 않습니다. 다른 폴더에서도 작동하도록 하려면 "Application_Startup" 루틴에서 "Items_ItemAdd" 루틴을 해당 폴더에 연결해야 합니다. 위 스크립트에서 olHTML 형식은 olMSG, olRTF, olDoc 또는 olTxt 형식으로 대체할 수 있습니다. 저장할 각 이메일의 기본 이름 지정 형식은 "MyEmail##"이며, 여기서 ##는 1부터 시작하여 순차적으로 증가하는 번호입니다. 예를 들어, 이 스크립트를 실행한 후 수신된 열두 번째 이메일은 "MyEmail12"로 저장됩니다.
Outlook 실패 후 데이터 복구
Outlook이 깨져서 사용자가 많은 양의 데이터를 잃게되는 것은 드문 일이 아닙니다. 이러한 상황에서 복구하는 것은 매우 힘들고 시간이 많이 걸리는 작업 일 수 있습니다. 이러한 경우 생활을 쉽게하기 위해 Outlook 데이터 복구 효율적이고 버그없는 복구를위한 도구입니다.
저자 소개 :
Mary Underwood는 다음 분야의 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. dwg 복구 rar 복구 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM