사용자는 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 Object librar"도구"메뉴에서 프로젝트 참조에 y를 추가해야합니다. 여기서 XX는 lib입니다.rary 버전.
스크립트 이해
스크립트에서 "Items_ItemAdd"루틴은받은 편지함 폴더로 들어오는 모든 항목에 대해 트리거됩니다. "TypeName"기능은 항목이 다른 유형의 Outlook 개체가 아닌 전자 메일 인 경우에만 루틴이 계속되도록하기 위해 있습니다. 다른 폴더에서 이메일을 드래그하여받은 편지함으로 "보낸 항목"이라고 말하면 루틴이 계속 작동하고 작업을 수행합니다. "Items_ItemAdd"는 이메일이 기본받은 편지함 폴더에 추가 된 경우에만 트리거된다는 점에 유의하십시오. 기본받은 편지함 폴더 내에 중첩 된 폴더가있는 경우 해당 폴더에 이메일이 추가되면 코드가 작동하지 않습니다. 다른 폴더에서 작동하게하려면 "Items_ItemAdd"를 "Application_S"의 특정 폴더에 연결해야합니다.tartup”루틴. 위 스크립트에서 olHTML 형식은 olMSG, olRTF, olDoc 또는 olTxt 형식으로 대체 할 수 있습니다. 저장할 각 이메일의 기본 이름 지정 형식은 "MyEmail ##"입니다. 여기서 ##은 개수입니다.tar1부터 시작하여 점차 증가합니다. 예를 들어,이 스크립트를 실행 한 후 12 번째 수신 이메일은 "MyEmailXNUMX"로 저장됩니다.
Outlook 실패 후 데이터 복구
Outlook이 깨져서 사용자가 많은 양의 데이터를 잃게되는 것은 드문 일이 아닙니다. 이러한 상황에서 복구하는 것은 매우 힘들고 시간이 많이 걸리는 작업 일 수 있습니다. 이러한 경우 생활을 쉽게하기 위해 Outlook 데이터 복구 효율적이고 버그없는 복구를위한 도구입니다.
저자 소개 :
Mary Underwood는 다음 분야의 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. dwg 회복 rar 복구 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM