Как отправить электронное письмо из указанного диапазона ячеек в Excel?

Во многих случаях указанный диапазон данных на листе Excel может быть полезен для общения по электронной почте. В этой статье мы представим метод отправки электронного письма с указанным диапазоном непосредственно в теле письма через Excel.

Отправка электронного письма из указанного диапазона ячеек в Excel
Отправка электронного письма из указанного диапазона ячеек с помощью удивительного инструмента
Больше руководств по отправке писем в Excel...

Отправка электронного письма из указанного диапазона ячеек в Excel

Следующий код VBA поможет вам скопировать диапазон и вставить его непосредственно в тело письма Outlook прямо из Excel. Пожалуйста, следуйте инструкциям ниже.

1. На листе, содержащем диапазон, который нужно скопировать, одновременно нажмите клавиши "Alt + F11", чтобы открыть окно "Microsoft Visual Basic for Applications".

2. В открывшемся окне "Microsoft Visual Basic for Applications" нажмите "Инструменты" > "Ссылки", как показано на скриншоте ниже.

3. В диалоговом окне "Ссылки – VBAProject" найдите и отметьте опцию "Microsoft Outlook Object Library", затем нажмите кнопку OK.

4. Нажмите "Вставить" > "Модуль", затем скопируйте и вставьте приведенный ниже код VBA в окно Модуля.

Код VBA: Отправка электронного письма с указанным диапазоном в Excel

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    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)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Примечания:

• 1). Пожалуйста, измените текст письма в этой строке скрипта xEmailBody = "Привет" & vbLf & vbLf & "текст сообщения, который вы хотите добавить" & vbLf & vbLf & xEmailBody & vbNewLine, как вам нужно.
• 2). Укажите получателя и тему письма в этой строке кода: (.To = happy.xuebi@163.com и .Subject = "тест").

5. Нажмите клавишу F5 для запуска кода. В появившемся диалоговом окне Kutools для Excel выберите диапазон, который нужно вставить в тело письма, и нажмите кнопку OK. См. скриншот:

6. Теперь создано письмо с указанным получателем, темой, телом и выбранным диапазоном Excel. Нажмите кнопку "Отправить", чтобы отправить это письмо. См. скриншот.

Примечание: Этот код VBA работает только при использовании Outlook в качестве программы электронной почты.

Отправка электронного письма из указанного диапазона ячеек с помощью удивительного инструмента

Если вы не используете Outlook и все же хотите отправлять электронные письма прямо из Excel с данными из указанного диапазона, настоятельно рекомендую вам функцию "Отправить письмо" из Kutools для Excel. С помощью этой функции вам нужно только настроить исходящий сервер электронной почты, а затем отправлять письма в Excel напрямую через этот адрес электронной почты в будущем.

1. Сначала вам нужно подготовить список рассылки с необходимыми полями.

• Советы: Список рассылки должен содержать хотя бы 2 строки, и первая строка должна быть заголовками (например, если вы хотите отправить электронные письма на два адреса электронной почты в Excel, введите эти два адреса с заголовком «Электронная почта», как показано на скриншоте ниже).
• 
• Кроме того, вы можете легко создать список рассылки с помощью функции Создать список рассылки.

2. Выберите диапазон, который вы хотите добавить в тело письма, и нажмите клавиши Ctrl + C для копирования.

3. Выберите весь список рассылки (включая заголовки), нажмите "Kutools Plus" > "Отправить письма". См. скриншот:

4. Затем появится диалоговое окно "Отправить письма".

• 4.1) Элементы выбранного списка рассылки автоматически заполняются в соответствующих полях (вы можете добавить больше полей в список рассылки по мере необходимости);
• 4.2) Щелкните на поле тела письма, нажмите клавиши Ctrl + V для вставки данных выбранного диапазона. После этого добавьте другое содержимое по необходимости;
• 4.3) Снимите флажок "Отправить письма через Outlook";
• 4.4) Нажмите кнопку "Параметры SMTP". См. скриншот:

  

5. Затем появится диалоговое окно "Параметры SMTP – Новая схема". Пожалуйста, заполните адрес электронной почты с его настройками сервера, укажите папку для сохранения всех отправленных писем после отметки флажка "Сохранить отправленные письма в", и нажмите кнопку OK для сохранения настроек.

6. Когда вернетесь в диалоговое окно "Отправить письма", нажмите кнопку "Отправить", чтобы отправить письмо.

Связанные статьи: