Hvordan sende e-post til flere mottakere i en liste fra Excel via Outlook?

Hvis du har flere e-postadresser i en kolonne med regneark, og nå, vil du sende en e-post til denne listen over mottakere fra Excel direkte uten å åpne Outlook. Denne artikkelen vil jeg snakke om hvordan du sender e-post til flere mottakere fra Excel samtidig.

Send e-post til flere mottakere fra Excel med VBA-kode

Send e-post til flere mottakere med gjeldende arbeidsbok som vedlegg ved å bruke VBA-kode

Send e-post til flere mottakere fra Excel med VBA-kode

Du kan bruke en VBA-kode for å sende meldinger til flere mottakere samtidig, vennligst gjør som følger:

1. Hold nede ALT + F11 nøkler for å åpne Microsoft Visual Basic for Applications vinduet.

2. Klikk innfelt > Moduler, og lim inn følgende kode i Modulvindu.

VBA-kode: Send e-post til flere mottakere

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. Og trykk deretter på F5 tasten for å utføre denne koden, vil en meldingsboks komme ut for å minne deg på å velge adresselisten, se skjermbilde:

4. Klikk deretter OK, og en Outlook Melding vinduet vises, kan du se at alle de valgte e-postadressene er lagt til i Til feltet, og deretter kan du skrive inn emnet og skrive meldingen din, se skjermbilde:

5. Etter å ha fullført meldingen, vennligst klikk sent knappen, og denne meldingen vil bli sendt til disse mottakerne i regnearklisten din.

Send e-post til flere mottakere med gjeldende arbeidsbok som vedlegg ved å bruke VBA-kode

Hvis du trenger å sende en melding til flere mottakere med gjeldende arbeidsbok som vedlegg, kan du bruke følgende VBA-kode.

1. Hold nede ALT + F11 nøkler for å åpne Microsoft Visual Basic for Applications vinduet.

2. Klikk innfelt > Moduler, og lim inn følgende kode i Modulvindu.

VBA-kode: Send e-post til flere mottakere med gjeldende arbeidsbok som vedlegg

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. Etter å ha limt inn koden, trykk F5 tasten for å kjøre denne koden, og en meldingsboks vises for å minne deg på å velge adressene du vil sende melding til, se skjermbilde:

4. Klikk deretter OK knapp og en Outlook Melding vinduet vises, er alle e-postadressene lagt til i Til feltet, og din nåværende arbeidsbok er også lagt inn som vedlegg, og så kan du skrive inn emnet og skrive meldingen din, se skjermbilde:

5. Klikk deretter sent for å sende denne meldingen til listen over mottakere med gjeldende arbeidsbok som vedlegg.

Relatert artikkel:

Hvordan sende personlige masse-e-poster til en liste fra Excel via Outlook?