Làm cách nào để chỉ gửi trang tính qua Outlook từ Excel?

Nếu bạn muốn gửi email một trang tính từ sổ làm việc trong Excel qua Outlook, bạn có thể gửi trang tính dưới dạng tệp đính kèm, dưới dạng nội dung cơ thể hoặc dưới dạng tệp PDF. Nhưng có cách nào nhanh hơn để bạn giải quyết vấn đề này trong Excel không?

Gửi một bảng tính dưới dạng nội dung từ Excel với lệnh Gửi tới Người nhận Thư

Gửi một bảng tính dưới dạng tệp đính kèm từ Excel với mã VBA

Gửi một bảng tính dưới dạng tệp PDF từ Excel với mã VBA

Gửi một bảng tính dưới dạng nội dung từ Excel với lệnh Gửi tới Người nhận Thư

Excel hỗ trợ chúng tôi gửi trang tính đang hoạt động qua email dưới dạng nội dung nội dung bằng cách sử dụng lệnh Gửi tới Người nhận Thư. Bạn có thể làm như sau:

Nếu bạn sử dụng Excel 2007, 2010 hoặc 2013, bạn cần thêm Gửi đến Người nhận Thư lệnh cho Thanh công cụ truy cập nhanh đầu tiên.

1. Nhấp vào biểu tượng của Tùy chỉnh thanh công cụ truy cập nhanh, và lựa chọn Các lệnh khác, xem ảnh chụp màn hình:

doc-email-sheet1

2. Và trong Tùy chọn Excel hộp thoại, chọn Các lệnh không có trong ruy-băng trong Chọn lệnh từ danh sách thả xuống, sau đó chọn Gửi đến Người nhận Thư và nhấp vào Thêm >> để thêm lệnh này, ở lần nhấp cuối cùng OK để lưu cài đặt này. Xem ảnh chụp màn hình:

doc-email-sheet2

3. Sản phẩm Gửi đến Người nhận Thư lệnh đã được chèn vào Thanh công cụ truy cập nhanh, xem ảnh chụp màn hình:

doc-email-sheet3

4. Sau đó bấm vào đây Gửi đến Người nhận Thư nút biểu tượng và hộp nhắc nhở bật ra, trong E-mail hộp nhắc nhở, kiểm tra Gửi trang tính hiện tại dưới dạng nội dung thư, Và nhấp vào OK. Xem ảnh chụp màn hình:

doc-email-sheet4

5. Và một hộp soạn thảo email được hiển thị phía trên dữ liệu trang tính, bạn có thể nhập người nhận, chủ đề và phần giới thiệu của mình vào hộp văn bản tương ứng. Xem ảnh chụp màn hình:

doc-email-sheet5

6. Sau đó nhấn vào Gửi Shee nàyt để gửi trang tính hoạt động này dưới dạng nội dung thư cho người cụ thể của bạn.

Gửi một bảng tính dưới dạng tệp đính kèm từ Excel với mã VBA

Nếu bạn muốn gửi trang tính đang hoạt động qua email dưới dạng tệp đính kèm, thì mã VBA sau có thể giúp bạn.

1. Kích hoạt trang tính của bạn mà bạn muốn gửi.

2. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: gửi trang tính hiện tại dưới dạng tệp đính kèm từ Excel

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

Chú thích: Trong đoạn mã trên, bạn có thể thay đổi các thông tin sau theo nhu cầu của riêng bạn.

.To = ""
.CC = ""
.BCC = ""
.Subject = "kte tính năng"
.Body = "Vui lòng kiểm tra và đọc tài liệu này."

4. Sau đó nhấn vào F5 để chạy mã này và một hộp nhắc sẽ bật ra, hãy nhấp vào Cho phép khi thanh tiến trình kết thúc, và sau đó trang tính hiện tại đã được gửi đến người nhận của bạn dưới dạng tệp đính kèm.

doc-email-sheet6

Gửi một bảng tính dưới dạng tệp PDF từ Excel với mã VBA

Đôi khi, bạn cần gửi báo cáo trang tính của mình cho người khác nhưng không muốn người khác sửa đổi. Trong trường hợp này, bạn có thể gửi trang tính dưới dạng tệp PDF từ Excel.

1. Kích hoạt trang tính của bạn mà bạn muốn gửi.

2. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: gửi trang tính hiện tại dưới dạng tệp PDF từ Excel

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

Lưu ý: Trong mã trên, bạn có thể thay đổi các thông tin sau theo nhu cầu của bạn.

.To = ""
.CC = ""
.BCC = ""
.Subject = "kte tính năng"
.Body = "Vui lòng kiểm tra và đọc tài liệu này."

4. Sau đó nhấn F5 và một hộp nhắc sẽ bật ra, hãy nhấp vào Cho phép sau khi thanh tiến trình kết thúc, thì trang tính đang hoạt động đã được gửi đến người cụ thể dưới dạng tệp PDF.

doc-email-sheet6

Ghi chú:

1. Các phương pháp này chỉ khả dụng khi bạn sử dụng Outlook làm chương trình thư của mình.

2. Sau khi gửi trang tính hiện tại, bạn có thể vào Outlook của mình để đảm bảo rằng email đã được gửi thành công.

Tạo danh sách gửi thư sau đó gửi email

Sản phẩm Kutools cho Excel's Tạo danh sách gửi thư và Gửi Email tiện ích có thể nhanh chóng tạo danh sách gửi thư trong một trang tính, sau đó gửi cùng chủ đề, cùng nội dung và cùng tệp đính kèm đến nhiều địa chỉ email.

Đi tới Tải xuống
Dùng thử miễn phí 30 ngày

Các bài liên quan:

Làm cách nào để gửi sổ làm việc hiện tại qua Outlook từ Excel?

Làm thế nào để gửi / gửi email phạm vi ô thông qua outlook từ Excel?

Công cụ năng suất văn phòng tốt nhất

🤖	Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh \| Tạo mã \| Tạo công thức tùy chỉnh \| Phân tích dữ liệu và tạo biểu đồ \| Gọi các hàm Kutools...
	Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao \| Xóa hàng trống \| Kết hợp các cột hoặc ô mà không làm mất dữ liệu \| Vòng không có công thức hữu ích. Cảm ơn !
	Siêu tra cứu: Nhiều tiêu chí VLookup \| VLookup Nhiều Giá Trị \| VLookup trên nhiều trang tính \| Tra cứu mờ ....
	Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống \| Danh sách thả xuống phụ thuộc \| Danh sách thả xuống nhiều lựa chọn ....
	Trình quản lý cột: Thêm một số cột cụ thể \| Di chuyển cột \| Chuyển đổi trạng thái hiển thị của các cột ẩn \| So sánh dãy và cột hữu ích. Cảm ơn !
	Các tính năng nổi bật: Tiêu điểm lưới \| Chế độ xem thiết kế \| Thanh công thức lớn \| Trình quản lý sổ làm việc & trang tính \| Thư viện tài nguyên (Văn bản tự động) \| Bảng chọn ngày \| Kết hợp các bảng tính \| Mã hóa/Giải mã ô \| Gửi email theo danh sách \| Siêu lọc \| Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
	15 bộ công cụ hàng đầu: 12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...) \| 50 + Biểu đồ Các loại (Biểu đồ Gantt,...) \| 40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...) \| 19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...) \| 12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...) \| 7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...) \| ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả

Đọc thêm ... Tải xuống miễn phí...

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!

Đọc thêm ... Tải xuống miễn phí...

Comments (34)

No ratings yet. Be the first to rate!

Philip

about 1 month ago

#44914

This comment was minimized by the moderator on the site

I've found the code you post for Typhaine and it works very well for me.
So thank's very much.
Philip.

Typhaine

about 1 year ago

#42791

This comment was minimized by the moderator on the site

Bonjour,

Est-il possible d'utiliser le code pour joindre deux feuilles du fichier Excel dans le mail ?

Merci d'avance.

skyyang Typhaine

about 1 year ago

#42907

This comment was minimized by the moderator on the site

Hello, Typhaine
To send multiple sheets, please apply the below code:
Note: In the code, you should change the sheet names to your own.

Sub Mail_Sheets_Array()
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim sh As Worksheet
    Dim TheActiveWindow As Window
    Dim TempWindow As Window
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    Set Sourcewb = ActiveWorkbook
    With Sourcewb
        Set TheActiveWindow = ActiveWindow
        Set TempWindow = .NewWindow
        .Sheets(Array("Sheet1", "Sheet2")).Copy
    End With
    TempWindow.Close
    Set Destwb = ActiveWorkbook
    With Destwb
        If Val(Application.Version) < 12 Then
           
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            
            Select Case Sourcewb.FileFormat
            Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
            Case 52:
                If .HasVBProject Then
                    FileExtStr = ".xlsm": FileFormatNum = 52
                Else
                    FileExtStr = ".xlsx": FileFormatNum = 51
                End If
            Case 56: FileExtStr = ".xls": FileFormatNum = 56
            Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
            End Select
        End If
    End With
    TempFilePath = Environ$("temp") & "\"
    TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        On Error Resume Next
        With OutMail
            .To = ""
            .CC = ""
            .BCC = ""
            .Subject = "KTE features"
            .Body = "Please check and read this document"
            .Attachments.Add Destwb.FullName
           
            .Display
        End With
        On Error GoTo 0
        .Close savechanges:=False
    End With
   
    Kill TempFilePath & TempFileName & FileExtStr

    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

Please have a try, hope it can help you!

Report

Potocki

about 1 year ago

#40375

This comment was minimized by the moderator on the site

Hej,

Muszę wysłać zakres (stały) arkusza jako obraz w treści maila jednocześnie dodając cały arkusz jako plik/załącznik. Czy jest to możliwe?

Report

Jose

about 2 years ago

#37074

This comment was minimized by the moderator on the site

Hi the program worked just fine till 2021, I tried to run it today, but it does send the email. As does notshow any errors

Bhattacharjee

about 4 years ago

#30647

This comment was minimized by the moderator on the site

This is to inform you that i have an VBA code for send email from outlook with the help of excel vba,now i want to put "MDD Code" & " MDD Name" as well as Cells(i, 1) & Cells(i, 2) in a table like that.

MDD Code MDD Name
M123 Joydip

I am sending you the VBA Code,Request you for help.
VBA Code
----------------------------------------------------------------------------------------------------------------------------------------------
Sub sendmail()

Dim olapp As Outlook.Application

Dim olmail As Outlook.MailItem

For i = 2 To 35

Application.ScreenUpdating = False

Set olapp = New Outlook.Application

Set olmail = olapp.CreateItem(olMailItem)

With olmail

olmail.To = Cells(i, 4).Value

olmail.CC = Cells(i, 6).Value

olmail.Subject = Cells(i, 7).Value

olmail.HTMLBody = "Dear Partner ," & _

"
Please find the attchment." & _

"

MDD Code : " & Cells(i, 1) & _

"
MDD Name : " & Cells(i, 2) & _

"

Joydip Bhattacharjee" & _

"
Company" & _

"
MIS" & _

"
Country" & _

"
Contact No : 7602066491"

olmail.Attachments.Add Cells(i, 8).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 9).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 10).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 11).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 12).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 13).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 14).Value

'On Error Resume Next

olmail.Send

End With

Set olmail = Nothing

Next

End Sub

Report

mehmet

about 5 years ago

#26212

This comment was minimized by the moderator on the site

merhaba ben bunu belirli periyotta otomatik mail atmasını nasıl ayarlayabilirim

Oscar Eseisa

about 5 years ago

#25575

This comment was minimized by the moderator on the site

Excelent code. Thanks!

Dave

about 6 years ago

#24144

This comment was minimized by the moderator on the site

Anyway I can easily send an excel worksheet through my outlook without all this ?? I can send the worksheet context, but no the workbook as an attachment. On my work computer I can send from word and excel, but am having trouble at home.

Richard

about 6 years ago

#22889

This comment was minimized by the moderator on the site

Hi! Is it possible to use this code, but instead of sending straight away it opens up the mail?

Sunny Richard

about 6 years ago

#22890

This comment was minimized by the moderator on the site

You can try this code:
Sub SendWorkSheet()
'Update 20180109
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
.Display
' .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

Please let me know if it works for you, thank you.

Report

Sherry

about 6 years ago

#19920

This comment was minimized by the moderator on the site

This code works good, however, does anyone know a way to automate a field as an alert for the email to go automatically based on a date column?

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

🤖	Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh \| Tạo mã \| Tạo công thức tùy chỉnh \| Phân tích dữ liệu và tạo biểu đồ \| Gọi các hàm Kutools...
	Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao \| Xóa hàng trống \| Kết hợp các cột hoặc ô mà không làm mất dữ liệu \| Vòng không có công thức hữu ích. Cảm ơn !
	Siêu tra cứu: Nhiều tiêu chí VLookup \| VLookup Nhiều Giá Trị \| VLookup trên nhiều trang tính \| Tra cứu mờ ....
	Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống \| Danh sách thả xuống phụ thuộc \| Danh sách thả xuống nhiều lựa chọn ....
	Trình quản lý cột: Thêm một số cột cụ thể \| Di chuyển cột \| Chuyển đổi trạng thái hiển thị của các cột ẩn \| So sánh dãy và cột hữu ích. Cảm ơn !
	Các tính năng nổi bật: Tiêu điểm lưới \| Chế độ xem thiết kế \| Thanh công thức lớn \| Trình quản lý sổ làm việc & trang tính \| Thư viện tài nguyên (Văn bản tự động) \| Bảng chọn ngày \| Kết hợp các bảng tính \| Mã hóa/Giải mã ô \| Gửi email theo danh sách \| Siêu lọc \| Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
	15 bộ công cụ hàng đầu: 12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...) \| 50 + Biểu đồ Các loại (Biểu đồ Gantt,...) \| 40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...) \| 19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...) \| 12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...) \| 7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...) \| ... và nhiều hơn nữa

changelog

Hướng dẫn về tính năng

Được trợ giúp?