Excel 스프레드시트에서 Outlook 알림을 만드는 방법은 무엇입니까?

Author: Siluvia Last Modified: 2025-08-06

이 문서에서는 Excel 스프레드시트의 데이터를 기반으로 Outlook 알림을 만드는 방법에 대해 설명합니다.

VBA 코드를 사용하여 Excel 스프레드시트에서 Outlook 알림 만들기

VBA 코드를 사용하여 Excel 스프레드시트에서 Outlook 알림 만들기

Excel에서 Outlook 알림을 만들려면 다음과 같이 하세요.

1. 아래 스크린샷에 표시된 대로 열 머리글과 해당 알림 필드가 포함된 워크시트를 만드세요.

steps of using vba to create Outlook reminders from Excel spreadsheet

참고: "바쁨 상태" 열에서 숫자 "2"는 알림이 Outlook 캘린더에서 "바쁨"으로 표시됨을 의미합니다. 필요에 따라 "1 (임시)", "3 (사무실 외부)", "4 (다른 위치에서 작업 중)", 또는 "5 (무료)"로 변경할 수 있습니다.

2. "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

3. "Microsoft Visual Basic for Applications" 창에서 "삽입" > "모듈"을 클릭하세요. 그런 다음 다음 VBA 코드를 코드 창에 복사하세요.

VBA 코드: Excel 스프레드시트에서 Outlook 알림 만들기

Sub AddAppointments()
'Update by Extendoffice 20180608
    Dim I As Long
    Dim xRg As Range
    Dim xOutApp As Object
    Dim xOutItem As Object
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = Range("A2:G2")
    For I = 1 To xRg.Rows.Count
        Set xOutItem = xOutApp.CreateItem(1)
        Debug.Print xRg.Cells(I, 1).Value
        xOutItem.Subject = xRg.Cells(I, 1).Value
        xOutItem.Location = xRg.Cells(I, 2).Value
        xOutItem.Start = xRg.Cells(I, 3).Value
        xOutItem.Duration = xRg.Cells(I, 4).Value
        If Trim(xRg.Cells(I, 5).Value) = "" Then
            xOutItem.BusyStatus = 2
        Else
            xOutItem.BusyStatus = xRg.Cells(I, 5).Value
        End If
        If xRg.Cells(I, 6).Value > 0 Then
            xOutItem.ReminderSet = True
            xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
        Else
            xOutItem.ReminderSet = False
        End If
        xOutItem.Body = xRg.Cells(I, 7).Value
        xOutItem.Save
        Set xOutItem = Nothing
    Next
    Set xOutApp = Nothing
End Sub

참고: 위의 코드에서 "A2:G2"는 약속을 생성하려는 데이터 범위입니다.

4. "F5" 키를 누르거나 "실행" 버튼을 클릭하여 코드를 실행하세요. 그러면 특정 필드가 있는 모든 약속이 한 번에 Outlook 캘린더에 삽입됩니다.

그런 다음 Outlook의 캘린더로 이동하여 결과를 확인할 수 있습니다. 스크린샷 참조: