Cách gửi mail 1 sheet trong Excel

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:

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:

3. Mô hình 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:

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:

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:

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 = "skyyang @extendoffice.com "
• .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.

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 = "skyyang @extendoffice.com "
• .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.

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

Mô hình 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?