Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan küldhetünk e-mailt egy meghatározott tartomány másolásával és beillesztésével az Excel e-mail törzsébe?

Sok esetben az Excel munkalap meghatározott tartalomtartománya hasznos lehet az e-mail kommunikáció során. Ebben a cikkben bemutatjuk az e-mail küldésének módját meghatározott tartományú beillesztéssel az Excel törzsébe.

E-mail küldése meghatározott tartományban beillesztve az Excel e-mail törzsébe
E-mail küldése egy meghatározott tartományba beillesztve az e-mail törzsébe egy csodálatos eszközzel

További oktatóanyagok az Excel levelezéséhez ...


E-mail küldése meghatározott tartományban beillesztve az Excel e-mail törzsébe

A következő VBA-kód segíthet egy tartomány másolásában és beillesztésében az Outlook e-mail törzsébe közvetlenül az Excel programban. Kérjük, tegye a következőket.

1. A munkalap tartalmazza a másolandó tartományt, nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. A nyílásban Microsoft Visual Basic for Applications ablakot, kérjük kattintson Eszközök > Referenciák az alábbi képernyőképen látható.

3. Ban,-ben Referenciák - VBAProject párbeszédpanelt, kérjük, keresse meg és ellenőrizze a Microsoft Outlook Object Library lehetőséget, majd kattintson a gombra OK gombot.

4. kettyenés betétlap > Modulok, majd másolja és illessze be az alábbi VBA kódot a Modul ablakba.

VBA kód: E-mail küldése meghatározott tartományban beillesztve az Excel e-mail törzsébe

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

Megjegyzések:

  • 1). Kérjük, módosítsa az e-mail törzsét a sorban xEmailBody = "Szia" & vbLf & vbLf & "hozzáadni kívánt üzenet törzse" & vbLf & vbLf & xEmailBody & vbNewLine amire szüksége van.
  • 2). Kérjük, adja meg e-mail címzettjét és tárgyát (.To = happy.xuebi@163.com Subject = "teszt") sorok a kódban.

5. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools for Excel párbeszédpanelen válassza ki az e-mail törzsébe beillesztendő tartományt, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

6. Most létrejön egy e-mail a megadott címzettel, tárggyal, törzzsel és a kiválasztott Excel tartományral, kérjük, kattintson a gombra Küldés gombra az e-mail elküldéséhez. Lásd a bemutatott képernyőképet.

Megjegyzések: A VBA kód csak akkor működik, ha az Outlook programot használja e-mail programként.


E-mail küldése egy meghatározott tartományba beillesztve az e-mail törzsébe egy csodálatos eszközzel

Ha nem használja az Outlook programot, és továbbra is közvetlenül az Excel programban szeretne e-maileket küldeni, a megadott tartományadatokat beillesztve, nagyon ajánlom a Emaileket küld hasznossága Kutools for Excel neked. Ezzel a szolgáltatással csak konfigurálnia kell egy e-mail cím kimenő szerverét, majd a jövőben közvetlenül ezen az e-mail címen keresztül küldhet e-maileket az Excel programban.

Alkalmazás előtt Kutools for ExcelKérjük, először töltse le és telepítse.

1. Először készítenie kell egy levelezőlistát a szükséges mezőkkel.

  • tippek: A levelezőlistának legalább 2 sort kell tartalmaznia, és az első sornak a fejlécnek kell lennie (Tegyük fel, hogy két e-mail címre szeretne e-mailt küldeni az Excel programban, kérjük, írja be ezt a két e-mail címet az „Email” fejléccel, ahogy az alábbi képernyőképen látható ).
  • Alternatív megoldásként könnyen létrehozhat egy levelezőlistát a Levelezőlista létrehozása funkciót.

2. Válassza ki azt a tartományt, amelyhez hozzáadja az adatokat az e-mail törzséhez, majd nyomja meg a gombot Ctrl + C gombokat a másoláshoz.

3. Jelölje ki a teljes levelezőlistát (fejléceket is), kattintson a gombra Kutools Plus > Emaileket küld. Lásd a képernyőképet:

4. Ezután a Emaileket küld megjelenik a párbeszédpanel.

  • 4.1) A kiválasztott levelezőlista elemei a megfelelő mezőkben kerülnek feltöltésre (további mezőket hozzáadhat a levelezőlistához, ha szükséges);
  • 4.2) Kattintson az e-mail törzs mezőre, majd nyomja meg a gombot Ctrl + V gombokkal illessze be a kijelölt tartományadatokat. Ezt követően adjon hozzá más tartalmat, amire szüksége van;
  • 4.3 Törölje a jelet Küldjön e-maileket az Outlook segítségével doboz;
  • 2.4) Kattintson a gombra Kimenő szerver beállításai gomb. Lásd a képernyőképet:

5. Ezután a Kimenő szerver (SMTP) beállításai - Új séma megjelenik a párbeszédpanel. Kérjük, töltse ki az e-mail címet a szerver beállításokkal, és a mappa ellenőrzése után adjon meg egy mappát az összes elküldött levél elmentéséhez Mentse az elküldött e-maileket ide: jelölőnégyzetet, majd kattintson a gombra OK gombot a beállítások mentéséhez.

6. Amikor visszatér a Emaileket küld párbeszédpanelen kattintson a Küldés gombra az e-mail elküldéséhez.

Mostantól ezzel a szolgáltatással e-maileket küldhet közvetlenül az Excel programban.

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Kapcsolódó cikkek:

E-mail küldése az Excel celláiban megadott e-mail címekre
Tegyük fel, hogy van egy e-mail címlista, és e-mail címre szeretne tömegesen küldeni e-mail címeket közvetlenül az Excel programban. Hogyan lehet elérni? Ez a cikk bemutatja az e-mail küldésének módszereit az Excel celláiban megadott több e-mail címre.

Helyezze be az Outlook aláírását, amikor e-mailt küld Excelbe
Feltéve, hogy közvetlenül az Excelben szeretne e-mailt küldeni, hogyan adhatja hozzá az alapértelmezett Outlook aláírást e-mailjeihez? Ez a cikk két módszert ismertet az Outlook aláírás hozzáadásához, amikor e-mailt küld az Excel programba.

E-mail küldése az Excelhez csatolt több melléklettel
Ez a cikk arról szól, hogy e-mailt küldjön az Outlook alkalmazáson keresztül az Excelhez csatolt több melléklettel.

E-mail küldése, ha az esedékesség dátuma lejárt az Excelben
Például, ha a C oszlopban szereplő esedékesség legfeljebb 7 nap (a jelenlegi dátum 2017/9/13), akkor küldjön e-mailes emlékeztetőt az A oszlopban megadott címzettnek a B. oszlopban megadott tartalommal. elérni? Ez a cikk egy VBA-módszert ismertet a részletek kezelésére.

Automatikus e-mail küldése az Excel cellasejtjei alapján
Tegyük fel, hogy e-mailt szeretne küldeni az Outlook segítségével egy bizonyos címzettnek az Excel megadott cellája alapján. Például, ha a munkalap D7 cellájának értéke nagyobb, mint 200, akkor automatikusan létrejön egy e-mail. Ez a cikk egy VBA-módszert mutat be a probléma gyors megoldására.

További oktatóanyagok az Excel levelezéséhez ...


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
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 · 4 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.
    crystal · 1 years ago
    @Raman 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.
    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.
    prasana05@gmail.com · 1 years ago
    @crystal 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.
  • To post as a guest, your comment is unpublished.
    crystal · 1 years ago
    @Gowtham 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.
    crystal · 1 years ago
    @Ther Hi Ther,
    Can't figure it out. Sorry for that.
  • 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.
    Gowtham · 1 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.
    sachin kumr · 1 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.
    mahajand09@gmail.com · 2 years ago
    @mahajand09@gmail.com 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.
    mahajand09@gmail.com · 2 years ago
    @crystal Hi, Is there any update on below.......
  • 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.
    crystal · 2 years ago
    @Dhiraj Mahajan 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 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.
    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.
    crystal · 2 years ago
    @mfergus 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.
    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!