Nếu bạn chỉ muốn gửi một bản sao của một email nháp cụ thể, thay vì chính bản nháp đó, để bạn có thể sử dụng lại bản nháp này, bạn có thể sử dụng 2 phương pháp được giới thiệu trong bài viết này.
Có lẽ bạn nghĩ rằng việc tạo và sử dụng mẫu tin nhắn khá rắc rối vì mỗi khi cần sử dụng, trước hết bạn phải tìm trong “Chọn Mẫu”. Do đó, bạn có thể muốn lưu email nháp dưới dạng mẫu email. Tuy nhiên, nói chung, khi bạn cần gửi email bằng bản nháp, nếu bạn mở thẳng bản nháp cụ thể và nhấp vào nút “Gửi”, bản nháp sẽ được gửi đi và biến mất khỏi thư mục Bản nháp ngay lập tức. Do đó, bạn sẽ không thể sử dụng lại bản nháp này. Trong trường hợp này, bạn sẽ hy vọng rằng mình có thể chỉ cần gửi một bản sao của bản nháp cụ thể, thay vì bản thân bản nháp đó. Để giải quyết vấn đề này, ở đây chúng tôi sẽ hướng dẫn bạn 2 cách tiếp cận.
Phương pháp 1: Chuyển tiếp một email nháp cụ thể
- Ngay từ đầu, starứng dụng Outlook của bạn.
- Sau đó chuyển sang thư mục “Bản nháp”.
- Tiếp theo xác định vị trí và quảng cáo chiêu hàng trên email dự thảo cụ thể.
- Sau đó, nhấp vào nút “Chuyển tiếp” trong nhóm “Trả lời” trong tab “Trang chủ”.
- Ngay lập tức, một email mới có cùng nội dung với bản nháp cụ thể sẽ bật lên.
- Bây giờ bạn có thể soạn nó theo ý muốn và cuối cùng nhấn nút “Send” để gửi.
Cách này khá tiện lợi nếu bạn chỉ có một vài bản nháp trong thư mục Drafts. Nhưng nếu bạn có một số lượng lớn các bản nháp, bạn sẽ cảm thấy khó khăn trong việc xác định bản nháp cụ thể được sử dụng thường xuyên. Tại thời điểm đó, bạn có thể thích mẹo sau.
Phương pháp 2: Gửi một bản sao của một email nháp cụ thể
- Trước tiên, hãy nhấn các nút phím “Alt + F11”.
- Sau đó, trong cửa sổ trình soạn thảo VBA bật lên, hãy mở một mô-đun mới.
- Tiếp theo sao chép và dán các mã VBA sau vào đó.
Sub SendCopyofSpecificDraft()
Dim objDrafts As Outlook.Items
Dim objSpecificDraft As MailItem
Dim strDraftSubject As String
Dim strFilter As String
Dim nPrompt As Integer
Dim objMailCopy As MailItem
Set objDrafts = Application.Session.GetDefaultFolder(olFolderDrafts).Items
'Replace the following line with the subject of the specific frequently-used draft
strDraftSubject = "DataNumen Outlook Repair"
strFilter = "[Subject] = " & Chr(34) & strDraftSubject & Chr(34)
'Find the specific draft item
Set objSpecificDraft = objDrafts.Find(strFilter)
If objSpecificDraft Is Nothing Then
'Prompt you if no such a draft
nPrompt = MsgBox("No such a draft exists!", vbExclamation)
Else
'If there is such a draft, locate and copy it
Set objMailCopy = objSpecificDraft.Copy
If Not objMailCopy Is Nothing Then
objMailCopy.Display
End If
End If
End Sub
- Sau đó, bạn nên chuyển macro mới sang Thanh công cụ truy cập nhanh.
- Cuối cùng bạn có thể có một thử.
- Đầu tiên, nhấp vào nút macro trong Thanh công cụ truy cập nhanh.
- Tiếp theo, một bản sao của email dự thảo cụ thể sẽ hiển thị ngay lập tức.
- Nhưng nếu không có bản nháp nào như vậy trong thư mục Bản nháp, bạn sẽ nhận được thông báo như ảnh chụp màn hình sau:
Vứt bỏ các vấn đề thường gặp về Outlook
Có thể bạn đã gặp phải một số sự cố nhất định về Outlook. Làm thế nào để bạn đối phó với họ như bình thường? Nói chung, nếu các vấn đề nhỏ, công cụ sửa chữa hộp thư đến là đủ cho họ. Nhưng nếu các vấn đề liên quan đến PST bị hỏng tệp, bạn nên sử dụng một công cụ đáng chú ý hơn nhiều, 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 SQL Server tham nhũ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