Word 없이 Excel에서 편지 병합(2가지 적절한 방법)

메일 병합 방법 찾기 엑셀 단어 없이 ? 그렇다면 이곳이 당신에게 딱 맞는 곳입니다. Microsoft Word인 경우 어떤 이유로 사용할 수 없습니다. 메일 병합을 수행 중입니다. 까다로울 것입니다. 그러나 Word와 같이 불가능한 것은 아닙니다. 메일 병합을 수행하는 데 필수는 아닙니다. 작업. 이 기사에서는 2 VBA 매크로 메일 병합 엑셀 단어 없이 .

메일 병합

누군가 또는 일부 회사에서 이름, 받는 사람의 이메일 주소 또는 받는 사람의 주소와 같은 약간의 수정으로 많은 수의 이메일을 보내려는 경우. 그런 다음 관련 당사자는 템플릿과 편집 가능한 필드를 생성하여 요구 사항을 충족할 수 있습니다. 우리는 이러한 종류의 템플릿을 메일 병합으로 알고 있습니다. .

이것은 총 시간을 절약해 줍니다. Word 를 통해 이 작업을 수행하는 것이 일반적입니다. 프로세서(예:Microsoft Word , Google 문서도구, 등.). 워드스타 80년대 초반에 이 기능을 처음 도입했습니다. . 그 후 다른 사람들이 이 매우 유용한 기능을 채택했습니다.

일반적으로 5를 따라야 합니다. 메일 병합의 주요 단계 작업:

• 첫째, 원본 .
• 둘째, 데이터 소스 .
• 셋째, 필드 입력합니다.
• 그런 다음 병합 원본 .
• 마지막으로, 저장 또는 보내기 이메일 .

Word 없이 Excel에서 편지 병합을 위한 2가지 편리한 접근 방식

Microsoft Word 로 가장 눈에 띄는 단어 우리 대부분은 Word 를 연관시킵니다. "메일 병합 텍스트가 들릴 때 ". 그러나 Microsoft Excel 만을 사용하여 다르게 할 것입니다. 메일 병합 수행 . 따라서 이 기사를 통해 자세히 알아보십시오.

또한 두 개의 데이터세트를 사용하여 매크로 , 그 중 첫 번째 데이터세트에는 '이름 열이 있습니다. ", "이메일 주소 ", "도시 ', '거리 주소 ". 이 기사의 두 번째 방법에서 후자의 데이터 세트를 볼 것입니다. 또한 개인 정보 보호를 위해 3 데이터 세트의 이메일 주소와 마지막 주소는 이 기사 작성자의 것이므로 문제 없이 이메일을 보낼 수 있는지 확인하는 데 사용할 것입니다.

1. Excel에서 자동으로 이메일을 보내기 위한 편지 병합

첫 번째 방법의 경우 워크시트 이름은 "VBA1입니다. ". VBA 를 삽입합니다. 두 개의 하위 프로시저가 있는 코드 단일 모듈 사용 메일 병합 엑셀 단어 없이 . 그런 다음 이 코드를 실행하여 사전 정의된 템플릿을 사용하여 나열된 고객에게 이메일을 자동으로 보냅니다. 모든 작업을 수행하기 전에 모듈 을 불러오는 방법을 보여드리겠습니다. 창을 열고 VBA 코드.

단계:

• 첫째, 개발자 탭>>> Visual Basic 선택 .
  • 또는 ALT + F11을 누를 수도 있습니다. VBA 표시 창 .

• 둘째, 삽입 >>> 모듈 선택 .

• 따라서 모듈이 나타납니다. VBA를 입력하는 창 코드.
• 다음으로 모듈 안에 다음 코드를 입력하십시오. 창.

Option Explicit
Sub Mail_Merge_Only_Excel()
    Dim xSheet As Worksheet
    Dim mAddress As String, mSubject As String, eName As String, _
    eLocation As String, eCity As String
    Dim eRow As Long, x As Long
    Set xSheet = ThisWorkbook.Sheets("VBA1") 'WorkSheet Name
    With xSheet
        eRow = .Cells(.Rows.Count, 5).End(xlUp).Row
        For x = 5 To eRow 'Specific Row to Row to Last Row
                mAddress = .Cells(x, 3)
                mSubject = "Thank You for Your Loyalty"
                eName = .Cells(x, 2)
                eCity = .Cells(x, 4)
                eLocation = .Cells(x, 5)
                Call Mail_Merge_Only_Excel_Send_Mail(mAddress, mSubject, _
                eName, eLocation, eCity)
        Next x
    End With
End Sub
Sub Mail_Merge_Only_Excel_Send_Mail(mAddress As String, mSubject As String, _
eName As String, eLocation As String, eCity As String)
    Dim pApp As Object
    Dim pMail As Object
    Set pApp = CreateObject("Outlook.Application")
    Set pMail = pApp.CreateItem(0)
    With pMail
        .To = mAddress
        .CC = ""
        .BCC = ""
        .Subject = mSubject
        .Body = "Mr./Mrs. " & eName & vbNewLine & eCity & vbNewLine & eLocation & _
        vbNewLine & vbNewLine & "Hello! " _
        & "You are one of the most precious customers to us for the last quarter. " _
        & "As a token of appreciation, we are sending you 20$ coupon code for your " _
        & "next purchase at ExcelDemy. " _
        & "Use the coupon code 'ExcelDemy20' to avail of this discount." _
        & vbNewLine & "From," & vbNewLine & "ExcelDemy Team"
        .Send
    End With
    Set pMail = Nothing
    Set pApp = Nothing
End Sub

VBA 코드 분석

• 먼저, 첫 번째 Sub 프로시저를 호출합니다. “Mail_Merge_Only_Excel ".
• 둘째, 변수 유형을 선언하고 "VBA1 "를 워크시트로 .
• 그런 다음 마지막 행 번호를 찾습니다. 또한 우리의 값은 5 행에서 시작합니다. , 따라서 우리는 행 5 를 넣었습니다. 코드의 마지막 행으로 이동합니다.
• 그런 다음 두 번째 하위 프로시저를 호출합니다. “Mail_Merge_Only_Excel_Send_Mail ".
• 그 다음에는 Outlook 을 선택합니다. 메일 애플리케이션으로 .
• 그런 다음 이메일 콘텐츠가 코드에 설정됩니다. 또한 vbNewLine 이메일 본문에 빈 줄을 삽입합니다.
• 그 후 ".보내기 "는 여기에서 이메일을 보내는 데 사용됩니다. 따라서 보내기 를 누를 필요가 없습니다. 이메일을 보내려면 수동으로. 또한 ".Display " 이메일을 보내지 않고 표시합니다.

• 나중에 저장 모듈 .
• 그런 다음 첫 번째 하위 프로시저 안에 커서를 놓습니다. 실행을 누릅니다. .
• 이제 Outlook 에 로그온하지 않은 경우 메일 앱을 실행하면 로그인 자격 증명을 입력하라는 메시지가 표시됩니다. 이미 로그인되어 있으므로 추가 단계 없이 메일이 전송됩니다.

• 마지막으로 이 스냅샷은 메일 병합을 보여줍니다. 의도한 대로 작동하며 Excel을 사용하여 작동할 수 있습니다. 단어 없이 .

자세히 알아보기:Excel에서 Outlook으로 편지 병합 방법(간단한 단계 포함)

2. Word 없이 Excel의 선택 항목에서 편지 병합

마지막 방법으로 데이터세트를 약간 변경했습니다. "이름으로 구성된 3개의 열이 있습니다. ", "이메일 주소 " 및 "텍스트 ". 다른 VBA 를 사용합니다. 메일 병합을 수행하는 코드 엑셀 뿐. 이번에는 InputBox 메소드 를 사용하겠습니다. 이메일 주소와 보낼 텍스트를 선택합니다. 또한 메일 병합만 표시됩니다. 작업 Outlook 응용 프로그램 버튼을 클릭하여 수동으로 보냅니다. 이메일 본문은 모든 고객에게 동일합니다. 더 이상 고민하지 않고 단계로 넘어가겠습니다.

단계:

• 먼저, 첫 번째 방법에 표시된 대로 , 모듈 불러오기 창을 열고 이 코드를 입력하세요.

Public Sub Mail_Merge_Without_Word_Input_Box()
'Declare the variables
    Dim XRcptsEmail As Range
    Dim xMailContent As Range
    Dim xRngDn As Range
    Dim xCrtOut As Object
    Dim xValSendRng As String
    Dim k As Long
    Dim xMailSections As Object
    Dim xFinalRw As Long
    Dim CrVbLf As String
    Dim xMsg As String
    On Error Resume Next
    'Insert a input box for selecting the recipients
    Set XRcptsEmail = Application.InputBox("Choose the column for the email" _
    & "addresses of the recipients:", "ExcelDemy", , , , , , 8)
    If XRcptsEmail Is Nothing Then Exit Sub
    'To enter the text mail, insert a input box
    Set xMailContent = Application.InputBox("In your email," _
    & "choose the column with the text:", "ExcelDemy", , , , , , 8)
    If xMailContent Is Nothing Then Exit Sub
    'Count rows for the recipient email
    xFinalRw = XRcptsEmail.Rows.Count
    Set XRcptsEmail = XRcptsEmail(1)
    Set xMailContent = xMailContent(1)
    'Set command to open MS Outlook Application
    Set xCrtOut = CreateObject("Outlook.Application")
    'Apply For loop to conduct the operation in each row one by one
    For k = 1 To xFinalRw
            xValSendRng = Cells(XRcptsEmail.Offset(k - 1).Row, _
            XRcptsEmail.Offset(k - 1).Column - 1)
            'Create the subject, body and text contents with the required variables
            CrVbLf = "<br><br>"
            xMsg = "<HTML><BODY>"
            xMsg = xMsg & "Dear " & xValSendRng & CrVbLf
            xMsg = xMsg & "" & xMailContent.Value & CrVbLf
            xMsg = xMsg & "</BODY></HTML>"
            'Create the email
            Set xMailSections = xCrtOut.CreateItem(0)
            'Define the position to place the Subject, Body and Recipients Address
            With xMailSections
                .Subject = "Congratulations!!!"
                xValSendRng = Cells(XRcptsEmail.Offset(k - 1).Row, _
                XRcptsEmail.Offset(k - 1).Column)
                .To = xValSendRng
                .HTMLBody = xMsg
                .Display
            End With
            Set xMailSections = Nothing
    Next
    Set xCrtOut = Nothing
End Sub

VBA 코드 분석

• 우선 하위 프로시저를 호출합니다. Mail_Merge_Without_Word_Input_Box .
• 둘째, 변수 유형을 선언합니다.
• 그 다음에는 두 개의 InputBox 이메일 주소 및 이메일 본문 내용을 얻기 위해.
• 그런 다음 행 번호를 계산합니다.
• 다음으로 For Next 루프를 사용합니다. 모든 행을 순차적으로 살펴보고 VBA 오프셋 사용 속성 1에서 고객 이름을 추출합니다. 열 왼쪽.
• 마지막으로 표시 방법 을 사용합니다. 이메일을 미리 봅니다. 또는 전송 방법 을 사용할 수 있습니다. 이메일도 보낼 수 있습니다.

• 나중에 저장 모듈 .
• 그런 다음 첫 번째 하위 프로시저 안에 커서를 놓습니다. 실행을 누릅니다. .

• 따라서 코드가 실행되고 이메일 주소와 이메일 내용을 선택하라는 메시지가 표시됩니다.
• 다음으로 셀 범위를 선택합니다. C5:C8 이메일 주소로 입력하고 확인을 누릅니다. .

• 그런 다음 D5 셀에 있는 이메일 내용을 선택합니다. 확인을 누릅니다. .

• 그 후에는 4가 표시됩니다. Outlook 응용 프로그램 창 .

• 마지막으로 보내기를 누를 수 있습니다. 이 이메일을 전달합니다.

• 성공적인 메일 병합 이 VBA를 사용하여 출력 코드는 다음과 같습니다.

자세히 보기:첨부 파일을 사용하여 Excel에서 Outlook으로 편지 병합하는 방법(2개의 예)

연습 섹션

Excel에 각 방법에 대한 실습 데이터 세트를 추가했습니다. 파일. 따라서 저희 방법을 쉽게 따라하실 수 있습니다.

결론

보여드린 2 VBA 매크로 메일 병합 엑셀 단어 없이 . 이러한 방법과 관련하여 문제가 발생하거나 저에게 피드백이 있는 경우 아래에 의견을 보내주십시오. 또한 ExcelDemy 사이트를 방문할 수 있습니다. 더 많은 Excel 관련 조항. 읽어주셔서 감사합니다. 계속 발전하세요!

관련 기사

• Excel에서 편지 병합 문서를 채우는 매크로
• Excel 편지 병합에서 날짜 형식을 변경하는 방법(빠른 단계 포함)
• Excel 파일을 우편물 레이블에 병합하는 방법(간단한 단계 사용)
• Excel에서 Word Envelopes로 편지 병합(2가지 쉬운 방법)
• Excel에서 Word로 사진을 편지 병합하는 방법(2가지 쉬운 방법)