오늘 생일인 연락처에 자동으로 인사말 메시지를 보내려면 Outlook에서 어떻게 해야 하나요?
때로는 Outlook에서 오늘 생일인 연락처에게 자동으로 인사말 메시지를 보내고 싶을 수 있습니다. 연락처의 생일을 하나씩 확인하고 인사말 이메일을 수동으로 보내는 것은 지루한 작업이 될 수 있습니다. 이 기사에서는 이를 빠르고 쉽게 해결할 수 있는 VBA 코드를 소개하겠습니다.
Outlook에서 VBA 코드를 사용하여 연락처의 생일에 따라 자동으로 인사말 메시지 보내기
Outlook에서 VBA 코드를 사용하여 연락처의 생일에 따라 자동으로 인사말 메시지 보내기
오늘 생일인 연락처에게 자동으로 인사말 메시지를 보내려면 먼저 VBA 코드를 삽입한 다음, 코드를 실행하기 위한 반복 작업을 생성해야 합니다.
다음 단계가 도움이 될 수 있습니다:
1. Outlook을 실행한 후 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.
2. Microsoft Visual Basic for Applications 창에서 Project1(VbaProject.OTM) 패널에서 ThisOutlookSession을 두 번 클릭하여 모듈을 열고, 다음 코드를 복사하여 빈 모듈에 붙여넣습니다.
VBA 코드: 생일에 따라 연락처에게 자동으로 인사말 메시지 보내기:
Private Sub Application_Reminder(ByVal Item As Object)
Dim xTempMail As MailItem
Dim xFilePath As String
Dim xItems As Outlook.Items
Dim xItem As Object
Dim xContactItem As Outlook.ContactItem
Dim xTodayDate As String
Dim xBirthdayDate As String
Dim xGreetingMail As Outlook.MailItem
Dim xWordDoc As Word.Document
Dim xGreetings As String
Dim xBool As Boolean
xFilePath = CreateObject("shell.Application").NameSpace(5).self.Path & "\UserTemplates"
Set xFSO = CreateObject("Scripting.FileSystemObject")
If xFSO.FolderExists(xFilePath) = False Then
MkDir xFilePath
End If
If IsFileExists(xFilePath & "\Birthday Greeting Mail.oft") = False Then
Set xTempMail = Outlook.CreateItem(olMailItem)
xTempMail.SaveAs xFilePath & "\Birthday Greeting Mail.oft", olTemplate
xTempMail.Close olDiscard
End If
If (TypeOf Item Is TaskItem) And (Item.Subject = "Send Birthday Greeting Mail") Then
xGreetings = "Happy Birthday!"
xGreetings = InputBox("Input birthday greetings", "Kutools for Outlook", xGreetings)
xTodayDate = Month(Date) & "-" & Day(Date)
Set xItems = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
For Each xItem In xItems
If Not (TypeOf xItem Is ContactItem) Then Exit Sub
Set xContactItem = xItem
xBirthdayDate = Month(xContactItem.Birthday) & "-" & Day(xContactItem.Birthday)
If xBirthdayDate = xTodayDate Then
Set xGreetingMail = Outlook.Application.CreateItemFromTemplate(xFilePath & "\Birthday Greeting Mail.oft")
Set xWordDoc = xGreetingMail.GetInspector.WordEditor
xWordDoc.Range.InsertBefore "Dear " & xContactItem.LastName & Chr(10) & xGreetings & Chr(10) & Chr(10)
With xGreetingMail
.Recipients.Add (xContactItem.Email1Address)
.Subject = "Happy Birthday!"
.Display
.Close (olSave)
.Send
End With
End If
Next
End If
End Sub
Function IsFileExists(ByVal FileName As String) As Boolean
Dim xFileSystem As Object
Set xFileSystem = CreateObject("Scripting.FileSystemObject")
If xFileSystem.FileExists(FileName) = True Then
IsFileExists = True
Else
IsFileExists = False
End If
End Function 
3. 그런 다음 Microsoft Visual Basic for Applications 창에서 Tools > References를 클릭합니다. 나타난 References-Project1 대화 상자에서 Available References 목록 상자에서 Microsoft Word Object Library 및 Microsoft Scripting Runtime 옵션을 선택하세요. 스크린샷을 참조하십시오:
4. 그런 다음 OK를 클릭하여 대화 상자를 닫습니다. 이제 VBA 코드를 실행하기 위한 작업을 생성해야 합니다. Task 패널로 이동하여 New Task를 클릭하여 작업을 생성하세요:
(1.) 제목 줄에 Send Birthday Greeting Mail이라는 제목을 입력하세요;
(2.) 그런 다음 Task 탭 아래의 Recurrence를 클릭합니다;
(3.) Task Recurrence 대화 상자에서 Recurrence pattern 섹션에서 Daily를 선택하고 every 1 day(s) 옵션을 지정합니다;
5. 그런 다음 OK를 클릭하여 대화 상자를 닫습니다. 작업 창으로 돌아가서 다음과 같은 스크린샷에 표시된 것처럼 반복 작업에 대한 알림을 설정하세요:
6. 이제부터 알림이 표시될 때마다 매크로가 즉시 실행됩니다. 다음 스크린샷에 표시된 것처럼 생일 축하 인사를 삽입하라는 대화 상자가 나타납니다:
7. 그런 다음 OK 버튼을 클릭하면 오늘 생일인 연락처에게 자동으로 인사말 메일이 전송됩니다.
최고의 오피스 생산성 도구
속보: 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