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øjer > 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 = ""
.Body = xEmailBody
.Display
'.Send
End With
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubNoter:
- 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 = , .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.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
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!
