Làm cách nào để đặt các chữ ký khác nhau cho thư trả lời và chuyển tiếp trong Outlook?

Thông thường, bạn có thể đặt các chữ ký khác nhau cho các tài khoản khác nhau trong Outlook của mình, nhưng, bạn đã bao giờ cố gắng áp dụng các chữ ký khác nhau cho thư trả lời và chuyển tiếp. Nó có nghĩa là, khi bạn trả lời email, chữ ký1 sẽ được chèn vào, khi bạn chuyển tiếp email, chữ ký 2 sẽ được áp dụng. Làm cách nào bạn có thể giải quyết công việc này trong Outlook?

Đặt các chữ ký khác nhau cho các câu trả lời và chuyển tiếp bằng mã VBA

---

Đặt các chữ ký khác nhau cho các câu trả lời và chuyển tiếp bằng mã VBA

Mã VBA sau đây có thể giúp bạn đặt các chữ ký khác nhau cho thư trả lời và chuyển tiếp, vui lòng thực hiện lần lượt từng bước dưới đây:

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

2. Sau đó nhấn vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở, xem ảnh chụp màn hình:

Mã VBA: Đặt các chữ ký khác nhau cho các câu trả lời và chuyển tiếp:

Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMail As Outlook.MailItem
Public GFSO As Scripting.FileSystemObject
Public GTextStream As Scripting.TextStream
Public GText As String
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
    Set GFSO = New Scripting.FileSystemObject
End Sub
Private Sub GExplorer_SelectionChange()
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GExplorer.Selection.Item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set GMail = xItem
End Sub
Private Sub GMail_Reply(ByVal Response As Object, Cancel As Boolean)
    InsertSignature Response, "Signature1.htm"   'change this signature name for replies
End Sub
Private Sub GMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    InsertSignature Forward, " Signature2.htm"    'change this signature name for forwards
End Sub
Private Sub InsertSignature(Item As Object, SignName As String)
    Dim xSignatureFile As String
    Dim xMailItem As Outlook.MailItem
    xSignatureFile = CreateObject("WScript.Shell").SpecialFolders(5)
    xSignatureFile = xSignatureFile & "\Microsoft\Signatures\" & SignName
    Set GTextStream = GFSO.OpenTextFile(xSignatureFile)
    GText = ""
    GText = GTextStream.ReadAll
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    With xMailItem
        .Display
        .HTMLBody = .HTMLBody & "<br><br>" & GText
    End With
End Sub

Chú thích: Trong đoạn mã trên, Chữ ký1 và Chữ ký2 là hai tên chữ ký mà bạn muốn sử dụng để trả lời và chuyển tiếp. Vui lòng thay đổi tên theo nhu cầu của bạn.

3. Vẫn trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp CÔNG CỤ > dự án đi đến Tài liệu tham khảo-Dự án1 hộp thoại và kiểm tra Thời gian chạy tập lệnh của Microsoft tùy chọn từ Tài liệu tham khảo có sẵn hộp danh sách, xem ảnh chụp màn hình:

4. Và sau đó nhấp vào OK để đóng hộp thoại, kể từ bây giờ, khi bạn trả lời email, Signature1 sẽ được chèn ngay lập tức, hãy xem ảnh chụp màn hình:

Và khi bạn chuyển tiếp một tin nhắn, Signature2 sẽ được chèn như ảnh chụp màn hình sau: