Outlook에서 전자 메일을 전달할 때 첨부 파일의 이름을 바꾸는 방법

Outlook 솔루션 2025 년 9 월 29 일

때로는 여러 첨부 파일이 포함 된 이메일을 전달할 때 전달할 때 첨부 파일의 이름을 직접 바꾸고 싶을 수 있습니다. 이 기사에서는 Outlook VBA를 사용하여 수행하는 방법을 설명합니다.

기본적으로 Outlook에서는 사용자가 전달할 때 첨부 파일의 이름을 바꾸는 것을 허용하지 않습니다. 따라서 이름을 바꾸려면 먼저 파일을 컴퓨터의 로컬 폴더에 저장 한 다음 이름을 바꾼 다음 전달 이메일에 다시 첨부하는 것이 유일한 방법입니다. 분명히이 방법은 상당히 번거 롭습니다. 또한 때로는 이러한 파일이 필수적 일 수 있으므로 컴퓨터에 저장하고 싶지 않을 수도 있습니다. 이 상황에서는 전달 이메일에서 직접 첨부 된 파일의 이름을 바꿀 수있는 더 빠른 방법이 필요합니다. 다음은 Outlook VBA를 통해이를 실현하는 방법입니다.

이메일을 전달할 때 첨부 파일 이름 바꾸기

먼저 Outlook을 시작하고 "개발자"탭으로 이동합니다.
그런 다음 "Visual Basic"버튼을 찾아 클릭합니다.
그런 다음 새 팝업 창에서 "삽입"> "모듈"을 선택하여 새 모듈을 엽니 다.
그 후 다음 VBA 코드를 복사하여 붙여 넣어야합니다.

Sub RenameAttachmentsWhenForwarding()
    Dim olItem As MailItem
    Dim Att As Attachment
    Dim Atts As Attachments
    Dim olForward As MailItem
    Dim FWAtt As Attachment
    Dim FWAtts As Attachments
    Dim FSO As Object
    Dim TempFPath As Object
    Dim FilePath As String
    Dim strName As String
    Dim strExten As String
    Dim strFile As String
 
    Set olItem = Application.ActiveExplorer.Selection.Item(1)
    Set Atts = olItem.Attachments
    Set olForward = olItem.Forward
    olForward.Display
 
    On Error Resume Next
 
    For Each Att In Atts
        'Get the path to Temporary Folder
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set TempFPath = FSO.GetSpecialFolder(2)
        FilePath = TempFPath.Path & "\"
 
        'Rename the attachments
        strName = InputBox("Enter a new name for" & vbCrLf & Att.FileName)
        'Change "4" based on the length of the attachment file extension
        strExten = Right(Att.FileName, 4)
        strFile = FilePath & strName & "." & strExten
 
        If strName <> "" Then
           'Save the attachments to the Temporary Folder
           Att.SaveAsFile (strFile)
 
           'Add the attachments saved in new names from the Temporary Folder
           olForward.Attachments.Add (strFile)
           Set FWAtts = olForward.Attachments
 
           'Remove the original attachments
           For Each FWAtt In FWAtts
               If InStr(FWAtt.FileName, Att.FileName) > 0 Then
                  FWAtt.Delete
               End If
           Next
        End If
    Next
End Sub

그런 다음 현재 "Visual Basic"창을 종료하고 평소와 같이 빠른 실행 도구 모음에 새 매크로를 추가 할 수 있습니다.
마지막으로 시도해 볼 수 있습니다.

먼저 이메일을 선택한 다음 빠른 실행 도구 모음에서 새 매크로 버튼을 클릭합니다.
그러면 새 전달 이메일이 열립니다. "첨부 됨"행에서 원래 이름으로 첨부 된 파일을 볼 수 있으며 특정 첨부 파일에 대한 새 이름을 입력하라는 대화 상자도 표시됩니다.
모든 파일에 대해 새 이름을 지정하고 "확인"을 클릭하면 첨부 된 모든 파일이 새 이름으로되어있는 것을 볼 수 있습니다.
결국 전달 이메일을 작성하고 "보내기"버튼을 눌러 메시지를 보낼 수 있습니다.

Outlook에 대한 모든 잠재적 위협에 대한 경고 유지

Outlook은 손상되기 쉽습니다. 따라서 바이러스 감염, 맬웨어 공격 및 바이러스 감염을 포함한 모든 위협으로부터 Outlook 데이터를 보호하는 것은 오래 전부터 시작된 작업입니다. Outlook PST 데이터 손상, 등등. most 중요한 조치는 Outlook 데이터를 정기적으로 백업하는 것입니다. 또한 다음과 같은 최신 수리 도구를 근처에 두는 것이 현명합니다. DataNumen Outlook Repair, 편리합니다.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 mdf 수리 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM