Nhiều người dùng hy vọng rằng Outlook có thể tự động chọn các chữ ký khác nhau cho những người nhận khác nhau trong email. Vì vậy, bài viết này sẽ hướng dẫn cách hiện thực hóa nó thông qua VBA.
Theo mặc định, Outlook chỉ cho phép bạn tự động chèn chữ ký khác nhau vào email mới, trả lời và chuyển tiếp. Tuy nhiên, nhiều người thậm chí còn hy vọng rằng Outlook có thể tự động chọn các chữ ký khác nhau cho những người nhận khác nhau. Rất tiếc, Outlook không cung cấp tính năng trực tiếp như vậy. Vì vậy, bạn phải tìm kiếm những cách khác, chẳng hạn như bất kỳ bổ trợ bên thứ ba hoặc mã VBA nào. Bây giờ, trong phần tiếp theo, chúng tôi sẽ tiết lộ cho bạn một đoạn mã VBA, mã này có thể giúp bạn nhận ra nó một cách dễ dàng.
Tự động chọn các chữ ký khác nhau cho những người nhận khác nhau
- Trước tiên, bạn cần mở chương trình Outlook.
- Sau đó, bạn nên tắt tính năng tự động chèn chữ ký.
- Đầu tiên, vào menu “File” và chọn “Options”.
- Trong cửa sổ “Tùy chọn Outlook”, hãy chuyển sang tab “Thư”.
- Sau đó tìm và nhấp vào nút “Chữ ký”.
- Tiếp theo trong hộp thoại bật lên, hãy đặt “(none)” trong cả “Tin nhắn mới” và “Trả lời/Chuyển tiếp”.
- Sau đó, nhấp vào một loạt “OK” để lưu các thay đổi.
- Sau đó, bạn có thể quay lại cửa sổ chính của Outlook và nhấn phím “Alt + F11”.
- Tiếp theo, trong cửa sổ “Microsoft Visual Basic for Applications”, hãy tìm và mở dự án “ThisOutlookSession”.
- Sau đó, sao chép và dán mã VBA sau vào dự án này.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMail As Outlook.MailItem
Dim objRecipients As Outlook.Recipients
Dim objRecipient As Outlook.recipient
Dim strRecipientAddress As String
Dim strSignatureFile As String
Dim objFileSystem As Object
Dim objTextStream As Object
Dim strSignature As String
If TypeOf Item Is MailItem Then
Set objMail = Item
Set objRecipients = objMail.Recipients
End If
'Select different signature files based on recipients
'You can change the conditions as per you actual needs
If objRecipients.Count = 1 Then
Set objRecipient = objRecipients.Item(1)
strRecipientAddress = objRecipient.Address
If strRecipientAddress = "mandy@datanumen.com" Then
strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm"
ElseIf strRecipientAddress = "anne@datanumen.com" Or strRecipientAddress = "tony@datanumen.com" Then
strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Johnny.htm"
ElseIf strRecipientAddress = "abby@datanumen.com" Then
strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\New John Smith.htm"
End If
Else
strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\John Smith.htm"
End If
'Read the specific signature file
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile)
strSignature = objTextStream.ReadAll
'Insert the signature to this email
objMail.HTMLBody = objMail.HTMLBody & "<HTML><BODY><br>" & strSignature & "</br></HTML></BODY>"
End Sub
- Sau đó, bạn nên ký mã này.
- Sau đó, hãy thay đổi cài đặt macro Outlook của bạn để cho phép các macro đã ký.
- Từ giờ trở đi, mỗi khi bạn nhấp vào nút “Gửi” để gửi email, Outlook sẽ xác định người nhận và tự động chèn chữ ký tương ứng vào cuối nội dung email.
Tìm kiếm các macro độc hại ẩn trong email đến
Ngày nay virus đã trở nên rất trưởng thành và mạnh mẽ. Họ luôn ngụy tạo chúng thành những thứ vô thưởng vô phạt trong email. Vì vậy, bây giờ bạn có ý định sử dụng các macro trong Outlook, bạn nên nâng cao cảnh giác chống lại các macro độc hại. Nếu không, dữ liệu PST của bạn sẽ gặp rủi ro. Nếu PST bị hỏng, bạn sẽ cố gắng hết sức để phục hồi PST dữ liệu. Trong trường hợp này, nên áp dụng một công cụ hiệu quả, chẳng hạn 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 sửa lỗ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