Bạn gửi một email đến nhiều người nhận và đặt một số người trong số họ vào trường “BCC”. Sau này, nếu bạn chỉ muốn gửi thư thứ hai cho người nhận BCC, bạn có thể sử dụng phương tiện được chia sẻ trong bài viết này.
Bạn đã bao giờ gửi bất kỳ email Outlook nào cho một số người nhận với một số trong trường “BCC” chưa? Đôi khi, sau khi gửi một email như vậy, bạn có thể muốn gửi email thứ hai đến một loại người nhận cụ thể, chẳng hạn như người nhận BCC. Chẳng hạn, bạn muốn gửi cho họ một số ghi chú bổ sung cụ thể. Bây giờ, chúng tôi sẽ giới thiệu cho bạn 2 cách. Trước đây là sử dụng sao chép và dán. Và cái sau thực sự hiệu quả hơn nhiều nhờ mã VBA. Bạn có thể chọn một trong hai theo nhu cầu của bạn.
Phương pháp 1: Sao chép người nhận BCC sang email mới theo cách thủ công
- Đầu tiên, trong danh sách email của thư mục “Sent Items”, chọn email ban đầu.
- Sau đó, nhấp đúp vào thư này để mở thư trong cửa sổ Thư riêng.
- Sau đó, trong cửa sổ mới, chọn một người nhận trong dòng “BCC”.
- Tiếp theo, nhấn “Ctrl + A” để chọn tất cả những người nhận BCC.
- Sau đó, nhấp chuột phải và chọn “Sao chép” từ menu ngữ cảnh.
- Sau đó, đóng email này.
- Sau đó, tạo một email mới bằng nút “E-mail mới” trên tab “Trang chủ”.
- Cuối cùng, dán người nhận BCC đã sao chép vào trường “Tới” của email mới này.
- Hiện tại bạn có thể tùy ý soạn và gửi mail mới này
Phương pháp 2: Gửi Email thứ hai tới Người nhận BCC qua VBA
- Đầu tiên, nhấn “Alt + F11” để truy cập trình chỉnh sửa VBA.
- Sau đó, đặt mã VBA bên dưới vào một mô-đun không sử dụng.
Sub SendAnotherEmailToBCCRecipients()
Dim objOriginalMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Dim objNewMail As Outlook.MailItem
Dim objNewRecipient As Outlook.Recipient
'Get source email
Select Case TypeName(Application.ActiveWindow)
Case "Inspector"
Set objOriginalMail = ActiveInspector.CurrentItem
Case "Explorer"
Set objOriginalMail = ActiveExplorer.Selection.Item(1)
End Select
'Copy the BCC recipients to "To" field in new mail
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
For Each objRecipient In objOriginalMail.Recipients
If objRecipient.Type = olBCC Then
Set objNewRecipient = objNewMail.Recipients.Add(objRecipient)
objNewRecipient.Type = olTo
objNewRecipient.Resolve
End If
Next
'Change the new email details
With objNewMail
.Subject = "Additional Notes for " & objOriginalMail.Subject
.Body = "Type mail body here....."
.Attachments.Add ("E:\Dos & Don'ts.txt")
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Send
.Display
End With
End Sub
- Sau đó, thêm macro này vào Thanh công cụ truy cập nhanh tham khảo “Cách chạy mã VBA trong Outlook của bạn".
- Cuối cùng, hãy thử macro này ngay bây giờ.
- Để bắt đầu, hãy chọn hoặc mở email ban đầu.
- Sau đó, bấm vào macro trong Thanh công cụ truy cập nhanh.
- Tiếp theo, một email mới sẽ được gửi đi. Người nhận của nó là người nhận BCC của email ban đầu, giống như hình ảnh sau đây.
Cứu hộ dữ liệu Outlook của bạn kịp thời
Rất khuyến khích sửa chữa triển vọng ngay khi Outlook của bạn bị hỏng. Trước tiên, bạn có thể sử dụng tiện ích sửa chữa sẵn có – Scanpst. Tuy nhiên, đôi khi, bạn có thể gặp lỗi Scanpst trong đó thiệt hại vượt quá khả năng của công cụ hộp thư đến. Vào thời điểm đó, giải pháp cuối cùng của bạn là sử dụng một công cụ mạnh mẽ và đáng tin cậy của bên thứ ba, 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 mdf bị hư hỏng 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