Note: The other languages of the website are Google-translated. Back to English
Đăng nhập  \/ 
x
or
x
Đăng ký  \/ 
x

or

Làm cách nào để trả lời tự động bằng email gốc trong Outlook?

Thông thường, khi chúng tôi tạo quy tắc để tự động gửi email vắng mặt, nhưng nội dung thư gốc sẽ không được đưa vào. Làm thế nào bạn có thể tự động dựa vào các email có tin nhắn gốc trong Outlook? Bài viết này, tôi sẽ nói về một mã VBA để giúp bạn hoàn thành công việc này nhanh nhất có thể trong Outlook.

Tự động trả lời email với tin nhắn gốc trong triển vọng với mã VBA


Tự động trả lời email với tin nhắn gốc trong triển vọng với mã VBA

Quy tắc Outlook bình thường không thể giúp bạn giải quyết công việc, nhưng với mã VBA sau, bạn có thể hoàn thành việc này một cách nhanh chóng và dễ dàng. Vui lòng làm như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp ThisOutlookSession từ Project1 (VbaProject.OTM) để mở chế độ, sau đó sao chép và dán mã sau vào mô-đun trống.

Mã VBA: Tự động trả lời email với tin nhắn gốc:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub 

3. Sau đó lưu và đóng cửa sổ mã, đóng hoặc khởi động lại Outlook để mã VBA có hiệu lực. Bây giờ, khi bạn nhận được email, Outlook sẽ gửi trả lời tự động với thông báo ban đầu như ảnh chụp màn hình sau:


Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
  • Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọn...
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặp... Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.