Cum să trimiteți e-mail la mai mulți destinatari dintr-o listă din Excel prin Outlook?

Dacă aveți mai multe adrese de e-mail într-o coloană a foii de lucru și acum, doriți să trimiteți un e-mail către această listă de destinatari din Excel direct fără a deschide Outlook. În acest articol, voi vorbi despre cum să trimiteți e-mail către mai mulți destinatari din Excel în același timp.

Trimiteți e-mail către mai mulți destinatari din Excel cu cod VBA

Trimiteți e-mail către mai mulți destinatari cu registrul de lucru curent ca atașament utilizând codul VBA

Trimiteți e-mail către mai mulți destinatari din Excel cu cod VBA

Puteți utiliza un cod VBA pentru a trimite mesaje către mai mulți destinatari simultan, faceți următoarele:

1. Țineți apăsată tasta ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: trimiteți e-mail către mai mulți destinatari

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. Și apoi apăsați F5 pentru a executa acest cod, va apărea o casetă de prompt pentru a vă reaminti să selectați lista de adrese, a se vedea captura de ecran:

4. Apoi apasa OKși un Outlook Mesaj este afișată fereastra, puteți vedea că toate adresele de e-mail selectate au fost adăugate în La , apoi puteți introduce subiectul și compune mesajul, vedeți captura de ecran:

5. După terminarea mesajului, faceți clic pe Trimiteți și acest mesaj va fi trimis către acești destinatari în lista de foi de lucru.

Trimiteți e-mail către mai mulți destinatari cu registrul de lucru curent ca atașament utilizând codul VBA

Dacă trebuie să trimiteți un mesaj către mai mulți destinatari cu registrul de lucru curent ca atașament, puteți aplica următorul cod VBA.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: trimiteți e-mail către mai mulți destinatari cu registrul de lucru curent ca atașament

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. După lipirea codului, apăsați F5 pentru a rula acest cod și apare o casetă de prompt pentru a vă reaminti să selectați adresele la care doriți să trimiteți mesajul, vedeți captura de ecran:

4. Apoi faceți clic pe OK și un Outlook Mesaj este afișată fereastra, toate adresele de e-mail au fost adăugate în La , iar registrul dvs. de lucru curent a fost inserat și ca atașament, iar apoi puteți introduce subiectul și compune mesajul, vedeți captura de ecran:

5. Apoi apasa Trimiteți butonul pentru a trimite acest mesaj la lista de destinatari cu registrul de lucru curent ca atașament.

Articol asociat:

Cum să trimiteți mesaje de e-mail personalizate către o listă din Excel prin Outlook?