Как отправить электронную почту на адреса электронной почты, указанные в ячейках Excel?
Предположим, у вас есть список адресов электронной почты, и теперь вы хотите массово отправлять сообщения электронной почты на эти адреса прямо в Excel. Как этого добиться? В этой статье будут показаны способы отправки электронной почты на несколько адресов электронной почты, указанных в ячейках Excel.
Отправка электронной почты на адреса электронной почты, указанные в ячейках Excel, с помощью VBA
Легко отправлять электронную почту на адреса электронной почты, указанные в ячейках, с помощью Kutools for Excel
Отправка электронной почты на адреса электронной почты, указанные в ячейках Excel, с помощью VBA
Следующий код VBA может помочь вам отправлять электронные письма на указанные адреса электронной почты в Excel. Пожалуйста, сделайте следующее.
1. В рабочем листе содержатся адреса электронной почты, на которые нужно отправлять электронные письма, нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. В дебюте Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Инструменты > Рекомендации как показано ниже.
3. в Ссылки - VBAProject диалоговом окне найдите и проверьте Библиотека объектов Microsoft Outlook вариант, а затем щелкните OK .
4. Затем нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно модуля.
Код VBA: отправка электронной почты на адреса электронной почты, указанные в ячейках Excel
Sub SendEmailToAddressInCells()
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.To = xRgVal
.Subject = "Test"
.Body = "Dear " _
& vbNewLine & vbNewLine & _
"This is a test email " & _
"sending in Excel"
.Display
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubВнимание: Пожалуйста, укажите тему и текст вашего электронного письма в обоих .Subject = "тест" и .Body = "Уважаемый" _ & vbNewLine & vbNewLine & _ "Это тестовое письмо" & _ "отправка в Excel" строк в коде.
5. нажмите F5 ключ для запуска кода. В открытии Kutools for Excel В диалоговом окне выберите диапазон, содержащий адреса электронной почты, на которые вы будете отправлять электронные письма, а затем щелкните OK кнопка. Смотрите скриншот:
Затем создаются электронные письма на основе выбранных адресов электронной почты, как показано ниже. Пожалуйста, нажмите на Отправить кнопки для отправки этих писем.
Заметки:
Отправить электронное письмо на адреса электронной почты, указанные в ячейках, с помощью Kutools for Excel
Этот раздел порекомендует вам Отправить письма полезности Kutools for Excel. С помощью этой утилиты вы можете легко отправлять электронные письма на адреса электронной почты, указанные в ячейках Excel. Пожалуйста, сделайте следующее.
Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.
1. Выберите адреса электронной почты с ячейкой заголовка на листе, затем щелкните Кутулс Плюс > Отправить письма.
2. Во всплывающем Отправить письма диалоговом окне выполните следующие настройки:
3. Затем Kutools for Excel появится диалоговое окно, в котором будет указано, сколько писем было отправлено. Пожалуйста, нажмите на OK кнопку и закройте Отправить письма диалоговое окно. Смотрите скриншот:
Заметки:
Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Демо: отправка электронной почты на адреса электронной почты, указанные в ячейках, с помощью Kutools for Excel
Статьи по теме:
- Как отправить электронное письмо с копированием и вставкой указанного диапазона в тело письма в Excel?
- Как отправить электронное письмо с несколькими вложениями в Excel?
- Как вставить подпись в электронную почту Outlook при отправке по vba в Excel?
- Как отправить электронное письмо, если срок в Excel соблюден?
- Как автоматически отправлять электронную почту на основе значения ячейки в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
