Một số người dùng muốn Outlook tự động lấy dòng đầu tiên của nội dung email làm chủ đề khi gửi email không có chủ đề. Bây giờ, trong bài viết này, chúng tôi sẽ giới thiệu một phương pháp để hiện thực hóa nó thông qua mã VBA.
Nhiều người dùng thường xuyên quên nhập chủ đề khi soạn và gửi email. Do đó, thông thường, họ hy vọng rằng Outlook có thể tự động điền chủ đề vào dòng đầu tiên của nội dung email nếu email gửi đi không có chủ đề. Sau đây, chúng tôi sẽ chia sẻ một phương pháp dễ dàng và tiện dụng với bạn.
Tự động lấy dòng đầu tiên của nội dung làm chủ đề trước khi gửi email không có chủ đề
- Ngay từ đầu, hãy khởi chạy ứng dụng Outlook.
- Sau đó, bằng cách làm theo các bước trong “Cách chạy mã VBA trong Outlook của bạn“, bạn có thể vào trình soạn thảo VBA.
- Tiếp theo, trong trình soạn thảo VBA, hãy thêm tham chiếu đến “MS Word Object Library” theo “Cách thêm một đối tượng Library Tham khảo trong VBA".
- Sau đó, sao chép mã bên dưới vào dự án “ThisOutlookSession”.
Private WithEvents objInspectors As Outlook.Inspectors
Private Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail And Inspector.CurrentItem.Subject = "" Then
Inspector.CurrentItem.Subject = " "
End If
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objMailSelection As Word.Selection
If TypeOf Item Is MailItem Then
Set objMail = Item
If Len(Trim(objMail.Subject)) = 0 Then
If MsgBox("No subject! Whether to take first line as subject?", vbQuestion + vbYesNo) = vbYes Then
Set objMailDocument = objMail.GetInspector.WordEditor
Set objMailSelection = objMailDocument.Application.Selection
objMailDocument.Range(0, 0).Select
objMailSelection.MoveEnd wdLine
'Take first line of body as subject
objMail.Subject = objMailSelection.Text
End If
End If
End If
End Sub
- Sau đó, đặt con trỏ vào “Application_Startup” và nhấn “F5”.
- Cuối cùng, bạn có thể thử.
- Lúc đầu, hãy tạo và soạn một email chỉ có chủ đề trống.
- Sau đó, nhấp vào nút “Gửi”.
- Sau đó, bạn sẽ nhận được một thông báo hỏi xem có nên lấy dòng đầu tiên của phần nội dung làm chủ đề hay không.
- Miễn là bạn chọn nút “Có”, dòng đầu tiên của nội dung email sẽ được trích xuất và sử dụng làm chủ đề và email sẽ được gửi đi.
Giữ an toàn cho dữ liệu Outlook của bạn
Tất nhiên, có nhiều email quan trọng và các mục khác trong Outlook của bạn. Do đó, chắc hẳn bạn không muốn gặp phải trường hợp mất dữ liệu Outlook. Sau đó, bạn phải thực hiện một số hành động, chẳng hạn như tạo bản sao lưu dữ liệu thường xuyên cho Outlook của mình, học cách sử dụng công cụ sửa chữa sẵn có để sửa chữa Outlook lỗi và chuẩn bị một tiện ích khôi phục bên ngoài mạnh mẽ. DataNumen Outlook Repair là một lựa chọn tốt do tốc độ phục hồi PST cao.
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