Bỏ qua nội dung chính

Làm cách nào để thêm các chữ ký khác nhau vào nhiều tài khoản email khi tạo email mới trong Outlook?

Từ hướng dẫn: Chữ ký email trong Outlook, bạn nên biết cách tạo chữ ký trong Outlook. Tuy nhiên, sau khi tạo chữ ký mới, bạn sẽ phải thêm chữ ký đã tạo vào thư mới theo cách thủ công bằng cách chọn Chữ ký > Chữ ký đã tạo trong cửa sổ tin nhắn.

Tất nhiên, bạn có thể yêu cầu Outlook tự động thêm chữ ký khi bạn tạo thư mới bằng cách bấm vào Chữ ký > Chữ kývà chọn chữ ký cho một tài khoản email cụ thể như hình bên dưới.

Tuy nhiên, nếu bạn có nhiều tài khoản email và muốn thêm các chữ ký khác nhau cho nhiều tài khoản của mình theo đợt thì sao? Trong hướng dẫn này, tôi sẽ giới thiệu một phương pháp VBA để giúp bạn hoàn thành công việc này một cách dễ dàng.


Thêm các chữ ký khác nhau vào nhiều tài khoản email khi tạo email mới trong Outlook

1. Trong Outlook của bạn, nhấn nút Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Trong cửa sổ Microsoft Visual Basic for Applications, nhấp đúp chuột vào ĐâyOutlookSession trong ngăn Dự án và sao chép mã VBA bên dưới vào cửa sổ ThisOutlookSession (Mã). Xem ảnh chụp màn hình:

Mã VBA: Thêm các chữ ký khác nhau vào nhiều tài khoản email khi tạo email mới trong Outlook - ThisOutlookSession

Public WithEvents GInspectors As Inspectors
Public WithEvents GExplorer As Explorer

Private Sub Application_Startup()
  Set GInspectors = Application.Inspectors
  Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
‘Update by ExtendOffice
Dim xMail As MailItem
On Error Resume Next
EndTimer
If Item.Class = olMail Then
  Set xMail = Item
  Set GInspector = Nothing
  Set GInspector = xMail.GetInspector
  StartTimer
End If
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  On Error Resume Next
  EndTimer
  Set GInspector = Nothing
  Set GInspector = Inspector
  StartTimer
End Sub

3. Trong cửa sổ Microsoft Visual Basic for Applications, bấm Chèn > Mô-đun. Sau đó sao chép mã VBA sau vào cửa sổ Mô-đun.

Mã VBA: Thêm chữ ký khác nhau vào nhiều tài khoản email khi tạo email mới trong Outlook - Mô-đun

Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public GInspector As Inspector

Sub StartTimer()
  On Error Resume Next
  TimerID = SetTimer(0&, 0&, 1000&, AddressOf TimerProc)
End Sub

Sub EndTimer()
  On Error Resume Next
  KillTimer 0&, TimerID
End Sub

Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)
  On Error Resume Next
  Call SetSignatureToAccount
  EndTimer
End Sub

Sub SetSignatureToAccount()
‘Update by ExtendOffice
Dim xMail As MailItem
Dim xSignatureFile, xSignaturePath As String
Dim xSubject As String
Dim xDoc As Document
Dim xAccount As Account
Dim xIsNew As Boolean
Dim xInspector As Inspector
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
xSubject = GInspector.Caption
Set xDoc = GInspector.WordEditor
xIsNew = False
Set xMail = GInspector.CurrentItem
Select Case xMail.Parent.Parent
  Case "" 'Replace the email address in double quotes
    If VBA.InStr(xSubject, "RE: ") = 1 Then
      Exit Sub
    ElseIf VBA.InStr(xSubject, "FW: ") = 1 Then
      Exit Sub
    Else
      xSignatureFile = xSignaturePath & "Signature1.htm" 'Replace "Signature1" with your actual signature name
      xIsNew = True
    End If
  Case "" 'Replace the email address in double quotes
    If VBA.InStr(xSubject, "RE: ") Then
      Exit Sub
    ElseIf VBA.InStr(xSubject, "FW: ") Then
      Exit Sub
    Else
      xSignatureFile = xSignaturePath & "Signature2.htm" 'Replace "Signature2" with your actual signature name
      xIsNew = True
    End If
  'Add more Cases for more email accounts
End Select
If xIsNew = True Then
  With xDoc.Application.Selection
    .WholeStory
    .EndKey
    .InsertParagraphAfter
    .MoveDown Unit:=wdLine, Count:=1
    .InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
  End With
Else
  With xDoc.Application.Selection
    .MoveRight Unit:=wdCharacter, Count:=1
    .HomeKey Emptyparam, Emptyparam
    .InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
  End With
End If
Set xDoc = Nothing
Set GInspector = Nothing
Set xMail = Nothing
End Sub
Lưu ý:
  • 1) Bạn nên thay thế ở hàng thứ 39 và 48 đến địa chỉ email thực của bạn.
  • 2) Bạn nên thay thế Chữ ký1Chữ ký2 ở hàng thứ 45 và 54 thành tên chữ ký thực của bạn.
  • 3) Với mã VBA ở trên, chúng ta có thể thêm chữ ký cho hai tài khoản email. Nếu bạn có nhiều tài khoản hơn, hãy thay thế hàng thứ 57 của mã bằng nhiều Trường hợp hơn:
  • Trường hợp ""
    Nếu VBA.InStr(xSubject, "RE:") = 1 Thì
    Thoát Sub
    ElseIf VBA.InStr(xSubject, "FW:") = 1 thì
    Thoát Sub
    Khác
    xSignatureFile = xSignaturePath & "Signature.htm"
    xIsNew = Đúng
    Cuối Nếu

4. Trong cửa sổ Microsoft Visual Basic for Applications, bấm CÔNG CỤ > dự án, chọn hộp bên cạnh Thư viện đối tượng Microsoft Word 16.0, Và nhấp vào OK.

5. Khởi động lại Outlook và lưu mã VBA.

6. Bây giờ, khi bạn tạo thư mới bằng tài khoản email mà bạn đã thiết lập chữ ký, chữ ký tương ứng sẽ được thêm tự động.

Lưu ý: Nếu bạn thấy có hai chữ ký được thêm vào khi tạo thư mới bằng tài khoản email, vui lòng nhấp vào Chữ ký > Chữ ký trong cửa sổ tin nhắn. Trong phần Chọn chữ ký mặc định, hãy chọn tài khoản email có hai chữ ký, rồi chọn (None) từ danh sách thả xuống Tin nhắn mới.


Các bài liên quan

Làm thế nào để Nhập hoặc Chèn Chữ ký HTML trong Outlook?

Ví dụ: bạn đã tải xuống một số chữ ký HTML từ các trang web và muốn nhập chúng vào Outlook của mình. Bất kỳ cách dễ dàng? Bài viết này sẽ hướng dẫn bạn nhập hoặc chèn chữ ký HTML vào Outlook từng bước.

Làm cách nào để chèn màu nền vào chữ ký Outlook?

Thật dễ dàng để thêm hoặc xóa màu nền trong email trong Outlook. Tuy nhiên, làm cách nào bạn có thể chèn hoặc xóa màu nền trong chữ ký Outlook? Cách giải quyết dưới đây sẽ giúp bạn giải quyết nó:

Làm cách nào để thêm các chữ ký khác nhau vào nhiều tài khoản email khi trả lời hoặc chuyển tiếp trong Outlook?

Nếu bạn muốn Outlook tự động thêm chữ ký khi bạn trả lời hoặc chuyển tiếp thư, bạn cần định cấu hình chữ ký mặc định bằng cách bấm vào Chữ ký > Chữ ký, rồi chọn chữ ký cho một tài khoản email cụ thể như minh họa bên dưới. Tuy nhiên, nếu bạn có nhiều tài khoản email và muốn thêm các chữ ký khác nhau cho nhiều tài khoản của mình theo đợt thì sao? Trong hướng dẫn này, tôi sẽ giới thiệu một phương pháp VBA để giúp bạn hoàn thành công việc này một cách dễ dàng.

Làm cách nào để đặt các chữ ký khác nhau cho 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?


Công cụ năng suất văn phòng tốt nhất

Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP)  /  Lên lịch gửi email  /  Tự động CC/BCC theo quy định khi gửi Email  /  Tự động chuyển tiếp (Quy tắc nâng cao)   /  Tự động thêm lời chào   /  Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !

📨 Quản lý email: Dễ dàng thu hồi email  /  Chặn email lừa đảo theo chủ đề và những người khác  /  Xóa các email trùng lặp  /  Tìm Kiếm Nâng Cao  /  Hợp nhất các thư mục hữu ích. Cảm ơn !

📁 Tệp đính kèm chuyên nghiệpLưu hàng loạt  /  Tách hàng loạt  /  Nén hàng loạt  /  Tự động lưu   /  Tự động tách  /  Tự động nén hữu ích. Cảm ơn !

🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn   /  Tăng năng suất Outlook của bạn với chế độ xem theo thẻ  /  Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !

👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến  /   Email chống lừa đảo  /  🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !

👩🏼‍🤝‍👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn  /  Chia nhóm liên hệ thành các nhóm riêng lẻ  /  Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !

Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,
I tried to initiate this settings in my outlook for changing the signature automatically, but it doesn't function.

the signature stays the same while using different email accounts.

any idea why ?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations