Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

Hvordan sendes e-mail med kopiering og indsættelse af et bestemt interval i e-mail-organ i Excel?

I mange tilfælde kan et specifikt udvalg af indhold i Excel-regneark være nyttigt i din e-mail-kommunikation. I denne artikel introducerer vi en metode til at sende en e-mail med specificeret rækkevidde, der indsættes i e-mail-kroppen direkte i Excel.

Send e-mail med et specificeret interval indsat i e-mail-brødtekst i Excel
Send e-mail med et bestemt interval indsat i e-mail-krop med et fantastisk værktøj

Flere tutorials til mailing i Excel ...


Send e-mail med et specificeret interval indsat i e-mail-brødtekst i Excel

Følgende VBA-kode kan hjælpe dig med at kopiere et interval og indsætte det i en Outlook-e-mail-krop direkte i Excel. Gør som følger.

1. I regnearket indeholder det interval, du skal kopiere, skal du trykke på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. I åbningen Microsoft Visual Basic til applikationer vindue, klik venligst Værktøj > Referencer som vist nedenstående skærmbillede.

3. i Referencer - VBAProject dialogboksen, find og kontroller venligst Microsoft Outlook-objektbibliotek og klik derefter på OK .

4. klik indsatte > Moduler, kopier og indsæt derefter nedenstående VBA-kode i modulvinduet.

VBA-kode: Send e-mail med et specificeret interval indsat i e-mail-brødtekst i 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

Noter:

  • 1). Skift e-mail-kroppen på linje xEmailBody = "Hej" & vbLf & vbLf & "body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine som du har brug for.
  • 2). Angiv din e-mail-modtager og emne (.Til = happy.xuebi@163.com og .Subject = "test") linjer i koden.

5. Tryk på F5 nøgle for at køre koden. I pop op Kutools til Excel i dialogboksen, skal du vælge det interval, du skal indsætte i e-mail-brødteksten, og klik derefter på OK knap. Se skærmbillede:

6. Nu oprettes en e-mail med specificeret modtager, emne, brødtekst og valgt Excel-interval. Klik på Send knappen for at sende denne e-mail. Se skærmbillede vist.

Bemærk: VBA-koden fungerer kun, når du bruger Outlook som dit e-mail-program.


Send e-mail med et bestemt interval indsat i e-mail-krop med et fantastisk værktøj

Hvis du ikke bruger Outlook og stadig vil sende e-mails direkte i Excel med en specificeret række data indsat indeni, anbefaler jeg stærkt Send emails nytte af Kutools til Excel for dig. Med denne funktion skal du bare konfigurere den udgående server til en e-mail-adresse og derefter sende e-mails i Excel direkte via denne e-mail-adresse i fremtiden.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. For det første skal du oprette en adresseliste med de nødvendige felter.

  • Tips: Postlisten skal indeholde mindst 2 rækker, og den første række skal være overskrifterne (Antag at du vil sende e-mails til to e-mail-adresser i Excel, skriv disse to e-mail-adresser med overskriften "E-mail" som vist nedenstående skærmbillede ).
  • Alternativt kan du nemt oprette en mailingliste med Opret postliste funktion.

2. Vælg det område, du vil føje dataene til e-mail-kroppen, og tryk på Ctrl + C nøgler til at kopiere den.

3. Vælg hele postlisten (med overskrifter), klik Kutools Plus > Send emails. Se skærmbillede:

4. Derefter Send emails dialogboksen vises.

  • 4.1) Elementer på den valgte postliste udfyldes i tilsvarende felter (du kan tilføje flere felter til postlisten efter behov);
  • 4.2) Klik på e-mail-kassen, tryk på Ctrl + V taster for at indsætte de valgte områdedata i den. Derefter tilføj andet indhold, som du har brug for;
  • 4.3 Fjern markeringen af Send e-mails via Outlook boks;
  • 2.4) Klik på Indstillinger for udgående server knap. Se skærmbillede:

5. Derefter Indstillinger for udgående server (SMTP) - Ny ordning dialogboksen vises. Udfyld venligst e-mail-adressen med dens serverindstillinger, angiv en mappe til at gemme alle sendte mails efter kontrol af Gem sendte e-mails til og klik derefter på OK knappen for at gemme indstillingerne.

6. Når det vender tilbage til Send emails dialogboksen, skal du klikke på knappen Send knappen for at sende e-mailen.

Fra nu af kan du sende e-mails med denne funktion i Excel direkte.

  Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Relaterede artikler:

Send e-mail til e-mail-adresser, der er angivet i celler i Excel
Antag at du har en liste over e-mail-adresser, og at du vil sende e-mail til disse e-mail-adresser i bulk direkte i Excel. Hvordan opnås det? Denne artikel viser dig metoder til at sende e-mail til flere e-mail-adresser, der er angivet i celler i Excel.

Indsæt Outlook-signatur, når du sender e-mail i Excel
Antag, at du vil sende en e-mail direkte i Excel, hvordan kan du tilføje standard Outlook-signaturen i din e-mail? Denne artikel indeholder to metoder til at hjælpe dig med at tilføje Outlook-signatur, når du sender e-mail i Excel.

Send e-mail med flere vedhæftede filer vedhæftet i Excel
Denne artikel taler om at sende en e-mail via Outlook med flere vedhæftede filer vedhæftet i Excel.

Send e-mail, hvis forfaldsdato er opfyldt i Excel
For eksempel, hvis forfaldsdatoen i kolonne C er mindre end eller lig med 7 dage (nuværende dato er 2017/9/13), skal du sende en e-mailpåmindelse til den angivne modtager i kolonne A med specificeret indhold i kolonne B. Opnå det? Denne artikel vil give en VBA-metode til at håndtere den i detaljer.

Send automatisk e-mail baseret på celleværdi i Excel
Antag, at du vil sende en e-mail via Outlook til en bestemt modtager baseret på en bestemt celleværdi i Excel. For eksempel, når værdien af ​​celle D7 i et regneark er større end 200, oprettes der automatisk en e-mail. Denne artikel introducerer en VBA-metode, som du hurtigt kan løse dette problem.

Flere tutorials til mailing i Excel ...


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2019 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60-dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50% og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Say something here...
symbols left.
You are guest
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.
    Yogesh Girase · 8 months ago
    hello,

    can you help me on below

    I have create excel sheet & updated 10 supplier mail detail
    I have send mail through excel to all 10 supplier with individual sheet attachment with individual mail.

    I want to paste excel data in outlook body instead of attachment in mail

    can any one help me

  • To post as a guest, your comment is unpublished.
    Arul · 1 years ago
    Hi,
    Instead of selecting the range, I want to select multiple pivots in the excel.
    can you please help me.
  • To post as a guest, your comment is unpublished.
    Raman · 1 years ago
    Hi,
    Instead of selecting the range manually, I want to select the range automatically.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Raman,
      In the below code, please replace the range "A1:C5" in line Set xRg = Range("A1:C5") with your own range.

      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 = Range("A1:C5")
      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
  • To post as a guest, your comment is unpublished.
    Ther · 1 years ago
    Hi experts, Do we have updates on how the format maintained?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Ther,
      Can't figure it out. Sorry for that.
  • To post as a guest, your comment is unpublished.
    Gowtham · 2 years ago
    i am seeing a compile error (User-defined type not defined". Please help me out to overcome this.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi,
      Please get into the Reference window by clicking Tools > references. Scroll down to find and check the Microsoft Outlook Object Library box and click the OK button to finish the setting.
  • To post as a guest, your comment is unpublished.
    sachin kumr · 2 years 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 · 2 years ago
    Code to send automatically after selecting after ok
  • To post as a guest, your comment is unpublished.
    Dhiraj Mahajan · 2 years 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 · 2 years 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.
        mahajand09@gmail.com · 2 years ago
        Hi, Is there any update on below.......
        • To post as a guest, your comment is unpublished.
          mahajand09@gmail.com · 2 years 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.
    ghosh · 2 years 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.
    mfergus · 2 years 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 · 2 years 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.
      • To post as a guest, your comment is unpublished.
        prasana05@gmail.com · 1 years ago
        Hi Crystal, Thank you!
        I had a code created and was wondering how to assign the Command button to the code. Your post helped! and my report works like a charm.

        Thanks again.