Nếu bạn đang sử dụng quy tắc Outlook để trả lời tự động, bạn sẽ phát hiện ra rằng thư trả lời tự động không thể bao gồm thư gốc trong phần nội dung. Bài viết này sẽ giới thiệu một phương pháp dễ dàng, có thể chèn email gốc và văn bản được xác định trước vào nội dung trả lời tự động qua Outlook VBA.
Trong Outlook, tài khoản Exchange cho phép người dùng đặt trả lời tự động trực tiếp thông qua nút “Trả lời tự động” trong tab “Thông tin” trong menu “Tệp”, như ảnh chụp màn hình sau:
Nhưng nếu bạn đang sử dụng tài khoản Internet Email, bất kể IMAP hay POP3, sẽ không có nút “Trả lời tự động”. Cách duy nhất để bật trả lời tự động là tạo quy tắc trả lời tự động, được hiển thị như hình ảnh sau:
Tuy nhiên, kiểu trả lời tự động bằng quy tắc Outlook này không thể tự động bao gồm thư gốc. Trên thực tế, hầu hết mọi người đều muốn đính kèm thư gốc vào nội dung thư trả lời tự động. Trong những trường hợp như vậy, quy tắc trả lời tự động chắc chắn không thể thực hiện được. Do đó, chúng ta cần sử dụng mã VBA của Outlook. Nếu bạn quan tâm, hãy đọc tiếp để biết các bước chi tiết và mã VBA.
Tự động trả lời với Email gốc và Văn bản được xác định trước
- Lúc đầu, bạn nên chuyển sang tab “Nhà phát triển” và nhấp vào nút “Visual Basic”.
- Sau đó, trong cửa sổ “Microsoft Visual Basic for Applications” mới, bạn cần nhấp đúp vào dự án “ThisOutlookSession” ở phía bên trái.
- Sau đó, dự án “ThisOutlookSession” sẽ mở ra. Bây giờ bạn nên sao chép và dán các mã VBA sau vào đó.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim olReply As MailItem
If Item.Class = olMail Then
Set olReply = Item.Reply
Else
Exit Sub
End If
With olReply
'Type Your Own Auto Reply
'Change "John Smith" to Your Own Name
.Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
.Send
End With
End Sub
- Tiếp theo, bạn phải ký mã này như bình thường và tiếp tục thay đổi cài đặt macro để chỉ cho phép các macro được ký điện tử.
- Cuối cùng, sau khi hoàn thành các bước trên, Outlook sẽ tự động gửi thư trả lời với thông tin thư gốc trong phần nội dung. Nó sẽ trông giống như hình dưới đây:
Lưu ý: Bất kể trả lời tự động bằng quy tắc hay trả lời tự động bằng mã VBA, cả hai đều chỉ có thể tạo hiệu ứng khi Outlook đang chạy.
Địa chỉ lỗi dữ liệu Outlook
Không nghi ngờ gì nữa, Outlook không thể tránh khỏi lỗi. Do đó, điều cần thiết đối với người dùng Outlook thông thường là phải có một số thủ thuật để giải quyết chúng. Rõ ràng, cách tốt nhất để đối phó với Thiệt hại dữ liệu Outlook đang tạo một bản sao lưu thường xuyên. Miễn là bạn có được một bản sao lưu hiệu quả, bạn sẽ yên tâm ngay cả khi Outlook gặp sự cố. Tất nhiên, ngoài bảo hiểm, bạn cũng nên giữ một công cụ sửa chữa hiệu quả.
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 lỗi tệp mdf SQL bị 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