Hur skickar jag e-post med kopiering och klistrar in ett angivet intervall i e-postkroppen i Excel?
I många fall kan ett visst innehållsintervall i Excel-kalkylblad vara användbart i din e-postkommunikation. I den här artikeln kommer vi att introducera en metod för att skicka ett e-postmeddelande med angivet intervall som klistras in i e-postkroppen direkt i Excel.
Skicka e-post med ett angivet intervall klistrat in i e-posttexten i Excel
Skicka e-post med ett angivet intervall klistrat in i e-postkroppen med ett fantastiskt verktyg
Fler handledning för utskick i Excel ...
Skicka e-post med ett angivet intervall klistrat in i e-posttexten i Excel
Följande VBA-kod kan hjälpa dig att kopiera ett intervall och klistra in det i en Outlook-e-postkropp direkt i Excel. Gör så här.
1. I kalkylbladet innehåller det intervall du behöver kopiera, tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I öppningen Microsoft Visual Basic för applikationer klicka på fönstret verktyg > Referensprojekt som nedan visas skärmdump.
3. I Referenser - VBAProject dialogrutan, vänligen hitta och kontrollera Microsoft Outlook-objektbibliotek och klicka sedan på OK knapp.
4. klick Insert > Modulerna, kopiera och klistra in nedanstående VBA-kod i modulfönstret.
VBA-kod: Skicka e-post med ett angivet intervall klistrat in i e-postkroppen 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 Sub
Anmärkningar:
- 1). Ändra e-postadressen i rad xEmailBody = "Hej" & vbLf & vbLf & "meddelande som du vill lägga till" & vbLf & vbLf & xEmailBody & vbNewLine som du behöver.
- 2). Vänligen ange din e-postmottagare och ämne (.Till = och .Subject = "test") rader i koden.
5. tryck på F5 för att köra koden. I pop-up Kutools för Excel dialogrutan, välj det intervall du behöver klistra in i e-posttexten och klicka sedan på OK knapp. Se skärmdump:
6. Nu skapas ett e-postmeddelande med angiven mottagare, ämne, kropp och valt Excel-intervall, klicka på Skicka knappen för att skicka detta e-postmeddelande. Se skärmdump som visas.
Anmärkningar: VBA-koden fungerar bara när du använder Outlook som ditt e-postprogram.
Skicka e-post med ett angivet intervall klistrat in i e-postkroppen med ett fantastiskt verktyg
Om du inte använder Outlook och ändå vill skicka e-postmeddelanden direkt i Excel med angiven intervalldata klistrad inuti rekommenderar jag starkt Skicka e-mail nytta av Kutools för Excel till dig. Med den här funktionen behöver du bara konfigurera den utgående servern för en e-postadress och sedan skicka e-postmeddelanden i Excel direkt via den här e-postadressen i framtiden.
Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.
1. För det första måste du förbereda en e-postlista med nödvändiga fält.
- tips: E-postlistan måste innehålla minst två rader, och den första raden måste vara rubrikerna (antar att du vill skicka e-post till två e-postadresser i Excel, skriv in dessa två e-postadresser med rubriken "E-post" som nedanstående skärmdump visas ).
- Alternativt kan du enkelt skapa en e-postlista med Skapa e-postlista särdrag.
2. Välj det intervall som du vill lägga till data till e-postkroppen och tryck på ctrl + C nycklar för att kopiera den.
3. Välj hela e-postlistan (inkludera rubriker), klicka Kutools Plus > Skicka e-mail. Se skärmdump:
4. Sedan Skicka e-mail dialogrutan dyker upp.
- 4.1) Objekt i den valda e-postlistan fylls i motsvarande fält (du kan lägga till fler fält i e-postlistan efter behov);
- 4.2) Klicka på rutan för e-post och tryck på ctrl + V för att klistra in den valda områdesdata i den. Därefter lägger du till annat innehåll efter behov;
- 4.3 Avmarkera kryssrutan Skicka e-post via Outlook låda;
- 2.4) Klicka på Inställningar för utgående server knapp. Se skärmdump:
5. Sedan Inställningar för utgående server (SMTP) - nytt schema dialogrutan dyker upp. Fyll i e-postadressen med dess serverinställningar, ange en mapp för att spara alla skickade e-postmeddelanden efter att ha kontrollerat Spara skickade e-postmeddelanden till och klicka sedan på OK knappen för att spara inställningarna.
6. När den återgår till Skicka e-mail dialogrutan, klicka på Skicka knappen för att skicka e-postmeddelandet.
Från och med nu kan du skicka e-postmeddelanden med den här funktionen i Excel direkt.
Om du vill ha en gratis provperiod (30 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.
Relaterade artiklar:
Skicka e-post till e-postadresser som anges i celler i Excel
Antag att du har en lista med e-postadresser och att du vill skicka e-postmeddelanden till dessa e-postadresser i bulk direkt i Excel. Hur uppnår man det? Den här artikeln visar metoder för att skicka e-post till flera e-postadresser som anges i celler i Excel.
Infoga Outlook-signatur när du skickar e-post i Excel
Om du antar att du vill skicka ett e-postmeddelande direkt i Excel, hur kan du lägga till standard Outlook-signaturen i detta e-postmeddelande? Den här artikeln innehåller två metoder som hjälper dig att lägga till Outlook-signatur när du skickar e-post i Excel.
Skicka e-post med flera bilagor bifogade i Excel
Den här artikeln talar om att skicka ett e-postmeddelande via Outlook med flera bilagor bifogade i Excel.
Skicka e-post om förfallodatum har uppnåtts i Excel
Till exempel, om förfallodagen i kolumn C är mindre än eller lika med 7 dagar (nuvarande datum är 2017/9/13), skicka sedan en e-postpåminnelse till den angivna mottagaren i kolumn A med specificerat innehåll i kolumn B. uppnå det? Den här artikeln ger en VBA-metod för att hantera den i detalj.
Skicka automatiskt e-post baserat på cellvärde i Excel
Antar att du vill skicka ett e-postmeddelande via Outlook till en viss mottagare baserat på ett angivet cellvärde i Excel. Till exempel, när värdet på cell D7 i ett kalkylblad är större än 200, skapas ett e-postmeddelande automatiskt. Den här artikeln introducerar en VBA-metod för dig att snabbt lösa problemet.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!