Outlook에서 여러 전자 메일의 첨부 파일을 한 번에 저장 하시겠습니까?

누군가 파일 첨부 파일 하나와 함께 밤새 200 개의 이메일을 보냈습니다. 한숨

다음 3 박 동안 매일 밤 200을 더 기대하고 있습니다 (이메일은 서버에서 온 것이므로 배치를 요구하는 것은 불가능합니다).

첨부 파일에는 고유 한 파일 이름이 있으므로 전체 전자 메일 그룹에서 첨부 파일을 한 번에 저장하는 간단한 방법이 있습니까?

각 이메일을 개별적으로 열고 마우스 오른쪽 버튼을 클릭하고 저장하고 헹구고 반복 해야하는 것이 싫습니다 ...

VBA에 능숙하고 Excel 매크로를 만드는 것이 매우 편안하므로 모든 메시지에 대해 주어진 폴더를 탐색하고 각 폴더에 대한 첨부 파일을 저장하는 것이 비교적 쉽다고 생각할 수 있지만 이전에는 Outlook 매크로를 작성하지 않았지만 익숙하지 않았습니다. 객체 계층

NirSoft의 OutlookAttachView 는 명령 줄에서도 쉽게이를 수행 할 수 있습니다!

OutlookAttachView는 Outlook에 저장된 모든 메시지를 검색하고 찾은 모든 첨부 파일 목록을 표시합니다. 하나 이상의 첨부 파일을 쉽게 선택하여 원하는 폴더에 모두 저장할 수있을뿐만 아니라 사서함에 디스크 공간이 너무 많은 원하지 않는 큰 첨부 파일을 삭제할 수 있습니다. 첨부 파일 목록을 xml / html / text / csv 파일로 저장할 수도 있습니다.

OutlookAttachView는 프리웨어입니다.

Outlook 첨부 파일 리무버 추가 기능 :

첨부 파일을 저장하고 추출하여 Outlook 파일의 크기를 줄이는 무료 Outlook 추가 기능. 사용하기 쉬운. 많은 기능.

여기에 더 많은 옵션이 있습니다.

Sue Mosher 사이트 http://slipstick.com 은 Outlook을위한 환상적인 리소스입니다. 그녀는 또한 Microsoft MVP이기도합니다.

: 당신이 거기 코더를 들어 하드 드라이브에 첨부 파일 저장을 교대 및 VBA를 사용하여 저장 및 열기 첨부 파일을 .

다음 코드는 Outlook 2000 이상에서 작동합니다. 선택한 메시지의 첨부 파일을 저장하지만 메시지에서 첨부 파일은 삭제하지 않습니다.

…

이 페이지의 코드를 복사하여 ThisOutlookSession 프로젝트에 붙여 넣습니다.

Outlook에서 Alt + F11을 눌러 VBA 편집기를 열고 Microsoft Outlook Objects를 확장 한 다음 ThisOutlookSession을 두 번 클릭하여 편집 창에서 열고 Ctrl + V를 클릭하여 코드를 붙여 넣습니다.

이를 사용하려면 먼저 내 문서 아래에 OLAttachments라는 폴더를 만들어야합니다 (코드는 폴더를 만들지 않습니다). 그런 다음 하나 이상의 메시지를 선택하고 매크로를 실행하여 첨부 파일을 저장하십시오. 매크로를 활성화하거나 매크로에 서명하기 전에 경고하도록 매크로 보안을 설정해야합니다. 코드를 편집하여 첨부 파일이 저장된 폴더 이름 또는 경로를 변경할 수 있습니다.

Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String

    ' Get the path to your My Documents folder
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next

    ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")

    ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection

' The attachment folder needs to exist
' You can change this to another folder name of your choice

    ' Set the Attachment folder.
    strFolderpath = strFolderpath & "\OLAttachments\"

    ' Check each selected item for attachments. 
    For Each objMsg In objSelection

    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count

    If lngCount > 0 Then

    ' Use a count down loop for removing items
    ' from a collection. Otherwise, the loop counter gets
    ' confused and only every other item is removed.

    For i = lngCount To 1 Step -1

    ' Get the file name.
    strFile = objAttachments.Item(i).FileName

    ' Combine with the path to the Temp folder.
    strFile = strFolderpath & strFile

    ' Save the attachment as a file.
    objAttachments.Item(i).SaveAsFile strFile

    Next i
    End If

    Next

ExitSub:

Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing
End Sub

프로그래밍하지 않으려는 경우 : Outlook 용 첨부 파일 관리 도구

나는 30 개 메일 나에게 분할 RAR 파일을 보낼 좋은 줄 알았는데 사람의 전자 메일과 폭격 후, 나는 성공적으로 사용했던 마이크로 소프트에 의해 출판이 VBA 스크립트 라고합니다 mAttachmentSaver.

먼저, 스크립트가 포함 된 아카이브 를 다운로드 해야합니다 .

매크로가 활성화되어 있어야합니다. Outlook 2010에서는 파일»옵션»보안 센터»보안 센터 설정»매크로 설정»모든 매크로 사용»확인»확인으로 이동하면 됩니다. 그런 다음 Outlook을 다시 시작해야합니다. 이전 버전의 경우 도구»매크로»보안…에 있습니다.

그런 다음 TechCenter 기사에 설명 된 단계를 수행하십시오.

• Alt+F11Outlook에서 VBE를 열려면 누릅니다 .

• mAttachmentSaver.bas파일을 프로젝트 탐색기로 드래그 Ctrl+R하거나 (표시되지 않으면 누르 십시오) 파일 >> 파일 가져 오기 ... ( Ctrl+M) 를 통해 파일을 드래그 하십시오 .

  ExecuteSaving매크로를 실행하여 첨부 파일을 저장하십시오.

• Outlook UI로 돌아가서를 눌러 Alt+F8매크로 창을 엽니 다.

• 선택 ExecuteSaving클릭 한 다음 이름 목록 및 실행 버튼 (이 매크로를 실행하기 전에 Outlook 항목 (들)을 선택하는 것을 기억하십시오).

• 폴더 찾아보기 대화 상자 에서 첨부 파일을 저장할 특정 폴더를 선택한 다음 확인 버튼 을 클릭하십시오 .