Sau khi soạn xong một số email trong Outlook, bạn có thể muốn gửi chúng đi ngay lập tức. Bây giờ, trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách lấy nó với sự trợ giúp của mã VBA.
Chẳng hạn, bạn đã hoàn thành một số email mới nhưng không gửi chúng mà chỉ để chúng mở. Và sau đó, bạn muốn gửi chúng đi. Nói chung, bạn phải nhấp vào nút “Gửi” trong từng email một. Trong trường hợp này, bạn phải mong đợi một phương pháp có thể hỗ trợ bạn gửi hàng loạt tất cả các email đã mở và đã soạn.
Trong phần sau, chúng tôi sẽ tiết lộ một cách hiệu quả như vậy cho bạn. Nó đang sử dụng VBA. nếu bạn không biết cách sử dụng VBA, bạn có thể tham khảo bài viết – “Cách chạy mã VBA trong Outlook của bạn” trong khi đó.
Gửi hàng loạt tất cả các email được soạn và mở
- Để bắt đầu, bạn có thể soạn email của mình như bình thường và giữ chúng mở.
- Sau đó, nhấn “Alt + F11” để truy cập trình chỉnh sửa VBA.
- Tiếp theo, trong cửa sổ mới, sao chép mã VBA sau vào một mô-đun.
Sub BatchSendOutAllOpenEmails()
Dim objInspectors As Outlook.Inspectors
Dim i As Long
Dim objMail As Outlook.MailItem
Dim lMailCount As Long
'Get all open items in your Outlook
Set objInspectors = Outlook.Application.Inspectors
lMailCount = 0
For i = objInspectors.Count To 1 Step -1
If objInspectors.Item(i).CurrentItem.Class = olMail Then
'Get all open emails
Set objMail = objInspectors.Item(i).CurrentItem
'Send out open emails that contain subject & recipients
If objMail.Subject <> "" Then
If objMail.Recipients.Count > 0 Then
objMail.Send
lMailCount = lMailCount + 1
End If
End If
End If
Next
'Prompt you of the results
MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub
- Sau đó, kích hoạt macro này bằng cách nhấn trực tiếp nút phím “F5”.
- Cuối cùng, khi macro hoàn tất, bạn sẽ được nhắc về số lượng email sẽ được gửi.
- Bây giờ, hãy mở Hộp thư đi, trong đó bạn có thể thấy rằng tất cả các email đã mở trước đó đang được gửi đi.
Khôi phục Outlook từ thiệt hại bất ngờ
Bạn đã bao giờ gặp lỗi Outlook trước đây chưa? Nhiều người dùng đã gặp sự cố này và đã phàn nàn về nó. Nói chung, nếu bạn đưa ra các giải pháp kịp thời và hiệu quả, bạn có thể dễ dàng truy xuất dữ liệu Outlook từ PST bị hỏng tài liệu. Chẳng hạn, nếu bạn có dữ liệu Outlook được cập nhật, bạn có thể dễ dàng hoàn nguyên về bản sao lưu. Tất nhiên, bạn có thể nhờ sự trợ giúp của một công cụ sửa chữa tuyệt vời và đáng tin cậy, chẳng hạn như DataNumen Outlook Repair, có thể quét tệp Outlook bị hỏng và khôi phục dữ liệu tối đa.
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 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