Hoe e-mail verzenden met het kopiëren en plakken van een opgegeven bereik in de e-mailtekst in Excel?

In veel gevallen kan een bepaald inhoudsbereik in het Excel-werkblad nuttig zijn in uw e-mailcommunicatie. In dit artikel introduceren we een methode voor het verzenden van een e-mail met een opgegeven bereik dat rechtstreeks in Excel in de hoofdtekst van de e-mail wordt geplakt.

Verzend e-mail met een opgegeven bereik dat in Excel in de hoofdtekst van de e-mail is geplakt
Verzend e-mail met een opgegeven bereik in de hoofdtekst van de e-mail met een geweldige tool
Meer tutorials voor mailen in Excel ...

Verzend e-mail met een opgegeven bereik dat in Excel in de hoofdtekst van de e-mail is geplakt

De volgende VBA-code kan u helpen bij het kopiëren van een bereik en het rechtstreeks in Excel in een Outlook-e-mailtekst plakken. Ga als volgt te werk.

1. In het werkblad bevat het bereik dat u wilt kopiëren, druk op de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de opening Microsoft Visual Basic voor toepassingen venster, klik dan Tools > Referenties zoals hieronder getoond screenshot.

3. In de Referenties - VBAProject dialoogvenster, zoek en controleer het Microsoft Outlook-objectbibliotheek optie en klik vervolgens op het OK knop.

4. klikken Invoegen > Module, kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.

VBA-code: stuur e-mail met een opgegeven bereik dat in de hoofdtekst van de e-mail in Excel is geplakt

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

Notes:

• 1). Wijzig de hoofdtekst van de e-mail in de rij xEmailBody = "Hallo" & vbLf & vbLf & "berichttekst die u wilt toevoegen" & vbLf & vbLf & xEmailBody & vbNewLine als je nodig hebt.
• 2). Geef uw e-mailontvanger en onderwerp op (.To = blij.xuebi@163.com en .Subject = "test") regels in de code.

5. druk de F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer het bereik dat u in de e-mailtekst wilt plakken en klik vervolgens op de OK knop. Zie screenshot:

6. Nu wordt een e-mail gemaakt met de opgegeven ontvanger, onderwerp, hoofdtekst en geselecteerd Excel-bereik. Klik op de Verzenden knop om deze e-mail te verzenden. Zie screenshot getoond.

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

Verzend e-mail met een opgegeven bereik in de hoofdtekst van de e-mail met een geweldige tool

Als u Outlook niet gebruikt en toch e-mails rechtstreeks in Excel wilt verzenden met een opgegeven bereikgegevens erin geplakt, raad ik het Stuur emails nut van Kutools for Excel voor jou. Met deze functie hoeft u alleen maar de uitgaande server van een e-mailadres te configureren en in de toekomst e-mails rechtstreeks in Excel via dit e-mailadres te verzenden.

1. Ten eerste moet u een mailinglijst opstellen met de benodigde velden.

• Tips: De mailinglijst moet ten minste 2 rijen bevatten en de eerste rij moet de kopteksten zijn (stel dat u e-mails naar twee e-mailadressen in Excel wilt sturen, typ dan deze twee e-mailadressen in met koptekst 'E-mail', zoals de onderstaande schermafbeelding laat zien ).
• 
• Als alternatief kunt u eenvoudig een mailinglijst maken met de Maak een mailinglijst kenmerk.

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

3. Selecteer de hele mailinglijst (inclusief headers), klik Koetools Plus > Stuur emails. Zie screenshot:

4. Vervolgens de Stuur emails dialoogvenster verschijnt.

• 4.1) Items van de geselecteerde mailinglijst worden ingevuld in overeenkomstige velden (u kunt indien nodig meer velden aan de mailinglijst toevoegen);
• 4.2) Klik op het tekstvak van de e-mail en druk op Ctrl + V toetsen om de geselecteerde bereikgegevens erin te plakken. Voeg daarna andere inhoud toe als je nodig hebt;
• 4.3 Schakel het selectievakje uit Stuur e-mails via Outlook doos;
• 2.4) Klik op de Uitgaande serverinstellingen knop. Zie screenshot:

5. Vervolgens de Instellingen uitgaande server (SMTP) - Nieuw schema dialoogvenster verschijnt. Vul het e-mailadres in met de serverinstellingen, specificeer een map om alle verzonden e-mails op te slaan na het controleren van de Bewaar verzonden e-mails naar vak en klik vervolgens op het OK om de instellingen op te slaan.

6. Wanneer het terugkeert naar het Stuur emails dialoogvenster, klik op de Verzenden knop om de e-mail te verzenden.

Vanaf nu kunt u met deze functie rechtstreeks e-mails verzenden in Excel.

Gerelateerde artikelen: