Excel 셀의 날짜를 기준으로 이메일을 빠르게 보내는 방법은 무엇입니까?

Excel 셀의 날짜를 기준으로 이메일을 보내려고 시도해 본 적이 있습니까? 예를 들어, A 열에 날짜 목록이 있고, 제목과 본문을 포함한 이메일을 수신자에게 보내고 (CC와 BCC로 다른 사람에게도 보낼 수 있음), 이를 어떻게 처리할 수 있을까요?

VBA를 사용하여 날짜를 기준으로 이메일 보내기

VBA를 사용하여 날짜를 기준으로 이메일 보내기

Excel에서 날짜를 기준으로 이메일을 보내려면 매크로 코드를 적용해야 합니다.

1. 데이터와 날짜가 포함된 워크시트를 활성화하고 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 아래 코드를 빈 스크립트에 붙여넣습니다.

Sub email()
'UpdatebyExtendoffice20170831
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
    Dim xMail_Object, xMail_Single As Object
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xRgEach In xRg
        If xRgEach.Value = Date Then
            xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
            xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
            xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
            If xEmail_Send_To = "" Then Exit Sub
            xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
            Set xMail_Object = CreateObject("Outlook.Application")
            Set xMail_Single = xMail_Object.CreateItem(0)
            With xMail_Single
                .Subject = xEmail_Subject
                .To = xEmail_Send_To
                .cc = xEmail_Cc
                .BCC = xEmail_Bcc
                .Body = xEmail_Body
                .Send
            End With
        End If
    Next
End Sub

3. 클릭 실행 버튼을 누르거나 F5 키를 눌러 코드를 실행하면, 날짜 목록을 선택하라는 대화 상자가 나타납니다. 스크린샷 보기:

4. 확인을 클릭하고 계속해서 이메일 제목, 발신자의 이메일 주소, 수신자의 이메일 주소, CC, BCC 및 본문을 지정합니다. 스크린샷 보기:

5. 클릭 확인 > 확인 마지막 항목까지 진행하면 이메일이 전송됩니다.

참고: 발신자의 이메일 주소는 Outlook에서 기본 계정이어야 합니다.