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

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

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

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

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

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

2. В дебюте Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Инструменты > Рекомендации как показано ниже.

3. в Ссылки - VBAProject диалоговом окне найдите и проверьте Библиотека объектов Microsoft Outlook вариант, а затем щелкните 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 = "test") строк в коде.

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

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

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

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

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

1. Во-первых, вам необходимо подготовить список рассылки с необходимыми полями.

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

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

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

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

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

  

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

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

С этого момента вы можете напрямую отправлять электронные письма с помощью этой функции в Excel.

Статьи по теме: