Excel에서 셀 값에 따라 자동으로 이메일을 보내는 방법은 무엇입니까?

Excel에서는 특정 조건(특정 셀의 값 등)에 따라 이메일을 자동으로 보낼 수 있습니다. 예를 들어, 셀 D7의 값이 200을 초과할 때 Outlook을 통해 자동으로 이메일을 보내고 싶을 수 있습니다. 이 튜토리얼에서는 VBA(Visual Basic for Applications)를 사용하여 셀 값에 따라 Outlook에서 이메일을 트리거하는 방법을 보여줍니다.

VBA 코드를 사용하여 셀 값에 따라 자동으로 이메일 보내기

VBA 코드를 사용하여 셀 값에 따라 자동으로 이메일 보내기

다음 단계에 따라 Excel에서 셀 값에 따라 이메일을 보내세요.

1. 이메일을 보내야 하는 워크시트(여기서는 셀 D7이라고 가정)에서 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 컨텍스트 메뉴에서 보기 코드를 선택합니다. 스크린샷 보기:

2. 나타나는 Microsoft Visual Basic for Applications 창에서 아래 VBA 코드를 복사하여 시트 코드 창에 붙여넣으세요.

VBA 코드: Excel에서 셀 값에 따라 Outlook을 통해 이메일 보내기

Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set xRg = Intersect(Range("D7"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value > 200 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
    On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

참고:

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

이제부터 셀 D7에 입력된 값이 200보다 크면 지정된 수신자와 본문을 포함한 이메일이 Outlook에서 자동으로 생성됩니다. 이 이메일을 보내려면 보내기 버튼을 클릭할 수 있습니다. 스크린샷 보기:

참고:

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

2. 셀 D7에 입력된 데이터가 텍스트 값인 경우에도 이메일 창이 나타납니다.

관련 기사:

• 워크북이 Excel에서 저장될 때 Outlook을 통해 이메일을 보내는 방법은 무엇입니까?
• Excel에서 특정 셀이 수정되었을 때 이메일을 보내는 방법은 무엇입니까?
• Excel에서 버튼을 클릭했을 때 이메일을 보내는 방법은 무엇입니까?
• Excel에서 마감일이 만료되었을 때 이메일을 보내는 방법은 무엇입니까?
• 워크북이 Excel에서 업데이트되었을 때 이메일 알림 또는 통지를 보내는 방법은 무엇입니까?