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 objektumkönyvtár 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 = ""
.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 = és a Subject = "teszt") sorok a kódban.
5. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára 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 az Excel számára 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 az Excel számáraKé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.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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 naponta több száz kattintással csökkenti az egér kattintását!