Note: The other languages of the website are Google-translated. Back to English

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ý1Chữ 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.

doc sig forwar trả lời 1

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:

doc sig forwar trả lời 2

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:

doc sig forwar trả lời 3

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:

doc sig forwar trả lời 4


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ọnhữu ích. Cảm ơn !
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! 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
 
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL