Note: The other languages of the website are Google-translated. Back to English

Outlook의 폴더에 전자 메일 첨부 파일의 이름을 바꾸고 저장하는 방법은 무엇입니까?

Outlook에서는 일반적으로 첨부 파일이있는 메시지를받을 수 있으며 메시지 첨부 파일의 이름을 바꾸고 아래 스크린 샷과 같이 폴더에 저장하려고합니까? 분명히 폴더에 저장하고 하나씩 이름을 바꿀 수 있지만 실제로 VBA 코드가 있으면 동일한 이름의 모든 첨부 파일의 이름을 빠르게 바꾼 다음 하나의 폴더에 저장할 수 있습니다.
문서 이름 바꾸기 저장 첨부 1

폴더에 같은 이름으로 첨부 파일의 이름을 바꾸고 저장

Outlook 용 Kutools를 사용하여 폴더에 첨부 파일 이름 변경 및 저장


Outlook에서 원본 첨부 파일이있는 회신 메시지

우리 모두 알고 있듯이 Outlook에서 수신자에게 메시지를 회신하면 첨부 파일이 원본 메시지에서 제거됩니다. 첨부 파일을 유지하면서 마사지에 답장하고 싶다면 시도해 볼 수 있습니다. Outlook 용 Kutools's 첨부 파일로 답장 기능, 그것은 원본 첨부 파일로 하나의 메시지에 응답 할 수 있으며 모든 messafe에서도 작동합니다.    전체 기능을 보려면 60일 무료 평가판을 클릭하십시오!
 
첨부 파일로 문서 회신
 
Outlook 용 Kutools : 수십 개의 편리한 Outlook 추가 기능이 있으며 60 일 동안 제한없이 무료로 사용해 볼 수 있습니다.
Office 탭-Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Outlook 용 Kutools-Microsoft Outlook에 100 개의 강력한 고급 기능 제공
  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 규칙에 따른 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -메일 주소가 숨은 참조 목록에있는 경우 모두 답장하려고 할 때 메시지를 표시합니다. 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 모든 첨부 파일로 회신 (전체) 메일 대화에서; 한 번에 많은 이메일에 답장하십시오. 인사말 자동 추가 대답 할 때; 제목에 날짜 및 시간 자동 추가 ...
  • 부착 도구: 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 자동 저장 ... 빠른 보고서, 선택한 메일 수, 중복 메일 및 연락처 제거 ...
  • 100개 이상의 고급 기능이 대부분의 문제 해결 Outlook 2021 - 2010 또는 Office 365에서. 전체 기능은 60일 무료 평가판입니다.

폴더에 같은 이름으로 첨부 파일의 이름을 바꾸고 저장

1. 첨부 파일을 저장할 메시지를 선택하고 동일한 이름으로 이름을 바꿉니다.

2. 프레스 Alt + F11keys, 다음에서 Project1 창, 두 번 클릭 ThisOutlook세션 오른쪽 섹션에 새 빈 스크립트를 만든 다음 코드를 복사하여 붙여 넣습니다.

VBA : 첨부 파일 이름 바꾸기 및 저장

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

문서 이름 바꾸기 폴더에 첨부 파일 저장 2

3. 클릭 도구 > 참조, 팝업 대화 상자에서 Microsoft 스크립트 런타임 확인란의 선택을 취소합니다.

문서 이름 바꾸기 폴더에 첨부 파일 저장 3 문서 화살표 오른쪽 문서 이름 바꾸기 폴더에 첨부 파일 저장 4

4. 클릭 OK, 언론 F5 코드를 실행하는 키, 폴더 찾아보기 첨부 파일을 저장할 폴더를 선택하거나 생성 할 수있는 대화 상자가 나타납니다.
문서 이름 바꾸기 폴더에 첨부 파일 저장 5

5. 클릭 OK을 클릭 한 다음 첨부 파일의 이름을 지정하십시오.
문서 이름 바꾸기 폴더에 첨부 파일 저장 6

6. 클릭 OK, 이제 첨부 파일의 이름이 동일한 이름으로 변경되고 중복이있는 경우 중복 된 첨부 파일은 접미사로 번호가 추가됩니다.


Outlook 용 Kutools를 사용하여 폴더에 첨부 파일 이름 변경 및 저장

사실, 기능이 있습니다 Outlook 용 Kutools -Outlook의 편리한 추가 도구는 저장하거나 보내기 전에 모든 첨부 파일의 이름을 바꿀 수 있습니다.

Kutools for Outlook , 포함
100
 Microsoft Outlook 2016, 2013, 2010 및 Office 365를위한 강력한 기능 및 도구입니다.

무료 설치 Outlook 용 Kutools를 누른 다음 아래 단계를 수행하십시오.

1. 원하는대로 설명 창 또는 메시지 상자에서 이메일을 활성화하고 쿠툴 > 부착 도구모두 이름 바꾸기.
문서 이름 바꾸기 저장 첨부 2

2. 팝업 대화 상자에서 각 첨부 파일에 사용하는 새 이름을 입력합니다. 딸깍 하는 소리 OK, 첨부 파일의 이름이 새 이름으로 변경되었습니다.
문서 이름 바꾸기 저장 첨부 3 

3. 하나의 첨부 파일을 마우스 오른쪽 버튼으로 클릭하고 모든 첨부 파일 저장클릭 OK 필요에 따라 첨부 파일을 저장할 폴더를 선택하십시오. 그런 다음 이름이 바뀐 첨부 파일이 폴더에 저장되었습니다.
문서 이름 바꾸기 저장 첨부 5 
문서 이름 바꾸기 저장 첨부 5


Outlook 용 Kutools-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
코멘트 (4)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이봐! 저장 시 파일 이름을 변경하기 위해 아래 코드를 개선하는 방법을 알고 있습니까?

공개 하위 UnzipFileInOutlook(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
문자열로 저장 폴더 흐리게
saveFolder = "C:\Users\acheng\Desktop"
itm.Attachments의 각 objAtt에 대해
objAtt.SaveAsFile 저장 폴더
설정 objAtt = 없음
다음
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Lipe, 이 코드가 도움이 될 수 있습니다.

Private Sub CopyToDefaultCalendarFld(ByVal 항목을 개체로)
Dim xCopiedAppointment As Outlook.AppointmentItem
Dim xMovedAppointment As Outlook.AppointmentItem
Dim xMeeting as MeetingItem
Dim xApoint As AppointmentItem
오류에 대한 다음 재개
Item.Class = olAppointment이면
xApoint = 항목 설정
xCopiedAppointment = xApoint.Copy 설정
xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder) 설정
xApoint.Subject <> xMovedAppointment.Subject 그러면
InStr(1, xMovedAppointment.Subject, "복사: ") > 0이면
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "복사: ", "", 1, 1)
xMovedAppointment.Save
END IF
END IF
ElseIf Item.Class = olMeetingRequest 다음
xMeeting = 항목 설정
xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy 설정
xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder) 설정
xMeeting.Subject <> xMovedAppointment.Subject 그러면
InStr(1, xMovedAppointment.Subject, "복사: ") > 0이면
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "복사: ", "", 1, 1)
xMovedAppointment.Save
END IF
END IF
xCopiedAppointment.삭제
END IF
xCopiedAppointment = 없음 설정
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕! 이메일이 여러 개인 경우 어떻게 작동합니까? 동일한 이메일의 여러 첨부 파일에만 해당됩니까? 감사해요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 애플리케이션에서 처리해야 하는 작업을 수행하기 위해 이러한 길이로 이동해야 한다는 것은 우스꽝스러운 일입니다.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호