Nếu bạn muốn gửi một trang tính Excel dưới dạng email, thay vì thêm nó vào email dưới dạng tệp đính kèm, bạn có thể sử dụng hai phương pháp được giới thiệu trong bài viết này.
Đôi khi, không giống như đính kèm tệp Excel vào email dưới dạng tệp đính kèm, bạn có thể muốn chèn trực tiếp một trang tính Excel vào nội dung email, nói cách khác, gửi nó dưới dạng email. Để đáp ứng yêu cầu này, bạn có thể áp dụng một trong 2 cách sau tùy thuộc vào việc bạn muốn gửi trong MS Excel hay MS Outlook. Bây giờ hãy đọc để có được các hoạt động chi tiết.
Cách 1: Gửi bằng Excel
- Ngay từ đầu, hãy mở tệp Excel nguồn.
- Sau đó nhấp vào mũi tên xuống trong Thanh công cụ truy cập nhanh.
- Từ danh sách thả xuống, bạn nên chọn “More Commands”.
- Tiếp theo, bạn nên thêm “Gửi tới người nhận thư” vào Thanh công cụ truy cập nhanh.
- Đầu tiên, chọn “Tất cả các lệnh” trong danh sách thả xuống “Chọn lệnh từ:”.
- Sau đó, tìm và chọn lệnh “Send to Mail Recipient”.
- Tiếp theo bấm vào nút “Add” ở trung tâm.
- Sau khi thêm nó vào bên phải, nhấp vào “OK” để lưu các thay đổi.
- Sau đó, quay lại cửa sổ Excel chính và nhấp vào nút “Gửi tới Người nhận Thư” trong Thanh công cụ Truy cập Nhanh.
- Trong hộp thoại bật lên, hãy chọn “Gửi trang tính hiện tại dưới dạng nội dung thư”.
- Sau đó, một thanh công cụ mới sẽ hiển thị, giống như ảnh chụp màn hình sau. Bây giờ bạn có thể soạn các chi tiết email theo nhu cầu của bạn.
- Cuối cùng, nhấp vào nút “Gửi trang tính này” để gửi trang tính này dưới dạng email.
Phương pháp 2: Gửi trong Outlook
- Trước tiên, hãy khởi chạy chương trình Outlook của bạn.
- Sau đó nhấn các nút phím “Alt + F11” để mở trình soạn thảo Outlook VBA.
- Sau đó, mở một mô-đun mới và sao chép các mã VBA sau vào đó.
Sub SendanExcelWorksheetAsEmail()
Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkBook As Excel.Workbook
Dim objExcelWorkSheet As Excel.Worksheet
Dim objMail As Outlook.MailItem
strExcelFile = InputBox("Copy the file path to the specific excel file here:", "Specify Excel file", "E:\Contacts.xlsx")
On Error Resume Next
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
'Change to your own desired email body
objExcelWorkSheet.MailEnvelope.Introduction = "Message Body"
Set objMail = objExcelWorkSheet.MailEnvelope.Item
With objMail
'Change the recipient and subject as per your needs
.To = "frank@datanumen.com"
.Subject = objExcelWorkSheet.Name
'Use .Send to send it out directly
.Save
End With
objExcelApp.Quit
End Sub
- Sau đó, bạn có thể nhấp vào biểu tượng “Run” trên thanh công cụ.
- Ngay lập tức, macro sẽ được kích hoạt.
- Sau đó, bạn sẽ được yêu cầu sao chép đường dẫn tệp đến tệp Excel cụ thể vào hộp nhập liệu và nhấn “OK”.
- Cuối cùng, một email mới chứa trang tính Excel trong nội dung sẽ được lưu trong thư mục thư “Bản nháp”. Bạn có thể tìm thấy nó giống như ảnh chụp màn hình sau:
Đối phó với các vấn đề rắc rối về PST một cách khéo léo
Do tệp Outlook PST dễ bị lỗi, bạn có thể đã gặp phải nhiều sự cố trong Outlook của mình. Vì vậy, để tránh đau đớn thiệt hại PST, bạn nên sao lưu dữ liệu thường xuyên cho tệp PST của mình. Hơn nữa, bạn phải giữ một công cụ sửa lỗi hiệu quả trong vùng lân cận, chẳng hạn như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm thiệt hại sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm