메인 컨텐츠로 가기

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

작가: 썬 최종 수정 날짜: 2020-10-23

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

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

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


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

우리 모두 알고 있듯이 Outlook에서 수신자에게 메시지를 회신하면 첨부 파일이 원본 메시지에서 제거됩니다. 첨부 파일을 유지하면서 마사지에 답장하고 싶다면 시도해 볼 수 있습니다. Outlook 용 Kutools's 첨부 파일로 답장 기능, 그것은 원본 첨부 파일로 하나의 메시지에 응답 할 수 있으며 모든 messafe에서도 작동합니다.    전체 기능 30일 무료 평가판을 보려면 클릭하십시오!
 
첨부 파일로 문서 회신
 
Outlook 용 Kutools : 수십 개의 편리한 Outlook 추가 기능이 있으며 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다.
Office 탭 - Microsoft Office에서 탭 편집 및 탐색을 활성화하여 작업을 원활하게 만듭니다.
Outlook용 Kutools 잠금 해제 비어 있는 버전 지금 무제한으로 영원히 액세스할 수 있는 70개 이상의 기능을 즐겨보세요
이러한 고급 기능으로 Outlook 2021~2010 또는 Outlook 365를 향상하세요. 70개 이상의 강력한 기능을 즐기고 이메일 경험을 향상시켜보세요!

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

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 , 포함 사항  Microsoft Outlook 2016, 2013, 2010 및 Office 365를위한 강력한 기능 및 도구입니다.

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

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

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

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


최고의 사무 생산성 도구

속보: Outlook용 Kutools 출시 무료 버전!

완전히 새로운 Outlook용 Kutools를 경험해보세요 70개 이상의 놀라운 기능을 갖춘 무료 버전으로 영원히 사용할 수 있습니다.! 지금 다운로드하려면 클릭하세요!

🤖 Kutools AI : AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 자동 회신(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 리콜 이메일  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  중요한 이메일이 오면 알림  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

한 번의 클릭으로 Outlook용 Kutools를 즉시 잠금 해제—영구적으로 무료. 기다리지 마세요. 지금 다운로드하여 효율성을 높이세요!

 

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks, it is ridiculous that we have to go to these lengths to do something that should be handled by the application
This comment was minimized by the moderator on the site
Hi! How can this work if having multiple emails? Is this only for multiple attachments in same email? Thanks!
This comment was minimized by the moderator on the site
Hey there! Do you know how we can improve the below code to rename the file when saved?

Public Sub UnzipFileInOutlook(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\acheng\Desktop"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder
Set objAtt = Nothing
Next
End Sub
This comment was minimized by the moderator on the site
Hello, Lipe, may be this code can help you.

Private Sub CopyToDefaultCalendarFld(ByVal Item As Object)
Dim xCopiedAppointment As Outlook.AppointmentItem
Dim xMovedAppointment As Outlook.AppointmentItem
Dim xMeeting As MeetingItem
Dim xApoint As AppointmentItem
On Error Resume Next
If Item.Class = olAppointment Then
Set xApoint = Item
Set xCopiedAppointment = xApoint.Copy
Set xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
If xApoint.Subject <> xMovedAppointment.Subject Then
If InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Then
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Save
End If
End If
ElseIf Item.Class = olMeetingRequest Then
Set xMeeting = Item
Set xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
Set xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
If xMeeting.Subject <> xMovedAppointment.Subject Then
If InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Then
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Save
End If
End If
xCopiedAppointment.Delete
End If
Set xCopiedAppointment = Nothing
End Sub
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations