Как отправить электронную почту на адреса электронной почты, указанные в ячейках 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. Пожалуйста, сделайте следующее.

1. Выберите адреса электронной почты с ячейкой заголовка на листе, затем щелкните Кутулс Плюс > Отправить письма.

2. Во всплывающем Отправить письма диалоговом окне выполните следующие настройки:

3. Затем Kutools for Excel появится диалоговое окно, в котором будет указано, сколько писем было отправлено. Пожалуйста, нажмите на OK кнопку и закройте Отправить письма диалоговое окно. Смотрите скриншот:

Заметки:

Демо: отправка электронной почты на адреса электронной почты, указанные в ячейках, с помощью Kutools for Excel

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

• Как отправить электронное письмо с копированием и вставкой указанного диапазона в тело письма в Excel?
• Как отправить электронное письмо с несколькими вложениями в Excel?
• Как вставить подпись в электронную почту Outlook при отправке по vba в Excel?
• Как отправить электронное письмо, если срок в Excel соблюден?
• Как автоматически отправлять электронную почту на основе значения ячейки в Excel?