Nếu muốn sao chép tất cả hình ảnh từ tài liệu Word sang email Outlook, bạn có thể sử dụng 3 cách được giới thiệu trong bài viết này.
Ví dụ: bạn hoàn thành một tài liệu Word có chứa nhiều ảnh. Sau này, bạn muốn sử dụng lại những ảnh này trong tài liệu để soạn email Outlook. Trong tình huống này, bạn sẽ mong muốn có một giải pháp nhanh chóng để sao chép nhanh hình ảnh từ tài liệu word sang email trong Outlook. Nhìn vào yêu cầu này, ở đây chúng tôi sẽ hướng dẫn bạn 3 cách để đạt được nó.

Cách 1: Sao chép từng cái một
- Trước hết, trong Outlook, hãy tạo một email mới.
- Sau đó, mở tài liệu Word nguồn.
- Tiếp theo, chọn một hình ảnh trong tài liệu Word.
- Nhấn “Ctrl + C” để sao chép nó.
- Sau đó, truy cập vào email Outlook.
- Cuối cùng, nhấn “Ctrl + V” trong nội dung thư để dán hình ảnh đã sao chép.
- Bây giờ, hãy sử dụng cách này để sao chép từng hình ảnh khác từ tài liệu vào email này.
Cách 2: Lưu ảnh & chèn hàng loạt vào Email
- Đầu tiên, trong tài liệu Word đã mở, hãy chuyển đến “Tệp” > “Lưu dưới dạng”.
- Sau đó, trong hộp thoại bật lên, chọn thư mục đích và chọn “Trang web” trong trường “Lưu dưới dạng”.
- Tiếp theo, nhấp vào nút "Lưu".
- Sau đó, đóng ứng dụng Word như bình thường.
- Sau đó, tạo một email Outlook mới.
- Trong cửa sổ tin nhắn, chuyển sang tab “Chèn” và nhấp vào nút “Hình ảnh”.
- Sau đó, trong hộp thoại mới, đi tới vị trí lưu tài liệu Word dưới dạng trang web.
- Sau đó, mở thư mục có tên là “xxx_files”.
- Tiếp theo, chọn những hình ảnh mà bạn muốn chèn.
- Cuối cùng, nhấp vào nút “Chèn”.
- Bạn có thể thấy những hình ảnh được chọn đã được chèn vào email.
Cách 3: Sao chép hàng loạt qua VBA
- Đầu tiên, hãy mở tài liệu Word.
- Sau đó, nhấn “Alt + F11” để truy cập trình soạn thảo Word VBA.
- Tiếp theo, sao chép mã VBA bên dưới vào một mô-đun.
Sub CopyImagesToMail()
Dim objTempDocument As Word.Document
Dim objInlineShape As Word.InlineShape
Dim objShape As Word.Shape
Dim objOutlookApp As Object
Dim objMail As Object
Dim objMailDocument As Word.Document
Dim objDocSelection As Word.Selection
'Copy the whole document to a new Temp document
Selection.WholeStory
Selection.Copy
Set objTempDocument = Word.Documents.Add
objTempDocument.Application.Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
For Each objInlineShape In objTempDocument.InlineShapes
objInlineShape.ConvertToShape
Next
'Clear text in the Temp document
With objTempDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[^2-^255]{1,}"
.Replacement.Text = ""
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Do While objTempDocument.Shapes.Count > 0
For Each objShape In objTempDocument.Shapes
objShape.ConvertToInlineShape
Next
Loop
'Copy the images in Temp Document
objTempDocument.Application.Selection.WholeStory
objTempDocument.Application.Selection.Copy
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
'Create a new Outlook email
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
Set objDocSelection = objMailDocument.Application.Selection
'Paste the copied images into email
objDocSelection.Collapse Direction:=wdCollapseStart
objDocSelection.PasteAndFormat (wdUseDestinationStylesRecovery)
objTempDocument.Close False
End Sub
- Sau đó nhấn phím “F5” để chạy macro này.
- Khi macro kết thúc, bạn sẽ nhận được email Outlook mới chứa tất cả hình ảnh của tài liệu Word, như ảnh chụp màn hình sau:
Chăm sóc Outlook của bạn một cách cẩn thận
Mỗi người dùng thông thường có thể gặp phải nhiều vấn đề khác nhau trong Outlook. Thành thật mà nói, nếu bạn chăm sóc Outlook của mình, bạn có thể tránh được những vấn đề khủng khiếp một cách hiệu quả. Ví dụ: bạn có thể phải luôn đóng Outlook của mình và không nên tin tưởng bất kỳ email không xác định nào. Ngoài ra, bạn nên có một công cụ sửa lỗi PST đủ tiêu chuẩn, như DataNumen Outlook Repair. Nó có thể sửa chữa PST hỏng các vấn đề như một nút chai.
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 phục hồi 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







