Как отправить электронное письмо нескольким получателям в списке из Excel через Outlook?

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

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

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

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

Вы можете использовать код VBA для отправки сообщения сразу нескольким получателям, сделайте следующее:

1. Удерживая нажатой ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: отправка электронной почты нескольким получателям

Sub sendmultiple()
'updateby Extendoffice
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Display
    End With
End Sub

3, Затем нажмите F5 нажмите клавишу для выполнения этого кода, появится диалоговое окно с напоминанием о выборе списка адресов, см. снимок экрана:

4. Затем нажмите OK, и Outlook Сообщение отображается окно, вы можете увидеть, что все выбранные адреса электронной почты были добавлены в к поле, а затем вы можете ввести тему и написать свое сообщение, см. снимок экрана:

5. После завершения сообщения нажмите Отправить кнопку, и это сообщение будет отправлено этим получателям в вашем списке на листе.

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

Если вам нужно отправить сообщение нескольким получателям с текущей книгой в качестве вложения, вы можете применить следующий код VBA.

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: отправка электронной почты нескольким получателям с текущей книгой в виде вложения

Sub EmailAttachmentRecipients()
'updateby Extendoffice
    Dim xOutlook As Object
    Dim xMailItem As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutlook = CreateObject("Outlook.Application")
    Set xMailItem = xOutlook.CreateItem(0)
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    With xMailItem
        .To = xEmailAddr
        .CC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set xOutlook = Nothing
    Set xMailItem = Nothing
End Sub

3. После вставки кода нажмите F5 нажмите клавишу для запуска этого кода, и появится окно подсказки, напоминающее вам о выборе адресов, на которые вы хотите отправить сообщение, см. снимок экрана:

4. Затем нажмите OK кнопку и Outlook Сообщение отображается окно, все адреса электронной почты добавлены в к поле, и ваша текущая книга также была вставлена ​​как вложение, а затем вы можете ввести тему и написать свое сообщение, см. снимок экрана:

5. Затем нажмите Отправить , чтобы отправить это сообщение списку получателей с текущей книгой в качестве вложения.

Связанная статья:

Как отправлять персонализированные массовые электронные письма в список из Excel через Outlook?