Kako poslati e-pošto več prejemnikom na seznamu iz Excela prek Outlooka?

Če imate v stolpcu delovnega lista več e-poštnih naslovov in želite zdaj poslati e-poštno sporočilo na ta seznam prejemnikov iz Excela neposredno, ne da bi odprli Outlook. V tem članku bom govoril o tem, kako istočasno pošiljati e-pošto več prejemnikom iz Excela.

Pošljite e-pošto več prejemnikom iz Excela s kodo VBA

Pošljite e-pošto več prejemnikom s trenutnim delovnim zvezkom kot prilogo s kodo VBA

Pošljite e-pošto več prejemnikom iz Excela s kodo VBA

Kodo VBA lahko uporabite za pošiljanje sporočil več prejemnikom hkrati, naredite naslednje:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: pošljite e-pošto več prejemnikom

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. In nato pritisnite F5 tipko za zagon te kode, se bo pojavilo pozivno polje, ki vas bo opozorilo na izbiro naslova, glejte posnetek zaslona:

4. Nato kliknite OKin Outlook Sporočilo prikaže se okno, lahko vidite, da so bili vsi izbrani e-poštni naslovi dodani v Da polje, nato pa lahko vnesete zadevo in sestavite sporočilo, glejte posnetek zaslona:

5. Po končanem sporočilu kliknite Pošlji in to sporočilo bo poslano tem prejemnikom na seznamu delovnih listov.

Pošljite e-pošto več prejemnikom s trenutnim delovnim zvezkom kot prilogo s kodo VBA

Če morate poslati sporočilo več prejemnikom s trenutnim delovnim zvezkom kot prilogo, lahko uporabite naslednjo kodo VBA.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Pošljite e-poštno sporočilo več prejemnikom s trenutnim delovnim zvezkom kot prilogo

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 lepljenju kode pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo na izbiro naslovov, na katere želite poslati sporočilo, glejte posnetek zaslona:

4. Nato kliknite OK in Outlook Sporočilo prikaže se okno, vsi e-poštni naslovi so bili dodani v Da polje in tudi vaš trenutni delovni zvezek je bil vstavljen kot priloga, nato pa lahko vnesete zadevo in sestavite sporočilo, glejte posnetek zaslona:

5. Nato kliknite Pošlji , da to sporočilo pošljete na seznam prejemnikov s trenutnim delovnim zvezkom kot prilogo.

Povezani članek:

Kako poslati osebna množična e-poštna sporočila na seznam iz Excela prek Outlooka?