아웃룩에서 제목에 대한 드롭다운 목록을 어떻게 생성합니까?
아웃룩에서 다양한 미리 설정된 이메일 제목을 다른 수신자에게 배포해야 할 수 있습니다. 이메일을 작성할 때 수동으로 입력하지 않고도 제목을 선택할 수 있는 제목 줄 드롭다운 목록이 있으면 매우 효율적입니다. 아래의 gif가 보여주는 것처럼 말이죠. 이 튜토리얼에서는 세 가지 VBA 코드를 제공하여 미리 설정된 다양한 제목으로 드롭다운 목록을 생성하는 데 도움을 드립니다. 이메일을 작성할 때 드롭다운에서 필요한 제목을 선택하면 자동으로 제목 줄에 채워집니다. 단계별 가이드를 따라 완료하세요.
VBA 코드로 아웃룩에서 제목에 대한 드롭다운 목록 생성하기
사실, 아웃룩은 제목 줄에 드롭다운 목록을 추가하는 것을 허용하지 않습니다. 여기서는 사용자 폼을 생성하고 이를 VBA 코드와 결합하여 작업을 완료해야 합니다.
1. 아웃룩을 실행하고 "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.
2. "Microsoft Visual Basic for Applications" 창에서 "삽입" > "사용자 폼"을 클릭합니다.
3. 그런 다음 "Visual Basic" 편집기의 왼쪽 창에 "Project1" 아래에 "UserForm1"이 삽입됩니다. "Toolbox"에서 "ComboBox"와 "CommandButton"을 각각 드래그하여 "UserForm1"에 콤보 박스와 명령 버튼을 추가해야 합니다.
4. 명령 버튼을 마우스 오른쪽 버튼으로 클릭하고 마우스 오른쪽 버튼 메뉴에서 "속성"을 선택합니다.
5. "Properties – CommandButton1" 창에서 "Caption" 필드를 "확인"으로 변경합니다. 이 동작은 명령 버튼에 표시되는 텍스트를 변경합니다.
6. UserForm의 빈 영역을 두 번 클릭하여 해당하는 "UserForm (Code)" 창을 열고 기존 코드를 다음 VBA 코드로 바꿉니다.
VBA 코드 1: 여러 미리 설정된 이메일 제목을 포함한 드롭다운 목록이 있는 UserForm
Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
With ComboBox1
.AddItem "Subject 1"
.AddItem "Subject 2"
.AddItem "Subject 3"
.AddItem "Subject 4"
.AddItem "Subject 5"
.AddItem "No change"
End With
End Sub
Private Sub CommandButton1_Click()
GCbbIndex = ComboBox1.ListIndex
GSelSubject = ComboBox1.Value
Unload Me
End Sub
참고: 코드에서 "Subject 1, 2, 3, 4" 및 "5"는 이메일에서 사용하려는 미리 설정된 이메일 제목입니다. “No change”는 기존 이메일 제목을 변경하지 않음을 의미합니다. 필요에 따라 VBA 코드에서 미리 설정된 이메일 제목을 변경할 수 있습니다.
7. "Project1" > "Microsoft Outlook Objects" > "ThisOutlookSession"을 두 번 클릭합니다. 그런 다음 다음 VBA 코드를 "ThisOutlookSession (Code)" 창에 복사합니다.
ThisOutlookSession 창에서 사용되는 VBA 코드 2
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GInlineMail = Item
End Sub
8. 계속해서 "Visual Basic" 편집기에서 "삽입" > "모듈"을 클릭합니다. 그런 다음 다음 VBA 코드를 "Module (Code)" 창에 복사하여 붙여넣습니다.
모듈 창에서 사용되는 VBA 코드 3
Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
Dim xItem As MailItem
Dim xMail As Outlook.MailItem
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set xMail = GInlineMail
Debug.Print "Explorer"
Case "Inspector"
Set xMail = Application.ActiveInspector.CurrentItem
Debug.Print "Inspector"
End Select
UserForm1.Show
If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
xMail.Subject = GSelSubject
End If
End Sub
9. 코드를 저장하고 "Alt" + "Q" 키를 눌러 "Visual Basic Editor" 창을 닫고 아웃룩 애플리케이션으로 돌아갑니다.
10. "홈" 탭 아래의 "새 이메일" 버튼을 클릭하여 이메일을 작성합니다.
11. 새 메시지 창에서 "빠른 실행 도구 모음 사용자 정의" > "추가 명령"을 클릭합니다.
12. "Outlook 옵션" 대화 상자에서 다음과 같이 구성해야 합니다.
13. 그러면 리본에 버튼이 
메시지 창의 리본에 추가된 것을 확인할 수 있습니다.
14. 이제 아웃룩을 다시 시작해야 합니다.
15. 이메일 메시지를 작성할 때 미리 설정된 제목을 삽입하려면 새로 추가된 리본의 버튼을 클릭하여 사용자 폼을 표시하고, 드롭다운 메뉴에서 제목을 선택한 다음 "확인" 버튼을 클릭하여 제목 줄에 채웁니다.
참고:
아웃룩의 AI 메일 도우미: 더 스마트한 답장, 더 명확한 커뮤니케이션 (한 번의 클릭으로 끝내기!) ⚡ 무료
Kutools for Outlook의 AI 메일 도우미로 매일 처리하는 아웃룩 작업을 간소화하세요. 이 강력한 도구는 과거 이메일을 학습하여 지능적이고 정확한 답변을 제공하고, 이메일 내용을 최적화하며, 초안 작성 및 메시지 수정을 쉽게 도와줍니다.
이 기능은 다음을 지원합니다:
- 스마트 답장: 과거 대화를 기반으로 맞춤형, 정확한 답변을 받아보세요. 바로 사용할 수 있습니다.
- 개선된 콘텐츠: 이메일 텍스트를 자동으로 다듬어 명확도와 영향력을 높여보세요.
- 손쉬운 작문: 키워드만 제공하면 AI가 나머지를 처리해 다양한 작문 스타일로 도와줍니다.
- 지능적인 확장: 맥락에 맞는 제안으로 생각을 확장하세요.
- 요약 기능: 긴 이메일의 간결한 요약본을 즉시 받아보세요.
- 글로벌 도달: 이메일을 손쉽게 다른 언어로 번역하세요.
이 기능은 다음을 지원합니다:
- 스마트 이메일 답장
- 최적화된 콘텐츠
- 키워드 기반 초안 작성
- 지능적인 콘텐츠 확장
- 이메일 요약
- 다국어 번역
가장 좋은 점은 이 기능이 영원히 완전 무료라는 것입니다! 기다리지 말고 지금 AI 메일 도우미를 다운로드하고 즐겨보세요!
최고의 오피스 생산성 도구
속보: Kutools for Outlook 무료 버전 출시!
새롭게 달라진 Kutools for Outlook에서100가지 이상의 놀라운 기능을 경험해보세요! 지금 다운로드하세요!
🤖 Kutools AI : 첨단 AI 기술을 활용해 이메일을 손쉽게 처리합니다. 회신, 요약, 최적화, 확장, 번역, 작성까지 모두 지원합니다.
📧 이메일 자동화: 자동 응답(POP 및 IMAP 지원) / 이메일 보내기 예약 / 이메일 전송 시 규칙별 자동 참조/숨은 참조 / 자동 전달(고급 규칙) / 자동 인사말 추가 / 여러 수신자 이메일을 개별 이메일로 자동 분할 ...
📨 이메일 관리: 이메일 회수 / 제목 및 기타 기준으로 의심스러운 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 정리 ...
📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 다양한 이모지 / 중요한 이메일이 오면 알림 / Outlook 종료 대신 최소화 ...
👍 원클릭 기능: 모두 회신 (첨부 파일 포함) / 피싱 방지 이메일 / 🕘보낸 사람의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...
원하는 언어로 Kutools를 사용하세요 – 영어, 스페인어, 독일어, 프랑스어, 중국어 및40가지 이상을 지원합니다!
한 번의 클릭으로 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