Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

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

In veel gevallen kan een bepaald bereik van de inhoud in het Excel-werkblad nuttig zijn in uw e-mailcommunicatie. In dit artikel introduceren we een methode voor het rechtstreeks verzenden van een e-mail met opgegeven bereik plakken in e-mail body in Excel.

Verzend e-mail met een opgegeven bereik geplakt in e-mail body in Excel


Verzend e-mail met een opgegeven bereik geplakt in e-mail body in Excel


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

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

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

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

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

VBA-code: stuur e-mail met een opgegeven bereik geplakt in e-mail body in Excel

Sub Send_Email()
    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 e-mail in de rij xEmailBody = "Hallo" & vbLf & vbLf & "tekst van het bericht dat u wilt toevoegen" & vbLf & vbLf & xEmailBody & vbNewLine als je nodig hebt.

2). Geef uw e-mailontvanger en onderwerp op .To = happy.xuebi@163.com en .Onderwerp = "test" regels in de code.

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

6. Nu wordt een e-mail aangemaakt met gespecificeerde ontvanger, onderwerp, lichaam en geselecteerde Excel-reeks, klik op de Verstuur om deze e-mail te verzenden. Zie screenshot getoond.

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


Gerelateerde artikelen:



Aanbevolen productiviteitstools voor Excel

Kutools voor Excel helpt u altijd om uw werk voor de tijd af te maken en uzelf te onderscheiden van een menigte

  • Meer dan 300 krachtige geavanceerde functies, ontworpen voor 1500-werkscenario's, verhoging van de productiviteit met 70%, geeft u meer tijd om voor uw gezin te zorgen en van het leven te genieten.
  • U hoeft niet langer formules en VBA-codes te onthouden, maar uw hersenen rust vanaf nu.
  • Word een Excel-expert in 3 minuten, gecompliceerde en herhaalde bewerkingen kunnen in seconden worden uitgevoerd,
  • Verminder dagelijks duizenden toetsenbord- en muisbewerkingen, zeg nu tot ziens tegen beroepsziekten.
  • 110,000 zeer effectieve mensen en 300 + keuze van wereldberoemde bedrijven.
  • 60-day full features free trial. 60-dagen geld-teruggaranties. 2 jaar gratis upgrade en ondersteuning.

Brengt browsen met tabbladen en bewerken naar Microsoft Office, veel krachtiger dan de tabbladen van de browser

  • Office-tabblad is ontworpen voor Word, Excel, PowerPoint en andere Office-toepassingen: Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    sachin kumr · 2 months ago
    this is pasting as a text. Kindly suggest how to send the table or the same format which is copied from the excel.
  • To post as a guest, your comment is unpublished.
    miguel · 3 months ago
    Code to send automatically after selecting after ok
  • To post as a guest, your comment is unpublished.
    Dhiraj Mahajan · 5 months ago
    Hi
    This code is vary excellent, by using the code i have completed my 90% of my project.
    I have same issue as mentioned by Anirudh that is table formatting. How can i format the table in email.
    Please help me......
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Good Day,
      The problem can't be solved yet. Sorry for the inconvenience and thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Dhiraj Mahajan · 2 months ago
        Hi, Is there any update on below.......
        • To post as a guest, your comment is unpublished.
          Dhiraj Mahajan · 2 months ago
          Hi, Also I Wanted code for "Filter by Date".
          I am working on project, on that project I wanted to filter the data by the date, actually we have filter/hide the and last 05 days to current date data and we have highlight all other data.
          Please help me to complete this project.
          Your help is very great-full for me.
  • To post as a guest, your comment is unpublished.
    Anirudh · 9 months ago
    This is great. It is working as expected. The only issue is that the format of the table is not maintained in the mail. Can you let me know how do we preserve the format of the table in the mail
  • To post as a guest, your comment is unpublished.
    Michael Ferguson · 10 months ago
    This code is great, but I need to execute with a command button rather than pressing F5 in code view. I'd like my employees to be able to fill out some info, then hit the button and have it copy the range of cells they completed and paste into email. I can get code working for the email button and separately for the copy/paste of the range of cells, but can't seem to combine both functions. Please help!!! Thanks!
    • To post as a guest, your comment is unpublished.
      crystal · 10 months ago
      Hi Michael,
      You just need to create a button (such as a Button (Form Control)) in your worksheet, then assign the macro to the button.