Hoe een e-mail verzenden vanuit een specifiek bereik van cellen in Excel?

In veel gevallen kan een gespecificeerd bereik van inhoud in een Excel-werkblad nuttig zijn voor uw e-mailcommunicatie. In dit artikel introduceren we een methode om een e-mail te versturen met een gespecificeerd bereik rechtstreeks in de e-mailbody in Excel.

E-mail verzenden vanuit een specifiek bereik van cellen in Excel
E-mail verzenden vanuit een specifiek bereik van cellen met een geweldig hulpmiddel
Meer handleidingen voor het versturen van e-mails in Excel...

E-mail verzenden vanuit een specifiek bereik van cellen in Excel

De volgende VBA-code kan u helpen een bereik te kopiëren en het rechtstreeks in de body van een Outlook-e-mail te plakken in Excel. Volg de onderstaande stappen.

1. Druk in het werkblad dat het bereik bevat dat u wilt kopiëren, gelijktijdig op de toetsen "Alt + F11" om het venster "Microsoft Visual Basic for Applications" te openen.

2. Klik in het geopende venster "Microsoft Visual Basic for Applications" op "Tools" > "References", zoals in de onderstaande schermafbeelding te zien is.

3. Vink in het dialoogvenster "References – VBAProject" de optie "Microsoft Outlook Object Library" aan en klik vervolgens op de knop OK.

4. Klik op "Insert" > "Module", kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: E-mail verzenden met een gespecificeerd bereik in Excel

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Opmerkingen:

• 1). Pas de e-mailbody aan in deze scriptregel xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine zoals u nodig heeft.
• 2). Specificeer uw e-mailontvanger en onderwerp in deze regel binnen de code: (.To = happy.xuebi@163.com and .Subject = "test").

5. Druk op de F5-toets om de code uit te voeren. Selecteer in het pop-upvenster van Kutools voor Excel het bereik dat u in de e-mailbody wilt plakken en klik vervolgens op de knop OK. Zie schermafbeelding:

6. Er wordt nu een e-mail gemaakt met de gespecificeerde ontvanger, onderwerp, body en geselecteerde Excel-bereik. Klik op de knop "Verzenden" om deze e-mail te versturen. Zie onderstaande schermafbeelding.

Opmerking: De VBA-code werkt alleen wanneer u Outlook als uw e-mailprogramma gebruikt.

E-mail verzenden vanuit een specifiek bereik van cellen met een geweldig hulpmiddel

Als u Outlook niet gebruikt en toch e-mails direct in Excel wilt versturen met een gespecificeerd bereik dat in de body wordt geplakt, raad ik u ten zeerste de functie "E-mail verzenden" van Kutools voor Excel aan. Met deze functie hoeft u alleen de uitgaande server van een e-mailadres te configureren en kunt u in de toekomst e-mails rechtstreeks via dit e-mailadres in Excel versturen.

1. Maak eerst een mailinglijst met de benodigde velden.

• Tips: De mailinglijst moet minimaal 2 rijen bevatten, waarbij de eerste rij de headers moet zijn (als u bijvoorbeeld e-mails wilt versturen naar twee e-mailadressen in Excel, typt u deze twee e-mailadressen met de header “E-mail” zoals in de onderstaande schermafbeelding te zien is).
• 
• U kunt ook gemakkelijk een mailinglijst maken met de Mailinglijst maken functie.

2. Selecteer het bereik dat u aan de e-mailbody wilt toevoegen en druk op de toetsen Ctrl + C om het te kopiëren.

3. Selecteer de hele mailinglijst (inclusief headers), klik op "Kutools Plus" > "E-mails verzenden". Zie schermafbeelding:

4. Het dialoogvenster "E-mails verzenden" verschijnt.

• 4.1) Items van de geselecteerde mailinglijst worden ingevuld in de bijbehorende velden (u kunt meer velden aan de mailinglijst toevoegen indien nodig);
• 4.2) Klik in het e-mailbodyvak, druk op de toetsen Ctrl + V om het geselecteerde bereik in de body te plakken. Voeg daarna andere inhoud toe zoals u nodig hebt;
• 4.3) Vink het vakje "E-mails verzenden via Outlook" uit;
• 4.4) Klik op de knop "SMTP-instellingen". Zie schermafbeelding:

  

5. Het dialoogvenster "SMTP-instellingen – Nieuw schema" verschijnt. Vul het e-mailadres in met de bijbehorende serverinstellingen, specificeer een map om alle verzonden e-mails op te slaan nadat u het vakje "Verzonden e-mails opslaan in" hebt aangevinkt, en klik vervolgens op de knop OK om de instellingen op te slaan.

6. Wanneer u terugkeert naar het dialoogvenster "E-mails verzenden", klikt u op de knop "Verzenden" om de e-mail te versturen.

Gerelateerde artikelen: