Đôi khi, bạn có thể muốn chèn nhanh các ô đã chọn trong trang tính Excel vào email Outlook và gửi email này đi. Bài viết này sẽ xem xét mong muốn này để cung cấp cho bạn 2 phương pháp.
Bài viết trước của tôi “2 phương pháp nhanh để gửi bảng tính Excel dưới dạng email Outlook” đã hướng dẫn bạn cách gửi toàn bộ trang tính Excel dưới dạng email. Tuy nhiên, đôi khi, bạn chỉ muốn gửi các ô đã chọn trong trang tính dưới dạng email. Để đáp ứng yêu cầu này, ở đây chúng tôi sẽ giới thiệu cho bạn 2 phương pháp. Bạn có thể chọn một trong hai theo sở thích của bạn.
Phương pháp 1: Sao chép các ô đã chọn vào email theo cách thủ công
- Trước tiên, hãy mở tệp Excel nguồn và truy cập vào trang tính Excel cần thiết.
- Sau đó chọn các ô mà bạn muốn gửi dưới dạng email Outlook.
- Tiếp theo nhấn phím tắt “Ctrl + C” để sao chép các ô đã chọn.
- Sau đó, khởi chạy ứng dụng Outlook của bạn.
- Sau đó, nhấp vào nút “Email mới” trong dải băng “Trang chủ” để tạo email Outlook mới.
- Sau đó, trong cửa sổ Tin nhắn mới, nhấp vào phần nội dung tin nhắn.
- Và sau đó nhấn các nút phím “Ctrl + V” để dán các ô Excel đã chọn đã sao chép trước đó.
- Cuối cùng, bạn có thể soạn email như bình thường và nhấn nút “Send” để gửi đi.
Phương pháp 2: Gửi các ô đã chọn dưới dạng Email qua VBA
- Ngay từ đầu, hãy mở sổ làm việc Excel nguồn.
- Sau đó nhấn các nút phím “Alt + F11” để truy cập trình soạn thảo Excel VBA.
- Trong cửa sổ mới, nhấp vào “Chèn” > “Mô-đun” để chèn một mô-đun mới.
- Tiếp theo, bạn cần kích hoạt Microsoft Outlook Object. Nhấp vào “Công cụ” > “Tham chiếu”. Trong hộp thoại bật lên, tìm và chọn “Thư viện đối tượng Microsoft Outlook”.
- Sau đó, sao chép mã VBA sau vào mô-đun này.
Sub SendSelectedCells_inOutlookEmail()
Dim objSelection As Excel.Range
Dim objTempWorkbook As Excel.Workbook
Dim objTempWorksheet As Excel.Worksheet
Dim strTempHTMLFile As String
Dim objTempHTMLFile As Object
Dim objFileSystem As Object
Dim objTextStream As Object
Dim objOutlookApp As Outlook.Application
Dim objNewEmail As Outlook.MailItem
'Copy the selection
Set objSelection = Selection
Selection.Copy
'Paste the copied selected ranges into a temp worksheet
Set objTempWorkbook = Excel.Application.Workbooks.Add(1)
Set objTempWorksheet = objTempWorkbook.Sheets(1)
'Keep the values, column widths and formats in pasting
With objTempWorksheet.Cells(1)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteFormats
End With
'Save the temp worksheet as a HTML file
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempHTMLFile = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Excel" & Format(Now, "YYYY-MM-DD hh-mm-ss") & ".htm"
Set objTempHTMLFile = objTempWorkbook.PublishObjects.Add(xlSourceRange, strTempHTMLFile, objTempWorksheet.Name, objTempWorksheet.UsedRange.Address)
objTempHTMLFile.Publish (True)
'Create a new email
Set objOutlookApp = CreateObject("Outlook.Application")
Set objNewEmail = objOutlookApp.CreateItem(olMailItem)
'Read the HTML file data and insert into the email body
Set objTextStream = objFileSystem.OpenTextFile(strTempHTMLFile)
objNewEmail.HTMLBody = objTextStream.ReadAll
objNewEmail.Display
'You can specify the new email recipients, subjects here using the following lines:
'objNewEmail.To = "johnsmith@datanumen.com"
'objNewEmail.Subject = "DataNumen Products"
'objNewEmail.Send --> directly send out this email
objTextStream.Close
objTempWorkbook.Close (False)
objFileSystem.DeleteFile (strTempHTMLFile)
End Sub
- Cuối cùng, bạn có thể thử.
- Đầu tiên, chọn các ô cụ thể như bình thường.
- Sau đó quay lại macro mới và nhấn phím F5 để kích hoạt nó.
- Ngay lập tức, một email Outlook mới sẽ hiển thị, trong đó bạn có thể thấy rằng các ô đã chọn đã được chèn vào nội dung email, giống như ảnh chụp màn hình sau:
Tệp PST cũng dễ bị tổn thương như tệp Excel
Như chúng ta đã biết, các tệp Excel và tài liệu Word rất dễ bị hỏng. Thực tế, điều tương tự cũng đúng với tệp PST, chứa tất cả các mục trong hộp thư Outlook của bạn. Vì vậy, việc bảo mật dữ liệu PST là một nhiệm vụ khó khăn. Một trong những biện pháp hiệu quả nhất là sao lưu tệp thường xuyên. Thêm vào đó, để có thể khôi phục ngay lập tức, bạn nên chuẩn bị một công cụ chuyên dụng, chẳng hạn như... DataNumen Outlook Repair, có thể phục hồi Outlook dữ liệu mà không đổ mồ hôi.
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 sửa chữa mdf 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