Как отправить электронное письмо с копированием и вставкой указанного диапазона в тело письма в 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 = ""
.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). Укажите получателя электронной почты и тему (.К = и .Subject = "test") строк в коде.
5. нажмите F5 ключ для запуска кода. В всплывающем Kutools for Excel В диалоговом окне выберите диапазон, который необходимо вставить в текст сообщения электронной почты, а затем щелкните значок OK кнопка. Смотрите скриншот:
6. Теперь создается электронное письмо с указанным получателем, темой, телом и выбранным диапазоном Excel. Щелкните значок Отправить кнопку, чтобы отправить это письмо. См. Показанный снимок экрана.
Внимание: Код VBA работает только при использовании Outlook в качестве почтовой программы.
Отправляйте электронное письмо с указанным диапазоном, вставленным в тело письма, с помощью замечательного инструмента
Если вы не используете Outlook и по-прежнему хотите отправлять электронные письма непосредственно в Excel с вставленными в него данными указанного диапазона, я настоятельно рекомендую Отправить письма полезности Kutools for Excel для вас. С помощью этой функции вам просто нужно настроить исходящий сервер для адреса электронной почты, а затем отправлять электронные письма в Excel напрямую через этот адрес электронной почты в будущем.
Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.
1. Во-первых, вам необходимо подготовить список рассылки с необходимыми полями.
- Советы: Список рассылки должен содержать не менее 2 строк, и первая строка должна быть заголовками (Предположим, вы хотите отправлять электронные письма на два адреса электронной почты в Excel, введите эти два адреса электронной почты с заголовком «Электронная почта», как показано на скриншоте ниже. ).
- Кроме того, вы можете легко создать список рассылки с Создать список рассылки функцию.
2. Выберите диапазон, в который вы будете добавлять данные в тело письма, и нажмите Ctrl + C ключи для его копирования.
3. Выберите весь список рассылки (включая заголовки), нажмите Кутулс Плюс > Отправить письма. Смотрите скриншот:
4. Затем Отправить письма появится диалоговое окно.
- 4.1) Элементы выбранного списка рассылки заполняются в соответствующих полях (вы можете добавить дополнительные поля в список рассылки по своему усмотрению);
- 4.2) Щелкните поле тела сообщения электронной почты, нажмите кнопку Ctrl + V клавиши, чтобы вставить в него данные выбранного диапазона. После этого добавьте другой контент по мере необходимости;
- 4.3 Снимите флажок Отправлять электронные письма через Outlook коробка;
- 2.4) Нажмите Настройки исходящего сервера кнопка. Смотрите скриншот:
5. Затем Настройки сервера исходящей почты (SMTP) - Новая схема появится диалоговое окно. Пожалуйста, заполните адрес электронной почты с настройками его сервера, укажите папку для сохранения всех отправленных писем после проверки Сохранять отправленные письма в поле, а затем щелкните OK чтобы сохранить настройки.
6. Когда он вернется в Отправить письма диалогового окна, нажмите Отправить кнопку, чтобы отправить электронное письмо.
С этого момента вы можете напрямую отправлять электронные письма с помощью этой функции в Excel.
Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Статьи по теме:
Отправлять электронную почту на адреса электронной почты, указанные в ячейках Excel
Предположим, у вас есть список адресов электронной почты, и вы хотите массово отправлять сообщения электронной почты на эти адреса прямо в Excel. Как этого добиться? В этой статье будут показаны способы отправки электронной почты на несколько адресов электронной почты, указанных в ячейках Excel.
Вставить подпись Outlook при отправке электронной почты в Excel
Предположим, вы хотите отправить электронное письмо прямо в Excel, как вы можете добавить подпись Outlook по умолчанию в электронную почту? В этой статье представлены два метода, которые помогут вам добавить подпись Outlook при отправке электронной почты в Excel.
Отправить электронное письмо с несколькими вложениями в Excel
В этой статье рассказывается об отправке электронного письма через Outlook с несколькими вложениями, прикрепленными в Excel.
Отправить электронное письмо, если срок оплаты в Excel соблюден
Например, если срок оплаты в столбце C меньше или равен 7 дням (текущая дата - 2017/9/13), то отправьте электронное напоминание указанному получателю в столбце A с указанным содержанием в столбце B. Как сделать Добейся этого? В этой статье будет предоставлен метод VBA для более подробного решения этой проблемы.
Автоматически отправлять электронную почту на основе значения ячейки в Excel
Предположим, вы хотите отправить электронное письмо через Outlook определенному получателю на основе указанного значения ячейки в Excel. Например, если значение ячейки D7 на листе больше 200, электронное письмо создается автоматически. В этой статье представлен метод VBA, позволяющий быстро решить эту проблему.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
