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 ...
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:
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.
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.
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.
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.
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.
