Hogyan küldhet munkalapot csak az Outlookon keresztül az Excelből?
Ha egyetlen munkalapot szeretne e-mailben elküldeni az Excel munkafüzetéből az Outlook segítségével, elküldheti a munkalapot mellékletként, törzs tartalomként vagy PDF fájlként. De vannak-e gyorsabb módszerek a probléma kezelésére az Excel programban?
Egyetlen munkalap küldése törzsként az Excelből a Küldés e-mail címzett paranccsal
Küldjön egyetlen munkalapot mellékletként az Excelből VBA kóddal
Küldjön egyetlen munkalapot PDF fájlként az Excelből, VBA kóddal
Egyetlen munkalap küldése törzsként az Excelből a Küldés e-mail címzett paranccsal
Az Excel támogatja az aktív munkalap törzsként történő elküldését a Send to Mail Recipient paranccsal. A következőket teheti:
Ha Excel 2007, 2010 vagy 2013 programot használ, akkor ezt hozzá kell adnia Küldés e-mail címzettnek parancs a Gyorselérési eszköztár először.
1. Kattintson a ikonra A Gyorselérés eszköztár testreszabása, és válasszon További parancsok, lásd a képernyőképet:
2. És a Excel beállítások párbeszédpanelen válassza a lehetőséget A szalagon nem található parancsok a Válassza a Parancsok lehetőséget legördülő listából válassza ki a Küldés e-mail címzettnek opciót, és kattintson rá Add >> gombra a parancs hozzáadásához, végül kattintson OK hogy mentse ezt a beállítást. Lásd a képernyőképet:
3. A Küldés e-mail címzettnek parancs beillesztésre került a Gyorselérési eszköztár, lásd a képernyőképet:
4. Ezután kattintson erre Küldés e-mail címzettnek ikon gombra, és megjelenik egy prompt doboz a E-mail prompt doboz, jelölje be Küldje el az aktuális lapot üzenet törzsként, és kattintson a gombra OK. Lásd a képernyőképet:
5. A munkalap adatai felett pedig egy e-mail szerkesztő mező jelenik meg, a megfelelő szövegmezőbe beírhatja címzettjeit, tárgyát és bevezetőjét. Lásd a képernyőképet:
6. Ezután kattintson Küldd el ezt a Shee-tt, hogy ezt az aktív munkalapot üzenet törzsként küldje el az adott személynek.
Küldjön egyetlen munkalapot mellékletként az Excelből VBA kóddal
Ha mellékletként szeretné elküldeni az aktív munkalapot, akkor a következő VBA-kód kedvezhet Önnek.
1. Aktiválja az elküldeni kívánt munkalapot.
2. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: az aktuális munkalap küldése mellékletként az Excelből
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
Megjegyzések: A fenti kódban a következő információkat saját igénye szerint módosíthatja.
- .To = ""
- .CC = ""
- .BCC = ""
- .Subject = "kte jellemzők"
- .Body = "Kérjük, ellenőrizze és olvassa el ezt a dokumentumot."
4. Ezután kattintson F5 gombot a kód futtatásához, és megjelenik egy prompt mező, kattintson a gombra Hagyjuk amikor a folyamatjelző sáv elkészült, és az aktuális munkalapot mellékletként elküldte a címzettnek.
Küldjön egyetlen munkalapot PDF fájlként az Excelből, VBA kóddal
Néha el kell küldenie a munkalap jelentését másoknak, de nem szeretné, ha mások módosítanák. Ebben az esetben elküldheti a munkalapot PDF fájlként az Excelből.
1. Aktiválja az elküldeni kívánt munkalapot.
2. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: az aktuális munkalap elküldése PDF fájlként az Excelből
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Megjegyzés: A fenti kódban a következő információkat az igényei szerint módosíthatja.
- .To = ""
- .CC = ""
- .BCC = ""
- .Subject = "kte jellemzők"
- .Body = "Kérjük, ellenőrizze és olvassa el ezt a dokumentumot."
4. Ezután nyomja meg a gombot F5 gombot, és megjelenik egy prompt mező, kattintson a gombra Hagyjuk a folyamatjelző befejezése után az aktív munkalapot PDF fájlként elküldtük az adott személynek.
Megjegyzések:
1. Ezek a módszerek csak akkor érhetők el, ha levelezőprogramként az Outlook programot használja.
2. Az aktuális munkalap elküldése után az Outlook programba lépve ellenőrizheti, hogy az e-mail sikeresen el lett-e küldve.
Hozzon létre levelezőlistát, majd küldjön e-maileket
|
A Kutools az Excel számára's Levelezőlista létrehozása és a Küldés E-mailek A segédprogramok gyorsan létrehozhatnak levelezőlistát egy munkalapon, majd ugyanazt a témát, ugyanazokat a tartalmakat és mellékleteket küldhetik el több e-mail címre. |
Kapcsolódó cikkek:
Hogyan küldhetjük el a jelenlegi munkafüzetet az Outlook segítségével az Excelből?
Hogyan küldhetünk / küldhetünk cellatartományt az Outlook segítségével az Outlook segítségével?
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!