열려 있거나 선택한 전자 메일에서 첨부 파일 정보 목록을 추출하고 싶습니까? 수동으로 가져 오려면 시간이 많이 걸립니다. 이 기사에서는 Outlook VBA를 사용하여이를 수행하는 빠른 방법을 소개합니다.
For some reasons, you may be required to get the list of attachment information from an email, including the attachment name, index and size, etc. Perhaps it’ because that you need to make a report or reply the email with the list of attachments. Regardless of why you require it, if you do it manually, namely checking and copying one by one, it will be quite troublesome and error prone. So why don’t you resort to VBA? It can help you to get all kinds of information about the attachments with utmost ease. Here are the detailed steps and corresponding VBA codes.
이메일에서 첨부 파일 정보 목록 추출
- 처음에는 Outlook을 정상적으로 시작하십시오.
- 그런 다음 "Alt + F11"바로 가기를 눌러 VBA 편집기에 액세스합니다.
- 다음 창에서 사용하지 않는 모듈을 열거 나“Insert”>“Module”을 선택하여 새 모듈을 삽입해야합니다.
- 다음으로 다음 VBA 코드를 복사하여 새 모듈에 붙여 넣을 수 있습니다.
Sub GetlAttachmentList()
Dim olItem As MailItem
Dim olAtt As attachment
Dim olAtts As Attachments
Dim sAttInfo As String
Dim Dataobj As DataObject
Select Case Application.ActiveWindow.Class
Case olExplorer
Set olItem = ActiveExplorer.Selection.Item(1)
Case olInspetor
Set olItem = ActiveInspector.CurrentItem
End Select
If TypeOf olItem Is MailItem Then
Set olAtts = olItem.Attachments
If olAtts.Count > 0 Then
For Each olAtt In olAtts
sAttInfo = sAttInfo & vbCrLf & "------------------------------------------------------------" & vbCrLf
sAttInfo = sAttInfo & "No. " & olAtt.Index & " : " & olAtt.DisplayName & " Size: " & olAtt.Size & ".KB"
Next
sAttInfo = sAttInfo & vbCrLf & "------------------------------------------------------------"
'Copy the attachment list
Set Dataobj = New MSForms.DataObject
Dataobj.SetText sAttInfo
Dataobj.PutInClipboard
End If
End If
End Sub
- 그런 다음 현재 창을 닫고 빠른 실행 도구 모음에 새 프로젝트를 추가 할 수 있습니다.
- 먼저 "파일"> "옵션"으로 이동합니다.
- 그런 다음 "Outlook 옵션"창에서 "빠른 액세스 도구 모음"탭으로 전환합니다.
- 그런 다음 아래 스크린 샷에 표시된 단계에 따라 새 매크로를 추가합니다.
- 기본 Outlook 창으로 돌아간 후 시도해 볼 수 있습니다.
- 먼저 이메일을 선택하고 빠른 실행 도구 모음에서 매크로 버튼을 누르십시오.
- 그러면이 이메일의 첨부 파일 목록이 클립 보드에 저장됩니다.
- 이제 새 이메일이나 빈 문서를 열고 "Ctrl + V"를 누를 수 있습니다. 그러면 다음 스크린 샷과 같은 목록이 표시됩니다.
Outlook 문제를 충족 할 때 지연되지 않음
Outlook에 가장 큰 단점이 있다는 사실은 부인할 수 없습니다. Outlook 이메일 오류, Outlook 충돌, 정지 또는 응답 없음 등. 따라서 여러 사용자가 많은 어려움을 겪었을 것입니다. 실제로받은 편지함 복구 도구를 먼저 사용하여 사용해 볼 수 있습니다. 실패하면 다음과 같은 더 강력한 도구로 전환해야 할 수 있습니다. DataNumen Outlook Repair.
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 수리 SQL Server mdf DB 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM