Outlook 에서 연락처의 생일이 오늘인 경우 자동으로 인사 메시지를 보내는 방법은 무엇인가요？

때로는 Outlook 에서 연락처의 생일이 오늘일 때 자동으로 인사 메시지를 보내고 싶을 수 있습니다。 연락처의 생일을 하나하나 확인하고 인사 이메일을 수동으로 보내는 작업은 매우 번거로울 수 있습니다。 이 글에서는 이를 빠르고 쉽게 해결할 수 있는 VBA 코드를 소개합니다。

Outlook 에서 VBA 코드를 사용하여 연락처의 생일에 따라 자동으로 인사 메시지 보내기

---

Outlook 에서 VBA 코드를 사용하여 연락처의 생일에 따라 자동으로 인사 메시지 보내기

연락처의 생일이 오늘인 경우 자동으로 인사 메시지를 보내려면 먼저 VBA 코드를 삽입한 후， 해당 코드를 실행시키기 위한 반복 작업을 생성해야 합니다。

다음 단계가 도움이 될 수 있습니다：

1. Outlook 을 시작한 후ALT + F11키를 누른 채로Microsoft Visual Basic for Applications창을 엽니다。

2.Microsoft Visual Basic for Applications창에서ThisOutlookSession을(를)Project1(VbaProject.OTM)패널에서 두 번 클릭하여 모듈을 열고， 다음 코드를 빈 모듈에 복사하여 붙여넣습니다。

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。 그런 다음도구(Tools)>참조(References)를 선택합니다。 표시된Microsoft Visual Basic for Applications창에서 나타난참조-Project1(References-Project1)대화 상자에서Microsoft Word Object Library및Microsoft Scripting Runtime옵션을사용 가능한 참조(Available References)목록 상자에서 체크합니다。 아래 스크린샷을 참조하세요：

4。 그런 다음확인(OK)을 클릭하여 대화 상자를 닫고， 이제 VBA 코드를 실행시키기 위한 작업을 생성해야 합니다。작업(Task)패널로 이동하여작업을 클릭하여 작업을 생성합니다：

(1.)제목(Subjec)t)란에 다음과 같이 입력합니다：Send Birthday Greeting Mail;

(2.)그런 다음반복(Recurrence)을(를)작업(Task)탭 아래에서 클릭합니다；

(3.)작업 반복(Task Recurrence)대화 상자에서매일(Daily)을 선택하고1 일마다옵션을반복 패턴섹션에서 지정합니다；

5。 그런 다음확인(OK)을 클릭하여 대화 상자를 닫고 작업 창으로 돌아온 후， 아래 스크린샷과 같이 반복 작업에 알림을 설정합니다：

6。 이제부터 알림이 표시되면 매크로가 즉시 실행됩니다。 아래 스크린샷과 같이 생일 인사 문구를 입력하라는 대화 상자가 나타납니다：

7。 그런 다음확인(OK)버튼을 클릭하면 오늘 생일인 연락처에게 자동으로 인사 메일이 전송됩니다。