Jak odeslat e-mail více příjemcům v seznamu z aplikace Excel prostřednictvím aplikace Outlook?

Pokud máte ve sloupci listu více e-mailových adres a nyní chcete odeslat e-mail na tento seznam příjemců z aplikace Excel přímo, aniž byste otevřeli Outlook. V tomto článku budu hovořit o tom, jak odesílat e-maily více příjemcům z aplikace Excel najednou.

Posílejte e-maily více příjemcům z aplikace Excel pomocí kódu VBA

Pošlete e-mail více příjemcům s aktuálním sešitem jako přílohu pomocí kódu VBA

Posílejte e-maily více příjemcům z aplikace Excel pomocí kódu VBA

K odeslání zprávy více příjemcům najednou můžete použít kód VBA, postupujte takto:

1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Odesílejte e-maily více příjemcům

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. A pak stiskněte F5 klíč k provedení tohoto kódu, vyskočí okno s výzvou, které vám připomene výběr seznamu adres, viz screenshot:

4. Pak klikněte na tlačítko OKa Outlook Zpráva Zobrazí se okno, kde můžete vidět, že všechny vybrané e-mailové adresy byly přidány do složky Na pole a poté můžete zadat předmět a napsat zprávu, viz screenshot:

5. Po dokončení zprávy klikněte Odeslat tlačítko a tato zpráva bude odeslána těmto příjemcům v seznamu vašich listů.

Pošlete e-mail více příjemcům s aktuálním sešitem jako přílohu pomocí kódu VBA

Pokud potřebujete poslat zprávu více příjemcům s aktuálním sešitem jako přílohou, můžete použít následující kód VBA.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Odesílejte e-maily více příjemcům s aktuálním sešitem jako přílohou

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. Po vložení kódu stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene výběr adres, na které chcete odeslat zprávu, viz screenshot:

4. Pak klikněte na tlačítko OK tlačítko a Outlook Zpráva Zobrazí se okno, všechny e-mailové adresy byly přidány do složky Na pole a váš aktuální sešit byl vložen také jako příloha a poté můžete zadat předmět a napsat zprávu, viz screenshot:

5. Pak klikněte na tlačítko Odeslat tlačítko pro odeslání této zprávy do seznamu příjemců s aktuálním sešitem jako přílohou.

Související článek:

Jak odeslat osobní hromadné e-maily do seznamu z aplikace Excel prostřednictvím aplikace Outlook?