워크북이 엑셀에서 업데이트될 경우 이메일 알림이나 통지를 보내는 방법은 무엇입니까?

특정 상황에서는, 보낸 워크북에 데이터가 업데이트되었을 때 지정된 수신자에게 이메일 알림을 트리거해야 할 수도 있습니다. 이 문서에서는 이를 달성하는 방법을 보여드리겠습니다.

VBA 코드를 사용하여 워크북이 업데이트되면 이메일 알림 또는 통지 보내기

VBA 코드를 사용하여 워크북이 업데이트되면 이메일 알림 또는 통지 보내기

워크북이 업데이트된 경우 이메일 알림 또는 통지를 보내려면 다음 단계를 따르세요.

1. 워크북에서 업데이트된 데이터를 기반으로 이메일 알림을 보낼 특정 워크시트를 엽니다.

2. 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 마우스 오른쪽 버튼 메뉴에서 편집 코드를 선택합니다. 스크린샷 보기:

2. Microsoft Visual Basic for Applications 창에서 다음 코드를 복사하여 코드 창에 붙여넣습니다. 스크린샷 보기:

VBA 코드: 워크북이 업데이트되면 이메일 알림 또는 통지 보내기

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    Dim xYesOrNo As Integer
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
    If xYesOrNo = 6 Then ActiveWorkbook.Save
    If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .cc = ""
        .Subject = "email notification test"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        If xYesOrNo = 6 Then .Attachments.Add xName
        .Display
    End With
    xMailItem = Nothing
    xOutApp = Nothing
End Sub

참고: .To = "이메일 주소" 줄의 이메일 주소를 수신자의 이메일 주소로 바꿉니다. 그리고 필요에 따라 VBA 코드에서 Cc, 제목 및 본문 필드도 변경하세요.

3. Alt + Q 키를 눌러 Microsoft Visual Basic for Applications 창을 닫습니다.

4. 워크시트에서 셀을 수정한 후 아래 스크린샷과 같이 Kutools for Excel 대화 상자가 나타납니다. 업데이트된 워크북을 이메일에 첨부하려면 예 버튼을 클릭하세요. 그렇지 않으면 아니요 버튼을 클릭하세요.

5. 그런 다음 업데이트된 워크북이 첨부되었거나 첨부되지 않은 상태로 이메일이 자동으로 생성됩니다. 모든 지정된 필드는 이메일에 포함됩니다. 보내기 버튼을 클릭하여 이메일을 보내세요.

참고: VBA 코드는 Outlook을 이메일 프로그램으로 사용할 때만 작동합니다.

관련 기사:

• 엑셀에서 셀 값에 따라 자동으로 이메일을 보내는 방법은 무엇입니까?
• 엑셀에서 워크북이 저장될 때 아웃룩을 통해 이메일을 보내는 방법은 무엇입니까?
• 엑셀에서 특정 셀이 수정되었을 때 이메일을 보내는 방법은 무엇입니까?
• 엑셀에서 버튼이 클릭되었을 때 이메일을 보내는 방법은 무엇입니까?
• 엑셀에서 마감일이 도래했을 때 이메일을 보내는 방법은 무엇입니까?