Во многих случаях указанный диапазон содержимого на листе 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
Заметки:
5. нажмите F5 ключ для запуска кода. В всплывающем Kutools for Excel В диалоговом окне выберите диапазон, который необходимо вставить в текст сообщения электронной почты, а затем щелкните значок OK кнопка. Смотрите скриншот:
6. Теперь создается электронное письмо с указанным получателем, темой, телом и выбранным диапазоном Excel. Щелкните значок Отправить кнопку, чтобы отправить это письмо. См. Показанный снимок экрана.
Внимание: Код VBA работает только при использовании Outlook в качестве почтовой программы.
Если вы не используете Outlook и по-прежнему хотите отправлять электронные письма непосредственно в Excel с вставленными в него данными указанного диапазона, я настоятельно рекомендую Отправить письма полезности Kutools for Excel для вас. С помощью этой функции вам просто нужно настроить исходящий сервер для адреса электронной почты, а затем отправлять электронные письма в Excel напрямую через этот адрес электронной почты в будущем.
Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.
1. Во-первых, вам необходимо подготовить список рассылки с необходимыми полями.
2. Выберите диапазон, в который вы будете добавлять данные в тело письма, и нажмите Ctrl + C ключи для его копирования.
3. Выберите весь список рассылки (включая заголовки), нажмите Kutools Plus > Отправить письма. Смотрите скриншот:
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, позволяющий быстро решить эту проблему.
