Excel 스프레드시트에서 Outlook 알림을 만드는 방법은 무엇인가요？

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

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

---

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

Excel 에서 Outlook 알림을 만들고자 한다면 다음 단계를 따르세요。

1. 아래 스크린샷과 같이 열 머리글과 해당 알림 필드를 포함하는 워크시트를 만드세요。

참고： 「바쁨 상태」 열에서 숫자 “2"는 Outlook 캘린더에서 해당 알림이 「바쁨」으로 표시됨을 의미합니다。 필요에 따라 이를 「1(미정)」， 「3(부재 중)」， 「4(다른 위치에서 작업 중)」， 또는 「5(여유)」로 변경할 수 있습니다。

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

3. 「Microsoft Visual Basic for Applications」 창에서 「삽입(Insert)」 > 「모듈(Module)」을 클릭합니다。 그런 다음 다음 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"를 누르거나 「실행(Run)」 버튼을 클릭하여 코드를 실행합니다。 그러면 특정 필드를 가진 모든 약속이 한 번에 Outlook 캘린더에 삽입됩니다。

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