메인 컨텐츠로 가기

Excel 자습서 – Excel에서 이메일 보내기

일반적으로 Outlook, Gmail 등과 같은 이메일 클라이언트를 사용하여 이메일을 보냅니다. 그러나 많은 사람들이 Excel 통합 문서에 데이터를 저장하고 작업하는 동안 일부 데이터를 다른 사람과 함께 보내야 합니다. 따라서 Excel 통합 문서에서 직접 이메일을 보내야 하므로 이메일 클라이언트를 작동하는 시간을 절약할 수 있습니다. 이 단계별 자습서에서는 다양한 조건에서 Excel에서 이메일을 보내는 방법을 보여줍니다.

주의 사항: 다음 방법을 적용하기 전에 컴퓨터에서 Outlook 이메일 클라이언트를 구성하고 기본 이메일 클라이언트로 설정해야 합니다.

목차 : [ 숨다 ]

(아래 목차 또는 오른쪽에 있는 제목을 클릭하면 해당 챕터로 이동합니다.)

1. 엑셀에서 이메일 보내기의 기본

이 섹션에서는 Excel에서 이메일을 보내는 기본 사항을 소개합니다.

1.1 Excel 내장 기능으로 Excel에서 이메일 보내기

받는 사람, 제목, 참조 및 본문 필드만 포함하여 Excel에서 간단한 이메일만 보내려는 경우. Excel의 기본 제공 기능이 도움이 될 수 있습니다.


1.1.1 수식을 사용하여 Excel에서 전자 메일 보내기

아래 표에 표시된 대로 주어진 필드를 기반으로 Excel에서 다른 이메일을 보내려면 주어진 필드의 셀 참조를 사용하여 다른 하이퍼링크 수식을 만들어 완료할 수 있습니다. 이메일 하이퍼링크를 생성한 후 이메일을 자동으로 보내는 데 필요한 하이퍼링크를 클릭할 수 있습니다.

참고 : 받는 사람 또는 참조 필드에 받는 사람이 두 명 이상인 경우 세미콜론으로 구분하십시오.

이 섹션은 이메일 주소, 참조 수신자, 제목 및 본문 텍스트를 하이퍼링크 수식에 별도로 추가하는 단계를 보여주기 위해 네 부분으로 나누어져 있습니다. 다음과 같이 하십시오.

구문 및 인수 하이퍼 링크 기능은 다음과 같습니다.

통사론

HYPERLINK(link_location, [friendly_name])

인수

링크 _ 위치 (필수): 열려는 문서의 경로 및 파일 이름.
팁: 이 자습서에서 받는 사람의 이메일 주소, 참조 받는 사람, 제목 및 본문 텍스트와 같이 이메일에 필요한 모든 필드는 첫 번째 인수 "link_location"에 넣어야 합니다.
친숙한 이름 (선택): 셀에 표시되는 점프 값입니다.

1.1.1.1 하이퍼링크 수식에 이메일 주소 추가

여기서 우리는 "메일로:" 이메일 수신자를 추가하는 공식의 일부로. 이 예에서 첫 번째 수신자의 이메일 주소는 셀 B2에 있으므로 "mailto:"를 추가하고 셀 B2를 참조해야 합니다.

"mailto:"&B2

1. 하이퍼링크를 표시할 셀을 선택합니다. 이 경우 F2 셀을 선택합니다.

2. 그런 다음 다음 수식을 입력하십시오.

=HYPERLINK("mailto:"&B2)

주의 사항: 를 누르면 엔터 버튼 키를 누르면 아래 스크린샷과 같이 하이퍼링크가 생성됩니다. 링크를 클릭하면 Outlook 이메일이 생성되고 받는 사람의 이메일 주소가 받는 사람 필드에 자동으로 채워집니다.

이제 수신자의 이메일 주소가 하이퍼링크 수식에 추가됩니다. 필요에 따라 제목, 참조 수신자 및 본문을 추가하려면 다음 단계를 계속하십시오.


1.1.1.2 참조 수신자를 하이퍼링크 수식에 추가

참조 수신자를 하이퍼링크 기능에 추가하려면 다음을 추가하십시오. "?cc=" 다음과 같이 공식의 일부로.

"?cc=" & C2
여기서 C2는 참조 수신자의 이메일 주소를 포함합니다.

F2 셀의 수식은 다음과 같아야 합니다.

=HYPERLINK("mailto:" & B2 & "?cc=" & C2)


1.1.1.3 하이퍼링크 수식에 제목 줄 추가

하이퍼링크 기능에 제목을 추가하려면 다음을 추가하십시오. "&제목=" 다음과 같이 공식의 일부로.

"&제목="& D2
여기서 C2는 이메일 제목을 포함합니다.

이제 F2 셀의 수식이 다음과 같아야 합니다.

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2)


1.1.1.4 하이퍼링크 수식에 줄 바꿈이 있는 본문 텍스트 추가

마지막 단계는 본문 텍스트를 하이퍼링크 수식에 추가하는 것입니다. 예에서 볼 수 있듯이 E2의 텍스트 두 줄은 줄 바꿈으로 구분되며 이메일 본문에 줄 바꿈을 유지하려고 합니다. Outlook은 이 상황에서 줄 바꿈을 인식합니까? 확인해 봅시다.

하이퍼링크 수식에 본문 텍스트를 추가하려면 다음을 추가해야 합니다. "&바디=" 다음과 같이 공식의 일부로.

"&바디="& E2
여기서 E2는 이메일의 본문을 포함합니다.

이제 F2 셀의 수식이 다음과 같이 표시됩니다.

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2 & "&body="& E2)

참고 : 를 누르면 엔터 버튼 키를 누르고 링크를 클릭합니다. 새 이메일에서 이메일 본문의 내용이 같은 줄에 표시되는 것을 볼 수 있습니다.

이메일 본문을 별도의 줄에 표시하려면 캐리지 리턴 문자 코드를 추가하여 셀 내용을 수정해야 합니다. % 0A 줄 바꿈을 삽입해야 하는 텍스트로 이동합니다. 스크린샷 참조:


1.1.1.5 하이퍼링크에 표시할 텍스트 지정

위의 단계에서 이메일 필드로 Link_location 인수를 완료했습니다. 여기 이 섹션에서 다음 인수인 [friendly_name]을 마치겠습니다.

이 경우 하이퍼링크 셀에 "xx에게 이메일 보내기”, 여기서 xx는 A2의 받는 사람 이름입니다. 따라서 F2의 수식은 다음과 같이 변경되어야 합니다.

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2 & "&body="& E2, "Email to "&A2)

를 누르십시오 엔터 버튼 결과를 얻으려면 키.

이 수식 셀을 선택하고 자동 완성 핸들 아래로 다른 이메일 하이퍼링크를 생성합니다. 스크린샷 참조:


1.1.2 하이퍼링크 기능을 사용하여 Excel에서 이메일 보내기

위의 하이퍼링크 수식을 사용하는 것을 제외하고 다음을 사용하여 이메일 하이퍼링크를 수동으로 만들 수 있습니다. 끼워 넣다 하이퍼 링크 엑셀의 기능. 이 섹션에서는 단계를 보여줍니다.

1. 하이퍼링크를 삽입할 이메일을 마우스 오른쪽 버튼으로 클릭하고 (링크) 오른쪽 클릭 메뉴에서.

2. 팝업에서 하이퍼 링크 삽입 대화 상자에서 다음과 같이 구성해야합니다.

2.1) 선택 이메일 주소 왼쪽 된 창에서.
2.2)에서 표시 할 텍스트 텍스트 상자에 셀에 표시할 텍스트를 입력합니다.
방문 꿀팁: 이 대화 상자에서는 셀 참조를 사용할 수 없으므로 다음과 같이 이메일 필드를 수동으로 입력해야 합니다.
2.3)에서 이메일 주소 텍스트 상자에 다음 이메일 주소를 입력해야 합니다.
mailto:이메일 주소
"라는 텍스트를 대체하십시오.이메일 주소"를 실제 이메일 주소로 이메일 주소가 두 개 이상인 경우 세미콜론으로 구분합니다.
2.4)에서 제목 텍스트 상자에서 이메일 제목과 이메일 본문을 바로 여기에서 지정할 수 있습니다. 다음과 같이 구성하십시오.
이메일 제목&본문=이메일 본문
이 경우 입력합니다. Monthly sale&body=안녕하세요, %0AE메일 수신.
> 주제가 월간 판매인 경우
> 이메일 본문은 다음과 같습니다.
안녕,
이메일이 수신되었습니다. (% 0A Outlook에서 인식할 수 있는 캐리지 리턴 문자 코드)
2.5) 클릭 OK 버튼을 눌러 하이퍼링크를 저장합니다. 스크린샷 참조:

하이퍼링크를 클릭하면 아래 스크린샷과 같이 지정된 받는 사람, 제목 및 본문 필드가 있는 Outlook 전자 메일이 생성됩니다.

노트:

1) 이 방법을 사용하면 이메일 하이퍼링크를 각각 수동으로 만들어야 했습니다.
2) 이 방법으로 이메일에 참조 필드를 추가할 수 없습니다. 따라서 참조 필드가 필요한 경우 새 시작 이메일 창에서 추가하십시오.

1.2 VBA 스크립트를 사용하여 셀의 여러 수신자에게 이메일 보내기

위의 예에서 여러 이메일 주소가 세미콜론으로 구분된 셀에 표시되는 것을 볼 수 있습니다. 아래 스크린샷과 같이 이메일 주소 목록이 있고 모든 이메일 또는 독립 이메일을 보내려는 경우 다음 VBA 코드가 도움이 될 수 있습니다.


1.2.1 VBA 스크립트를 사용하여 셀의 여러 수신자에게 이메일 보내기

1. 이메일을 보내려는 모든 이메일 주소가 포함된 워크시트에서. 눌러 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 기준 치수, 그런 다음 다음 코드를 다음 코드에 붙여넣습니다. 모듈(코드) 창.

VBA 코드: 이메일 주소 목록으로 이메일 보내기

Sub sendmultiple()
'updateby Extendoffice 20220802
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Subject = "Test"
        .Body = "Dear " _
                & vbNewLine & vbNewLine & _
                "This is a test email " & _
                "sending in Excel"
        .Display
    End With
End Sub

3. 누르세요 F5 코드를 실행하기 위한 키와 Excel 용 Kutools 대화 상자가 나타납니다. 이메일 주소 목록을 선택하고 OK.

배송 시 요청 사항:

1) 위의 대화 상자 팝업을 원하지 않고 코드에서 직접 이메일 주소 범위를 지정하려면 다음 줄을 바꾸십시오.
Set xRg = Application.InputBox("주소 목록을 선택하세요:", "Kutools for Excel", xTxt, , , , , 8)
xRg = 범위 설정("A2:A7")
2) 다음 줄에서 자신의 이메일 제목과 본문을 지정할 수 있습니다.
.제목 = "테스트"
.Body = "Dear " _
        & vbNewLine & vbNewLine & _
        "This is a test email " & _
        "sending in Excel"
3) 다음 새 메시지 창을 열지 않고 이메일을 직접 보내려면 이 줄을 바꿔야 합니다.
.디스플레이
.보내다

코드를 실행하면 선택한 범위의 모든 이메일 주소가 메시지 창의 받는 사람 필드에 표시됩니다. 스크린샷 참조:


1.2.2 VBA 스크립트를 사용하여 셀에 나열된 각 수신자에게 개별적으로 이메일 보내기

위의 코드는 선택한 범위의 모든 이메일 주소를 메시지 창의 받는 사람 필드에 추가합니다. 서로의 이메일 주소를 보지 않고 셀에 나열된 각 이메일 주소로 이메일을 보내려면 다음 VBA 스크립트를 시도할 수 있습니다.

1. 이메일을 보내려는 모든 이메일 주소가 포함된 워크시트에서. 눌러 다른 + F11Microsoft Visual Basic for Applications 창을 엽니다..

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈, 다음 코드를 모듈(코드) 창에 붙여넣습니다.

VBA 코드: 개별적으로 셀에 나열된 각 이메일 주소로 이메일 보내기

Sub SendEmailToAddressInCells()
'Updated by Extendoffice 20220802
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

3. 그런 다음 도구 > 참조. . 참조 – VBAProject 대화 상자에서 찾아 확인 Microsoft Outlook 16.0 개체 라이브러리 상자를 클릭 한 다음 OK 버튼을 클릭하여 변경 사항을 저장하십시오.

4. 누르세요 F5 코드를 실행하기 위한 키와 Excel 용 Kutools 대화 상자가 나타납니다. 이메일 주소 목록을 선택하고 클릭 좋아요.

배송 시 요청 사항:

1) 위의 대화 상자 팝업을 원하지 않고 코드에서 직접 이메일 주소 범위를 지정하려면 다음 줄을 바꾸십시오.
Set xRg = Application.InputBox("주소 목록을 선택하세요:", "Kutools for Excel", xTxt, , , , , 8)
xRg = 범위 설정("A2:A7")
2) 다음 줄에서 자신의 이메일 제목과 본문을 지정할 수 있습니다.
.Subject = "Test"
.Body = "Dear " _
        & vbNewLine & vbNewLine & _
        "This is a test email " & _
        "sending in Excel"
3) 다음 메시지 창을 열지 않고 이메일을 직접 보내려면 이 줄을 바꿔야 합니다.
.디스플레이
.보내다

이 예에서는 선택한 범위에 XNUMX개의 이메일 주소가 있으므로 아래 스크린샷과 같이 받는 사람 필드에 나열된 별도의 이메일 주소와 함께 XNUMX개의 Outlook 메시지 창이 자동으로 생성됩니다.

5. 마지막으로 전송 버튼을 눌러 이메일을 하나씩 보냅니다.


2. Excel에서 보낸 이메일에 첨부 파일 또는 Outlook 서명 삽입(VBA 스크립트 사용)

이 섹션에서는 Excel에서 보낸 이메일에 첨부 파일 또는 Outlook 기본 서명을 삽입하는 방법을 보여줍니다.

2.1 Excel에서 보낸 이메일에 첨부 파일 삽입

여기에서는 첨부 파일을 삽입하는 다양한 경우에 대해 설명하며 필요에 따라 방법을 선택할 수 있습니다. 이 섹션에서는 다음을 배울 수 있습니다(해당 방법으로 이동하려면 다음 링크 중 하나를 클릭).


2.1.1 특정 파일을 첨부 파일로 이메일 보내기

다음 VBA 코드를 적용하여 폴더에 있는 하나 이상의 파일을 Excel의 첨부 파일로 전자 메일로 보낼 수 있습니다.

1. 누르세요 다른 + F11 열쇠.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 다음 VBA 코드를 모듈(코드) 창에 붙여넣습니다.

VBA 코드: Excel에서 첨부 파일로 폴더의 이메일 파일

Sub EmailWithAttachments()
'Updated by Extendoffice 20220802
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = ""
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

노트:

1) 라인에서 .까지 = , 교체하십시오 자신의 수신자 이메일 주소로
2) 이메일 제목과 이메일 본문을 따로 줄에서 변경 .Subject = "테스트".HTMLBody = "테스트";
3) 필요에 따라 참조 및 숨은 참조 수신자를 추가할 수 있습니다. 행 아래에 다음 두 행을 추가하기만 하면 됩니다.~으로 = .
.CC = "이메일 주소"
.BCC = "이메일 주소"

3. 그런 다음 도구 > 참조. . 참조 – VBAProject 대화 상자에서 찾아 확인 Microsoft Outlook 16.0 개체 라이브러리 상자를 클릭 한 다음 OK 버튼을 클릭하여 변경 사항을 저장하십시오.

4. 누르세요 F5 키를 눌러 코드를 실행 한 다음 검색 창이 나타나면 이메일에 첨부할 파일을 선택한 다음 OK.

그러면 메시지 창이 뜹니다. 선택한 파일이 첨부 필드에 첨부 파일로 표시되는 것을 볼 수 있습니다.


2.1.2 현재 워크시트를 첨부 파일로 이메일 보내기

현재 워크시트를 Excel의 첨부 파일로 이메일로 보내려면 이 섹션에서 VBA 스크립트를 적용할 수 있습니다.

1. 누르세요 다른 + F11 열쇠.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 삽입하다 > 모듈. 그런 다음 다음 VBA 코드를 모듈(코드) 창.

VBA 코드: 현재 워크시트를 첨부 파일로 전자 메일로 보내기

Sub SendWorkSheet()
'Update by Extendoffice 20220802
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Display
    '.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

배송 시 요청 사항:

1) 라인에서 .~으로 = , 교체하십시오 실제 받는 사람의 이메일 주소로 이메일 주소가 두 개 이상 필요한 경우 세미콜론으로 구분하십시오.
2) 이메일 제목과 이메일 본문을 따로 줄에서 변경 .Subject = "kte 기능".Body = "이 문서를 확인하고 읽으십시오.";
3) 다음 두 줄에서:
.CC = "이메일 주소"
.BCC = "이메일 주소"
참조 및 숨은 참조 수신자를 추가하려면 "이메일 주소" 필요한 이메일 주소가 있는 줄에.
참조 및 숨은 참조 수신자가 필요하지 않은 경우 아포스트로피를 추가하십시오. ' 각 줄 앞에.

3. 누르세요 F5 키를 눌러 코드를 실행하면 현재 워크시트가 Excel 통합 문서로 저장되고 자동으로 메시지 창에 첨부 파일로 삽입됩니다. 스크린샷 참조:

참고 : 현재 워크시트만 포함된 첨부된 통합 문서의 이름은 원본 통합 문서와 같습니다. 코드를 실행하는 시간도 통합 문서 이름에 추가됩니다.


2.1.3 현재 통합 문서를 첨부 파일로 이메일 보내기

Excel에서 현재 워크시트를 첨부 파일로 이메일로 보내는 VBA 코드를 학습한 후 여기에서 전체 통합 문서를 첨부 파일로 이메일로 보내는 데 도움이 되는 또 다른 VBA 스크립트를 제공합니다. 다음과 같이 하십시오.

1. 누르세요 다른 + F11 열쇠.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 기준 치수. 그런 다음 다음 VBA 코드를 모듈(코드) 창에 붙여넣습니다.

VBA 코드: Excel에서 현재 통합 문서를 첨부 파일로 전자 메일로 보내기

Sub SendWorkBook()
'Update by Extendoffice 20220802
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

배송 시 요청 사항:

1) 라인에서 .까지 = , 교체하십시오 실제 받는 사람의 이메일 주소로 이메일 주소가 두 개 이상 필요한 경우 세미콜론으로 구분하십시오.
2) 이메일 제목과 이메일 본문을 따로 줄에서 변경 .Subject = "kte 기능".Body = "이 문서를 확인하고 읽으십시오.";
3) 다음 두 줄에서:
.CC = "이메일 주소"
.BCC = "이메일 주소"
참조 및 숨은 참조 수신자를 추가하려면 "이메일 주소" 필요한 이메일 주소가 있는 줄에.
참조 및 숨은 참조 수신자가 필요하지 않은 경우 아포스트로피를 추가하십시오. ' 각 줄 앞에.

3. 누르세요 F5 키를 눌러 코드를 실행하면 현재 통합 문서가 자동으로 메시지 창에 첨부 파일로 삽입됩니다. 스크린샷 참조:


2.1.4 전체 통합 문서를 PDF 첨부 파일로 이메일로 보내기

대부분의 사람들은 Excel 통합 문서를 PDF 파일로 저장한 다음 다른 사람에게 첨부 파일로 보내는 경향이 있습니다. 이 섹션에서는 통합 문서를 수동으로 PDF 파일로 저장할 필요 없이 현재 열려 있는 통합 문서를 PDF 첨부 파일로 Excel에서 직접 이메일을 보내는 방법을 보여 드리겠습니다.

1. 누르세요 다른 + F11 열쇠.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 기준 치수. 그런 다음 다음 VBA 코드를 모듈(코드) 창에 붙여넣습니다.

VBA 코드: 전체 통합 문서를 PDF 첨부 파일로 전자 메일로 보내기

Sub SendWorkBookAsPDF()
'Update 20220803
Dim Wb As Workbook
Dim FilePath As String
Dim FileName As String
Dim xOutApp As Object
Dim xOutMail As Object
On Error Resume Next

Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
FileName = Left(Wb.Name, (InStrRev(Wb.Name, ".", -1, vbTextCompare) - 1)) & Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf"
FilePath = Environ$("temp") & "\" & FileName

Wb.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    FilePath, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False

Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
With xOutMail
       .To = ""
       .CC = "Email Address"
       .BCC = "Email Address"
       .Subject = "test"
       .Body = "test"
       .Attachments.Add FilePath
       .Display   'or use .Send
   End With
Kill FilePath
Set xOutMail = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub

배송 시 요청 사항:

1) 라인에서 .까지 = , 교체하십시오 실제 받는 사람의 이메일 주소로 이메일 주소가 두 개 이상 필요한 경우 세미콜론으로 구분하십시오.
2) 이메일 제목과 이메일 본문을 따로 줄에서 변경 .Subject = "테스트".Body = "테스트";
3) 다음 두 줄에서:
.CC = "이메일 주소"
.BCC = "이메일 주소"
참조 및 숨은 참조 수신자를 추가하려면 "이메일 주소" 필요한 이메일 주소가 있는 줄에.
참조 및 숨은 참조 수신자가 필요하지 않은 경우 아포스트로피를 추가하십시오. ' 각 줄 앞에.
4) PDF 파일의 이름은 원본 통합 문서의 이름과 동일합니다. 코드를 실행하는 시간도 통합 문서 이름에 추가됩니다. 파일 이름에 타임스탬프를 추가할 필요가 없으면 제거하십시오. & 형식(지금, "dd-mmm-yy h-mm-ss") 다음 줄에서.
파일 이름 = 왼쪽(Wb.Name, (InStrRev(Wb.Name, ".", -1, vbTextCompare) - 1)) 및 형식(지금, "dd-mmm-yy h-mm-ss") & ".pdf "

3. 누르세요 F5 코드를 실행하는 키입니다. 그런 다음 현재 통합 문서가 PDF 파일 첨부 파일로 새 메시지 창에 자동으로 삽입됩니다. 스크린샷 참조:


2.1.5 현재 워크시트를 PDF 첨부 파일로 이메일 보내기

예를 들어 "월간 판매"라는 통합 문서가 있고 "판매 보고서"라는 워크시트에서 판매 보고서 테이블을 완료했으며 이 워크시트를 동료에게 PDF 파일로 보내려고 합니다. 다음 VBA 코드는 당신에게 호의를 베풀 수 있습니다.

1. 누르세요 다른 + F11 열쇠.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 삽입하다 > 기준 치수. 그런 다음 다음 VBA 코드를 모듈(코드) 창에 붙여넣습니다.

VBA 코드: 현재 워크시트를 PDF 첨부 파일로 이메일로 보내기

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .Body = "test"
    .Attachments.Add FileName
    .Display
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

배송 시 요청 사항:

1) 라인에서 .까지 = , 교체하십시오 실제 받는 사람의 이메일 주소로 이메일 주소가 두 개 이상 필요한 경우 세미콜론으로 구분하십시오.
2) 이메일 제목과 이메일 본문을 따로 줄에서 변경 .Subject = "테스트".Body = "테스트";
3) 다음 두 줄에서:
.CC = "이메일 주소"
.BCC = "이메일 주소"
참조 및 숨은 참조 수신자를 추가하려면 "이메일 주소" 필요한 이메일 주소가 있는 줄에.
참조 및 숨은 참조 수신자가 필요하지 않은 경우 아포스트로피를 추가하십시오. ' 각 줄 앞에.
4) PDF 파일의 이름은 다음과 같습니다. 원본 통합 문서의 이름_원본 워크시트의 이름. 이 경우 PDF 이름은 Monthly sales_sales report가 됩니다.

3. 누르세요 F5 코드를 실행하는 키입니다. 그러면 현재 워크시트가 PDF 파일 첨부로 새 메시지 창에 자동으로 삽입됩니다. 스크린샷 참조:


2.2 Excel에서 보낸 이메일에 Outlook 서명 삽입

위의 경우를 예로 들어, 위의 VBA 코드를 적용하여 현재 워크시트를 Excel에서 PDF 파일 첨부 파일로 보내지만 Outlook 서명은 메시지 창에 추가할 수 없습니다. Excel에서 보낸 이메일에 Outlook 기본 서명을 유지하려면 다음 방법이 도움이 됩니다.

두 개의 VBA 코드가 아래에 나열되어 있습니다.

VBA 코드 1: 코드는 Outlook 서명을 유지하는 데 도움이 됩니다.

VBA 코드 2: 코드는 현재 워크시트를 PDF 첨부 파일로 전자 메일로 보내는 데 도움이 됩니다.

VBA 코드 1: Outlook 서명 유지

.HTMLBody = "Email body" & "
" & .HTMLBody

VBA 코드 2: 현재 워크시트를 PDF 첨부 파일로 이메일로 보내기

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .Body = "test"
    .Attachments.Add FileName
    .Display
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

1. 일반적으로 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 위의 VBA 코드 2를 모듈(코드) 창에 붙여넣습니다.

3. Excel에서 보낸 이메일에 Outlook 기본 서명을 유지하려면 다음과 같이 VBA 코드 2를 수정해야 합니다.

1) 교체 .몸VBA 코드 1;
2) 라인 이동 .디스플레이 라인 아래 OutlookMail 사용(또는 다른 코드의 xMailOut 사용). 스크린 샷보기 :

다음은 수정 후의 전체 코드입니다.

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .Display
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .HTMLBody = "Email body" & "
" & .HTMLBody .Attachments.Add FileName '.Send End With Kill FileName Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub

4. 누르세요 F5 코드를 실행하는 키입니다. 그런 다음 현재 워크시트가 PDF 파일로 첨부된 새 메시지 창이 표시되며 Outlook 기본 서명은 이메일 본문 끝에 자동으로 삽입됩니다.


3. 조건이 충족되면 Excel에서 자동으로 이메일 보내기(VBA 스크립트 사용)

위의 예에서 이메일을 전달하려면 코드를 수동으로 실행해야 합니다. 셀이 특정 값에 도달할 때, 셀 값이 변경될 때, 날짜에 도달했을 때 등과 같이 특정 조건이 충족될 때 코드를 자동으로 트리거하려는 경우 이메일이 자동으로 전송됩니다. 이 섹션에는 특정 조건이 충족되면 Excel에서 자동으로 이메일을 보낼 수 있도록 Excel 사용자가 Google에서 자주 검색하는 조건이 나열됩니다.

3.1 셀이 특정 값에 도달하면 자동으로 이메일 보내기

아래 스크린샷과 같이 판매 합계가 포함된 셀 D6이 있는 판매 테이블이 있다고 가정합니다. 예를 들어 총 판매액이 10000을 초과하면 자동으로 이메일을 작성하거나 발송하지만 판매 총계가 10000 이하일 경우 아무런 조치도 취하지 않는 경우와 같이 판매 총액을 기준으로 상사에게 자동으로 이메일을 보내려고 합니다.

1. 판매 테이블이 포함된 워크시트에서 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 코드보기 오른쪽 클릭 메뉴에서.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창에서 다음 VBA 코드를 붙여넣습니다. 시트(코드) 창.

VBA 코드: Excel에서 셀이 특정 값에 도달하면 자동으로 이메일 보내기

Dim xRg As Range
'Update by Extendoffice 20200803
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D6"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 10000 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 boss" & vbNewLine & vbNewLine & _
"Total sales of over $10,000 in January: " & Range("D6")
On Error Resume Next
With xOutMail
.To = ""
.CC = "Email address"
.BCC = "Email address"
.Subject = "test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Private Sub Worksheet_Calculate()
Dim xI As Integer
Dim xRg As Range
Set xRg = Range("D6")
On Error GoTo Err01
xI = Int(xRg.Value)
If xI > 10000 Then
Call Mail_small_Text_Outlook
End If
Err01:
End Sub

노트:

1) D6 값을 기반으로 이메일을 보낼 셀입니다.
2) > 10000 조건은 D6의 값이 10000보다 클 때 이메일이 전송됨을 의미합니다.
3) 범위("D6") 다음 줄에서 이메일 본문이 D6의 값을 참조함을 의미합니다.
xMailBody = "Hi boss" & vbNewLine & vbNewLine & _
"Total sales of over $10,000 in January: " & Range("D6")
4) 라인에서 .까지 = , 교체하십시오 실제 받는 사람의 이메일 주소로 이메일 주소가 두 개 이상 필요한 경우 세미콜론으로 구분하십시오.
5) 줄의 이메일 제목 변경 .Subject = "테스트".
6) 다음 두 줄에서:
.CC = "이메일 주소"
.숨은 참조 = "이메일 주소"
참조 및 숨은 참조 수신자를 추가하려면 "이메일 주소" 필요한 이메일 주소가 있는 줄에.
참조 및 숨은 참조 수신자가 필요하지 않은 경우 아포스트로피를 추가하십시오. ' 각 줄 앞에.

이제부터 D6 셀의 값이 10000을 초과하면 아래 스크린샷과 같이 이메일이 생성됩니다.


3.2 셀 값이 변경되면 자동으로 이메일 보내기

아래 스크린샷과 같이 워크시트에 월별 판매액이 포함되어 있고 워크시트에 총 판매액이 포함된 통합 문서가 있다고 가정합니다. 판매 총액을 확인해야 하며 판매 총액이 수정된 경우 통합 문서를 보낸 사람에게 다시 보내고 셀이 수정되었음을 보낸 사람에게 알립니다.

1. 판매 테이블이 포함된 워크시트에서 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 코드보기 오른쪽 클릭 메뉴에서.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창에서 시트(코드) 창에 다음 VBA 코드를 붙여넣습니다.

VBA 코드: 지정된 셀 값이 변경되면 자동으로 이메일 보내기

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220803
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
Dim xBoolean As Boolean
Dim xItsRG As Range
Dim xDDs As Range
Dim xDs As Range
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xBoolean = False
Set xRg = Range("B14")

Set xItsRG = Intersect(Target, xRg)
Set xDDs = Intersect(Target.DirectDependents, xRg)
Set xDs = Intersect(Target.Dependents, xRg)
If Not (xItsRG Is Nothing) Then
Set xRgSel = xItsRG
xBoolean = True
ElseIf Not (xDDs Is Nothing) Then
Set xRgSel = xDDs
xBoolean = True
ElseIf Not (xDs Is Nothing) Then
Set xRgSel = xDs
xBoolean = True
End If

ActiveWorkbook.Save
If xBoolean Then
Debug.Print xRgSel.Address

Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "The cell " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."

With xMailItem
.To = ""
.CC = "Email address"
.BCC = "Email address"
.Subject = "Worksheet modified"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

노트: 코드에서

1) B14 코드에서 B14 셀의 값이 변경되면 이메일을 보내게 됨을 의미합니다.
2) 라인에서 .까지 = , 교체하십시오 실제 받는 사람의 이메일 주소로 이메일 주소가 두 개 이상 필요한 경우 세미콜론으로 구분하십시오.
3) 줄의 이메일 제목 변경 .Subject = "워크시트 수정됨".
4) 다음 두 줄에서:
.CC = "이메일 주소"
.BCC = "이메일 주소"
참조 및 숨은 참조 수신자를 추가하려면 "이메일 주소" 필요한 이메일 주소가 있는 줄에.
참조 및 숨은 참조 수신자가 필요하지 않은 경우 아포스트로피를 추가하십시오. ' 각 줄 앞에.

이제부터 B14 셀의 값이 변경되면 아래 스크린샷과 같이 Outlook 메시지가 자동으로 생성됩니다.


3.3 통합 문서가 저장되면 자동으로 이메일 보내기

수정 후 다른 사람과 공유해야 하는 통합 문서가 있는 경우 일반적으로 통합 문서를 저장하고 이메일 클라이언트를 실행하고 이 통합 문서가 첨부된 새 이메일을 만들고 해당 필드를 작성한 다음 이메일을 보내야 합니다. 이 섹션에서는 통합 문서를 저장할 때마다 자동으로 전자 메일을 만드는 방법을 보여줍니다. 다음과 같이 하십시오.

1. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 이 창에서 더블 클릭 이 워크북 FBI 증오 범죄 보고서 프로젝트 창에 다음 VBA 코드를 붙여넣습니다. ThisWorkbook (코드) 창.

VBA 코드: 통합 문서가 저장되면 자동으로 전자 메일 보내기

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20220804
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = ""
        .CC = "Email address"
        .BCC = "Email address"
        .Subject = "The workbook has been updated"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

노트: 코드에서

1) 라인에서 .까지 = , 교체하십시오 실제 받는 사람의 이메일 주소로 이메일 주소가 두 개 이상 필요한 경우 세미콜론으로 구분하십시오.
2) 이메일 제목과 본문을 따로 줄에서 변경 .Subject = "통합 문서가 업데이트되었습니다.".Body = "안녕하세요." & Chr(13) & Chr(13) & "파일이 이제 업데이트되었습니다.".
3) 다음 두 줄에서:
.CC = "이메일 주소"
.BCC = "이메일 주소"
참조 및 숨은 참조 수신자를 추가하려면 "이메일 주소" 필요한 이메일 주소가 있는 줄에.
참조 및 숨은 참조 수신자가 필요하지 않은 경우 아포스트로피를 추가하십시오. ' 각 줄 앞에.

3. 이제부터는 를 눌러 통합문서를 저장할 때 Ctrl 키 + S 키를 누르거나 찜하기 버튼을 누르면 Outlook 이메일이 자동으로 생성됩니다. 현재 통합 문서가 첨부 파일로 첨부되어 있고 필드가 지정된 콘텐츠로 채워진 것을 볼 수 있습니다. 스크린샷 참조:

방문 꿀팁: 이 통합 문서를 자주 사용하는 경우 통합 문서를 다른 이름으로 저장하는 것이 좋습니다. Excel 매크로 사용 통합 문서 나중에 사용할 수 있도록 VBA 스크립트를 저장합니다. 단계는 다음과 같습니다.

1) 클릭 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 다른 이름으로 저장을 누른 다음 파일을 저장할 폴더를 선택합니다.
2)에서 다른 이름으로 저장 대화 상자에서 필요에 따라 파일 이름을 파일 이름 텍스트 상자, 선택 Excel 매크로 사용 통합 문서 FBI 증오 범죄 보고서 형식으로 저장 드롭 다운 목록을 클릭하고 마지막으로 찜하기 단추. 스크린 샷보기 :


3.4 특정 시간에 자동으로 이메일 보내기

다른 사람에게 작업 할당 통합 문서가 포함된 전자 메일을 보내야 한다고 가정해 보겠습니다. 매주 금요일 오전 9시, 이메일 클라이언트를 수동으로 조작할 필요 없이 Excel에서 자동으로 이 작업을 수행하려고 합니다. 이 섹션에서는 이를 수행하는 방법을 보여줍니다.

1. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 기준 치수. 그런 다음 모듈 창에 다음 VBA 코드를 붙여넣습니다.

VBA code1 : 현재 통합 문서를 Excel에서 첨부 파일로 전자 메일로 보내기

Sub Timer()
    If Weekday(Date) = vbFriday Then
        SendWorkBook
        Application.OnTime TimeValue("09:00:00"), "Timer"
    Else
        Application.OnTime TimeValue("09:00:00"), "Timer"
    End If
End Sub

Sub SendWorkBook()
'Update by Extendoffice 20220802
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

3. 이 창에서 더블 클릭 이 워크북 FBI 증오 범죄 보고서 프로젝트 창에 다음 VBA 코드를 붙여넣습니다. ThisWorkbook (코드) 창.

VBA 코드 2: 특정 시간에 자동으로 이메일 보내기

Private Sub Workbook_Open()
    Application.OnTime TimeValue("09:00:00"), "Timer"
End Sub

노트:

1) VBA 코드 1에서 금요일 다음 줄은 이메일이 매주 금요일에 자동으로 전송됨을 의미합니다.
평일(날짜) = vbFriday이면
2) VBA 코드 1 및 VBA 코드 2에서 시간 09:00:00 특정 날짜의 오전 9시에 이메일이 전송됨을 의미합니다.
필요에 따라 날짜와 시간을 변경할 수 있습니다.
3) 코드가 실행되면 이메일이 생성됩니다. 메시지 창 띄우기를 원하지 않으시면 직접 보내주셔야 하는 경우에는 해당 줄을 제거해주세요. .디스플레이 VBA 코드 1에서 제거하고 아포스트로피 줄 앞에 '.보내다.

4. 코드를 저장한 다음 통합 문서를 다음과 같이 Excel 매크로 사용 통합 문서로 저장합니다.

4.1) 클릭 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 다른 이름으로 저장을 누른 다음 파일을 저장할 폴더를 선택합니다.
4.2)에서 다른 이름으로 저장 대화 상자에서 필요에 따라 파일 이름을 파일 이름 텍스트 상자, 선택 Excel 매크로 사용 통합 문서 FBI 증오 범죄 보고서 형식으로 저장 드롭 다운 목록을 클릭하고 마지막으로 찜하기 단추. 스크린 샷보기 :

5. 저장된 매크로 사용 통합 문서를 열면 날짜와 시간이 되면 이메일이 자동으로 생성되거나 전송됩니다.


4. 추가 주제

이 섹션에서는 Excel에서 전자 메일을 보낼 때 접할 수 있는 다른 항목을 수집합니다.

4.1 Excel에서 셀 범위를 이메일로 보내기(VBA 스크립트 사용)

아래 스크린샷과 같이 Excel 워크시트에 월별 매출표가 있다고 가정하고 이 월간 매출표를 이메일의 본문 내용이나 첨부 파일로 다른 사람에게 직접 보내야 합니다. 여기에서 두 가지 방법을 제공합니다.

4.1.1 Excel에서 본문 내용의 일부로 범위를 이메일로 보내기

다음 VBA 코드를 실행하여 Excel에서 이메일 본문 내용의 일부로 셀 범위를 보낼 수 있습니다.

1. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 도구 > 참고자료. 그런 다음 Microsoft Outlook 16.0 개체 라이브러리 상자를 클릭하고 OK FBI 증오 범죄 보고서 참조 – VBAProject 대화 상자.

3. 클릭 끼워 넣다 > 모듈, 다음 VBA 코드를 붙여넣습니다. 모듈(코드) 창.

VBA 코드: Excel에서 이메일 본문 내용의 일부로 셀 범위 보내기

Sub SendARangeofCells()
'Updated by Extendoffice 20220809
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xMailOut As Object
    Dim xOutApp As Object
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    With xMailOut
        .Subject = "test"
        .To = ""
        .CC = "Email address"
        .BCC = "Email address"
        .HTMLBody = RangetoHTML(xRg)
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

 ' The following VBA script is cited from this page:
 ' https://stackoverflow.com/questions/18663127/paste-excel-range-in-outlook
Function RangetoHTML(rng As Range)
' By Ron de Bruin.
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function

노트: 코드에서

1) 라인에서 .까지 = , 교체하십시오 실제 받는 사람의 이메일 주소로 이메일 주소가 두 개 이상 필요한 경우 세미콜론으로 구분하십시오.
2) 다음 두 줄에서:
.CC = "이메일 주소"
.BCC = "이메일 주소"
참조 및 숨은 참조 수신자를 추가하려면 "이메일 주소" 필요한 이메일 주소가 있는 줄에.
참조 및 숨은 참조 수신자가 필요하지 않은 경우 아포스트로피를 추가하십시오. ' 각 줄 앞에.

4. 누르세요 F5 코드를 실행하는 키입니다. 팝업에서 Excel 용 Kutools 대화 상자에서 이메일 본문 내용의 일부로 보내야 하는 셀 범위를 선택한 다음 OK. 스크린 샷보기 :

그러면 Outlook 이메일이 자동으로 생성됩니다. 워크시트에서 선택한 범위가 이메일 본문에 삽입된 것을 볼 수 있습니다. 스크린샷 참조:


4.1.2 Excel에서 첨부 파일로 범위를 이메일로 보내기

Excel에서 첨부 파일로 워크시트의 셀 범위를 전자 메일로 보내야 하는 경우. 다음 VBA 코드를 시도할 수 있습니다.

1. 누르세요 다른 + F11 열쇠.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 다음 VBA 코드를 붙여넣습니다. 모듈(코드) 창.

VBA 코드: Excel에서 첨부 파일로 범위를 이메일로 보내기

Sub SendRange()
'Update 20220809
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = ""
    .CC = "Email address"
    .BCC = "Email address"
    .Subject = "Monthly sales for 2021"
    .Body = "Hello, please check and read this document. "
    .Attachments.Add Wb2.FullName
    .Display
    '.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

노트:

1) 라인에서 .까지 = , 교체하십시오 실제 받는 사람의 이메일 주소로 이메일 주소가 두 개 이상 필요한 경우 세미콜론으로 구분하십시오.
2) 이메일 제목과 이메일 본문을 따로 줄에서 변경 .Subject = "2021년 월간 매출".Body = "안녕하세요, 이 문서를 확인하고 읽어주세요.";
3) 다음 두 줄에서:
.CC = "이메일 주소"
.BCC = "이메일 주소"
참조 및 숨은 참조 수신자를 추가하려면 "이메일 주소" 필요한 이메일 주소가 있는 줄에.
참조 및 숨은 참조 수신자가 필요하지 않은 경우 아포스트로피를 추가하십시오. ' 각 줄 앞에.

3. 누르세요 F5 코드를 실행하는 키입니다. 팝업에서 Excel 용 Kutools 대화 상자에서 이메일에 첨부 파일로 보내야 하는 셀 범위를 선택한 다음 OK. 스크린 샷보기 :

그러면 Outlook 이메일이 자동으로 생성됩니다. 그리고 워크시트에서 선택한 셀의 범위가 엑셀 워크북으로 저장되어 메시지 창에 첨부됩니다. 스크린샷 참조:


4.2 Excel에서 버튼을 클릭하면 이메일 보내기

예를 들어 Excel에서 전자 메일을 보내기 위한 매크로를 트리거하기 위해 명령 단추를 클릭해야 하는 경우 워크시트에서 명령 단추를 클릭하여 현재 통합 문서를 다른 사람에게 첨부 파일로 보냅니다. 다음 단계에 따라 완료할 수 있습니다.

1. 클릭 개발자 > 끼워 넣다 > 명령 단추 (ActiveX 컨트롤). 그런 다음 워크시트에 명령 단추를 그립니다.

방문 꿀팁: 이미 명령 단추가 있는 경우 이 단계를 건너뜁니다.

2. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창문. 창에서 끼워 넣다 > 모듈, 그런 다음 모듈(코드) 창에 VBA 코드(현재 통합 문서를 Excel의 첨부 파일로 전자 메일로 보내는 데 사용되는 코드)를 붙여넣습니다.

코드를 받으려면 여기를 클릭하세요.

주의 사항: 여기서 2단계에서 만든 매크로의 이름은 워크북 보내기.

3. 누르세요 다른 + Q 닫는 키 응용 프로그램 용 Microsoft Visual Basic 창.

4. 이제 매크로를 명령 버튼에 할당해야 합니다. 명령 단추를 마우스 오른쪽 버튼으로 클릭하고 선택 코드보기 오른쪽 클릭 메뉴에서.

5. 그런 다음 응용 프로그램 용 Microsoft Visual Basic 창이 열리면 다음 두 줄이 나열되는 것을 볼 수 있습니다. 시트(코드) 창.

Private Sub CommandButton1_Click()
End Sub

6. 명령 단추에 대한 하위 프로시저 내부에 기존 매크로의 이름을 입력합니다.

7. 누르세요 다른 + Q 닫는 키 비주얼 베이직 에디터그리고 클릭 개발자 > 디자인 모드 디자인 모드를 끕니다.

이제 명령 단추를 클릭하여 현재 통합 문서가 포함된 전자 메일을 전자 메일의 첨부 파일로 보낼 수 있습니다.


4.3 지정된 이메일 계정에서 이메일 보내기

일반적으로 VBA 코드가 있는 Excel에서 전자 메일을 시작할 때 보낸 사람의 전자 메일 계정은 Outlook의 기본 계정입니다. Outlook에서 여러 전자 메일 계정을 구성했으며 기본 계정을 사용하는 대신 특정 계정을 사용하여 Excel에서 전자 메일을 보내려고 한다고 가정합니다. 다음 VBA 코드가 도움이 될 수 있습니다.

이 경우 다음 코드가 필요합니다.

VBA 코드 1:

Dim OutlookMail As Outlook.MailItem

VBA 코드 2:

For Each xAccount In OutlookApp.Session.Accounts
  If VBA.LCase(xAccount.SmtpAddress) = VBA.LCase("") Then 'Specify your email account here
    OutlookMail.SendUsingAccount = xAccount
  End If
Next

위의 VBA 코드를 사용하는 방법은 무엇입니까?

1) 자신의 코드에서 "OutlookMail을 개체로 흐리게 처리” VBA 코드 1;
2) "줄 아래에 VBA 코드 2를 추가하십시오.오류에 대한 다음 재개” 당신의 코드에서. 그런 다음 VBA 코드 2로 이메일을 보내는 데 사용할 이메일 주소를 지정합니다.

이 예에서는 현재 통합 문서를 Excel의 첨부 파일로 보내기 위해 특정 전자 메일 계정을 지정합니다. 다음과 같이 하십시오.

1. 누르세요 다른 + F11 키. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 도구 > 참고자료. 그런 다음 Microsoft Outlook 16.0 개체 라이브러리 상자를 클릭하고 OK FBI 증오 범죄 보고서 참조 – VBAProject 대화 상자.

2. 클릭 끼워 넣다 > 모듈. 그런 다음 다음 VBA 코드를 붙여넣습니다. 모듈(코드) 창.

VBA 코드: 현재 통합 문서를 지정된 Outlook 계정을 통해 Excel에서 전자 메일 첨부 파일로 보내기

Sub SendWorkBook()
'Update by Extendoffice 20220809
Dim OutlookApp As Object
Dim OutlookMail As Outlook.MailItem 'important! Here can’t be declared as Object
Dim xAccount As Account
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(olMailItem)
On Error Resume Next
'The following lines helps to specify a certian email account
For Each xAccount In OutlookApp.Session.Accounts
  If VBA.LCase(xAccount.SmtpAddress) = VBA.LCase("") Then 'Specify your email account here
    OutlookMail.SendUsingAccount = xAccount
  End If
Next
'End
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

3. 누르세요 F5 코드를 실행하는 키입니다. 그런 다음 Outlook 이메일 메시지가 나타납니다. ~ 필드는 코드에서 지정한 이메일 계정으로 채워집니다.


4.4 날짜에 도달하면 이메일 보내기

예를 들어 아래 스크린샷과 같이 특정 기한을 기준으로 이메일을 보내야 하는 경우 프로젝트 테이블이 있습니다. E2:E7 범위의 만기일이 오늘로부터 7일 이하인 경우(현재 날짜가 2022/8/4라고 가정), 이메일이 해당 프로젝트 리더에게 자동으로 전송되어 프로젝트가 곧 만료될 예정임을 알립니다.

1. 프로젝트 테이블이 포함된 워크시트에서 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 코드보기 오른쪽 클릭 메뉴에서.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창에서 다음 VBA 코드를 붙여넣습니다. 시트(코드) 창.

VBA 코드: 기한이 충족되면 자동으로 이메일 보내기

Public Sub SendMailDueDate()
'Updated by Extendoffice 20220804
Dim xRgDate As Range
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xLastRow As Long
Dim vbCrLf As String
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim i As Long
On Error Resume Next
Set xRgDate = Range("E2:E7") 'Please reference the due date column range
If xRgDate Is Nothing Then Exit Sub
Set xRgSend = Range("C2:C7") 'Please reference the email addresses column range
If xRgSend Is Nothing Then Exit Sub
Set xRgText = Range("D2:D7") 'Please reference the remark column range (the remark used to notify project leaders of the expiration of the project)
If xRgText Is Nothing Then Exit Sub
xLastRow = xRgDate.Rows.Count
Set xRgDate = xRgDate(1)
Set xRgSend = xRgSend(1)
Set xRgText = xRgText(1)
Set xOutApp = CreateObject("Outlook.Application")
For i = 1 To xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(i - 1).Value
If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
xRgSendVal = xRgSend.Offset(i - 1).Value
xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
vbCrLf = "

" xMailBody = "" xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf xMailBody = xMailBody & "Remark : " & xRgText.Offset(i - 1).Value & vbCrLf xMailBody = xMailBody & "" Set xMailItem = xOutApp.CreateItem(0) With xMailItem .Subject = xMailSubject .To = xRgSendVal .CC = "Email address" .BCC = "Email address" .HTMLBody = xMailBody .Display '.Send End With Set xMailItem = Nothing End If End If Next Set xOutApp = Nothing End Sub

노트: 코드에서

1) 다음 줄에서, E2 : E7 이메일을 보낼 기한이 포함되어 있습니다. C2 : C7 이메일을 보낼 이메일 주소가 포함되어 있습니다. 그리고 D2 : D7 프로젝트가 곧 만료될 예정임을 수신자에게 알리기 위해 이메일 본문에 추가할 설명이 포함되어 있습니다. 필요에 따라 범위를 변경할 수 있습니다.
xRgDate = Range("E2:E7") 설정
xRgSend = Range("C2:C7") 설정
xRgText = Range("D2:D7") 설정
2) 다음 줄은 마감일이 오늘부터 1일 이상 7일 이하이어야 함을 의미합니다. 필요에 따라 변경할 수 있습니다.
CDate(xRgDateVal) - 날짜 <= 7이고 CDate(xRgDateVal) - 날짜 > 0이면
3) 라인에서 .까지 = , 교체하십시오 실제 받는 사람의 이메일 주소로 이메일 주소가 두 개 이상 필요한 경우 세미콜론으로 구분하십시오.
4) 줄의 이메일 제목 변경 .Subject = "워크시트 수정됨".
5) 다음 두 줄에서:
.CC = "이메일 주소"
.BCC = "이메일 주소"
참조 및 숨은 참조 수신자를 추가하려면 "이메일 주소" 필요한 이메일 주소가 있는 줄에.
참조 및 숨은 참조 수신자가 필요하지 않은 경우 아포스트로피를 추가하십시오. ' 각 줄 앞에.

3. 누르세요 F5 코드를 실행하는 키입니다. 그런 다음 만료 날짜가 조건과 일치하면 해당 이메일이 생성됩니다. 이 경우 아래 스크린샷과 같이 두 개의 이메일이 생성됩니다.


5. Excel에서 이메일을 쉽게 보낼 수 있는 편리한 도구

VBA 초보자라면 위의 방법을 다루기가 쉽지 않을 수 있습니다. 여기에서 우리가 추천합니다 Excel 용 Kutools이메일 보내기 이 기능을 사용하면 몇 번의 클릭만으로 Excel에서 쉽게 이메일을 보낼 수 있습니다. 다음과 같이 하십시오.

신청하기 전에 Excel 용 Kutools, 제발 먼저 다운로드하여 설치하십시오..

5.1 필요한 이메일 필드가 포함된 메일링 리스트를 쉽게 생성

이메일 보내기 기능을 적용하기 전에 필요한 이메일 필드가 포함된 메일링 리스트를 생성해야 합니다. 여기에서 메일링 리스트 생성 기능이 도움이 될 수 있습니다.

1. 클릭 쿠툴즈 플러스 > 메일 링리스트 생성.

2. 오프닝에서 메일 링리스트 생성 창에서 다음과 같이 구성해야 합니다.

2.1)에서 메일 링리스트 열 섹션에서 이메일에 필요한 필드를 확인하십시오.
2.2)에서 파일 첨부 섹션에서 필요할 수 있는 하나 이상의 첨부 파일을 확인하십시오.
2.3) 메일링 리스트를 배치할 위치를 지정합니다.
2.4) 클릭 만들기 단추. 스크린 샷보기 :

그런 다음 아래 스크린샷과 같이 샘플 메일링 리스트 테이블이 생성됩니다.

3. 이제 샘플의 원본 데이터를 자신의 필드 데이터로 바꿔야 합니다.

이제 메일링 리스트 테이블을 만들었습니다. 신청을 진행해주세요 이메일 보내기 생성한 필드를 기반으로 Excel에서 이메일을 보내는 기능.

  이 유틸리티의 무료 평가판 (30 일)을 받으려면 그것을 다운로드하려면 클릭하십시오을 클릭 한 다음 위 단계에 따라 작업 적용으로 이동합니다.


5.2 메일링 리스트에서 생성한 필드를 포함하여 쉽게 이메일 보내기

메일링 리스트를 생성한 후(방법을 알고 클릭) 이메일에 필요할 수 있는 필드가 포함된 경우 이제 이 필드를 사용하여 Excel에서 이메일을 보낼 수 있습니다.

1. 전체 메일링 리스트를 선택하고 쿠툴즈 플러스 > 이메일 보내기.

2. 에서 이메일 보내기 대화 상자에서 다음 구성을 수행하십시오.

2.1) 필드는 메일링 목록에서 지정한 필드에 의해 각 필드의 대화 상자에 자동으로 채워집니다.
방문 꿀팁: 현재 특정 필드가 필요하지 않은 경우 드롭다운 목록에서 빈 옵션을 선택합니다.
2.2) 자리 표시 자 삽입 (선택): 이메일 본문에 변수 정보를 삽입해야 하는 경우.
예를 들어, 여러 수신자에게 각자 개인화된 이름으로 이메일을 보내야 할 수 있으며, 자리 표시자를 삽입해야 하는 이메일 본문에 커서를 놓고 " 필드를 선택해야 합니다.E: 이름"(또는 이메일 목록의 다른 이름 필드)를 클릭한 다음 삽입 자리 표시 자 단추;
수신자가 이메일을 수신하면 이메일 본문은 동일하게 유지되지만 이름은 각각 고유합니다.
2.3) 필요에 따라 이메일 본문을 작성하십시오.
2.4) 다음을 확인하십시오. Outlook을 통해 이메일 보내기 상자가 선택되어 있습니다.
2.5) 클릭 전송 단추. 스크린 샷보기 :

3. 그런 다음 Excel 용 Kutools 얼마나 많은 이메일을 보냈는지 알려주는 대화 상자가 나타나면 OK 버튼을 눌러이 대화 상자를 닫습니다.

방문 꿀팁: 당신은 갈 수 있습니다 보낸 편지함 Outlook의 폴더를 클릭하여 보낸 이메일을 확인합니다.


5.3 HTML 본문(하이퍼링크, 이미지 등 포함)으로 이메일을 쉽게 보낼 수 있습니다.

이 이메일 보내기 기능을 사용하면 하이퍼링크, 이미지, 다양한 글꼴 크기 및 글꼴 색상 등이 포함된 html 이메일을 작성할 수 있습니다.

필요한 이메일 필드를 포함하는 메일링 리스트 생성,

. 이메일 보내기 대화 상자 구성, 도구 모음의 옵션을 사용하여 본문 내용을 풍부하게 만들 수 있습니다.

아래 스크린샷을 참조하십시오.


5.4 이메일을 보낼 때 Outlook 기본 서명을 쉽게 삽입

위의 방법에서 Outlook 기본 서명으로 이메일을 보내는 데 도움이 되는 VBA 코드를 시연했습니다. 여기에서 이메일 보내기 기능을 사용하여 옵션을 선택하기만 하면 Excel에서 보낸 이메일에 Outlook 기본 서명이 삽입됩니다.

필요한 이메일 필드를 포함하는 메일링 리스트 생성,

인셀덤 공식 판매점인 이메일 보내기 대화 상자 구성, 당신은 클릭해야 옵션 > Outlook의 서명 설정 사용.

주의 사항: Outlook의 서명 설정 사용 옵션 앞에 체크 표시가 있는지 확인하십시오.

받는 사람이 전자 메일을 받으면 전자 메일 본문 끝에 표시되는 Outlook 기본 서명을 볼 수 있습니다.


5.5 지정된 이메일 계정에서 쉽게 이메일 보내기

기본 계정을 사용하는 대신 특정 이메일 계정을 사용하여 Excel에서 이메일을 보내려는 경우 이메일 보내기 기능을 사용하면 쉽게 완료할 수 있습니다.

필요한 이메일 필드를 포함하는 메일링 리스트 생성,

인셀덤 공식 판매점인 이메일 보내기 대화 상자 구성, 당신은 클릭해야 옵션 > 부터 보내진을 클릭한 다음 이메일을 보내야 하는 이메일 계정을 클릭합니다.

주의 사항: 이메일 계정을 선택하면 그 앞에 체크 표시가 나타납니다.

여기를 눌러 더 많은 정보를 찾으세요. 이 이메일 보내기 기능에 대해 자세히 알아보세요.

  이 유틸리티의 무료 평가판 (30 일)을 받으려면 그것을 다운로드하려면 클릭하십시오을 클릭 한 다음 위 단계에 따라 작업 적용으로 이동합니다.

결론적으로 Excel에서 이메일을 보내는 것은 일상 업무에 매우 유용합니다. 이 기사는 Excel에서 보내는 이메일에 대한 보다 포괄적인 주제를 다룹니다. 다른 주제나 더 쉬운 솔루션이 있으면 댓글로 알려주세요.

최고의 사무 생산성 도구

🤖 Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행   |  코드 생성  |  사용자 정의 수식 만들기  |  데이터 분석 및 차트 생성  |  Kutools 기능 호출...
인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

상품 설명


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations