Outlook 에서 첨부 파일을 삽입하기 위해 파일 대화 상자를 빠르게 여는 방법은 무엇인가요？

작성자Siluvia수정 날짜2024-09-13

이메일을 작성할 때 첨부 파일을 삽입해야 하는 경우 일반적으로 [삽입] > [파일 첨부] > [이 PC 찾아보기]를 클릭하여 [파일 삽입] 대화 상자를 연 다음 필요한 파일을 찾아 삽입합니다。 이 튜토리얼에서는 단 한 번의 클릭으로 [파일 삽입] 대화 상자를 쉽게 열 수 있도록 도와주는 두 가지 VBA 코드를 제공합니다。

VBA 로 파일 대화 상자를 열어 첨부 파일 삽입하기

다음 VBA 코드는 다음을 수행할 수 있습니다：

VBA 코드 1: 컴퓨터의 기본 문서 폴더 열기
VBA 코드 2: 컴퓨터의 지정된 폴더 열기

다음을 따라 설정을 완료하세요。

1. Outlook 을 실행한 후Alt+F11키를 눌러Microsoft Visual Basic for Applications창을 엽니다。

2. Microsoft Visual Basic for Applications창에서도구>참조를 클릭한 후，Microsoft Scripting Runtime확인란을참조 – Project1대화 상자에서 선택합니다。

3. 삽입>모듈을 클릭합니다。 그런 다음 다음 VBA 코드 중 하나를모듈창에 복사합니다。

VBA 코드 1: 컴퓨터의 기본 문서 폴더 열기

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

VBA 코드 2: 컴퓨터의 지정된 폴더 열기

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

참고 사항：

1) VBA 코드 1 는 컴퓨터의 기본 문서 폴더를 여는 데 도움을 줍니다。

2) VBA 코드 2 에서 다음 줄의 파일 경로를 필요한 파일 경로로 변경하세요。
xFileDlg.InitialFileName = 「C:\Users\Win10x64Test\Desktop\save attachments\」
그러면 이 코드를 실행할 때마다 지정된 폴더가 열립니다。

4. Alt+Q키를 눌러Microsoft Visual Basic for Applications창을 닫습니다。

이제 매크로를 실행할 버튼이 필요합니다。

5. 홈>새 이메일를 클릭하여 새 이메일를 생성합니다。 메시지 창에서빠른 실행 도구 모음 사용자 지정>추가 명령을 클릭합니다。

6. Outlook 옵션대화 상자에서 다음과 같이 설정합니다。

6.1)명령 선택 기준드롭다운 목록에서매크로；

6.2) 이전 단계에서 추가한 매크로를 선택합니다；

6.3)추가버튼을 클릭하여 이 매크로를빠른 실행 도구 모음 사용자 지정상자에 추가합니다。

7. 오른쪽 상자에서 스크립트를 선택한 상태로 유지한 후수정버튼을 클릭합니다。단추 수정대화 상자에서 이 스크립트에 새 단추를 할당하고확인을 클릭합니다。

8. 확인을 클릭하여Outlook 옵션대화 상자에서 변경 내용을 저장합니다。

9. 7 단계에서 지정한 버튼이빠른 실행 도구 모음에 추가됩니다。 이메일을 작성할 때 첨부 파일을 삽입하려면 이 버튼을 클릭하여찾기폴더를 열고 삽입할 파일을 선택하면 됩니다。

최고의 Office 생산성 도구

Kutools for Outlook 의 완전히 새로운 버전을 100+가지 놀라운 기능과 함께 경험해 보세요！지금 다운로드하세요！

🤖KUTOOLS AI:고급 AI 기술을 활용하여 이메일 회신， 요약， 최적화， 확장， 번역， 작성 등 이메일 관련 작업을 손쉽게 처리합니다。

📧이메일 자동화:자동 회신(POP 및 IMAP 지원)/이메일 예약 발송/이메일 발송 시 규칙에 따라 자동 참조/숨은 참조/자동 전달(고급 규칙)/자동 인사말 추가/수신자 여러 명이 포함된 이메일을 자동으로 개별 메시지로 분할...

📨이메일 관리:이메일 회수/제목 등을 기준으로 피싱 이메일 차단/중복된 이메일 삭제/고급 검색/폴더 정리...

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

🌟인터페이스 마법:😊더 예쁘고 멋진 이모지 제공/중요 이메일 수신 시 알림/Outlook 종료 대신 최소화...

👍한 번의 클릭으로 해결:모두 회신(첨부 파일 포함)/피싱 이메일 방지/🕘발신자의 현재 시간 시간대 표시...

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

Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 및 40+개의 다른 언어를 지원합니다！

한 번의 클릭으로 즉시 Kutools for Outlook 의 잠금을 해제하세요。 더 이상 기다리지 마시고 지금 다운로드하여 업무 효율을 높이세요！

Kutools for Outlook 기능 목록 지금 다운로드 구매하러 가기

🚀 한 번의 클릭으로 다운로드 — 모든 Office 애드인 받기

강력히 권장： Kutools for Office (5-in-1)

한 번의 클릭으로다섯 개의 설치 프로그램을동시에 다운로드하세요 —Kutools for Excel, Outlook, Word, PowerPoint및Office Tab Pro.지금 다운로드하세요！

✅한 번의 클릭으로 편리하게： 다섯 개의 설치 패키지를 한 번에 다운로드하세요。
🚀모든 Office 작업에 대비 완료： 필요한 시점에 필요한 애드인을 설치하세요。
🧰포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

스위트 정보 ⬇ 스위트 다운로드 💳 스위트 구매