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
- 1) Bạn nên thay thế và ở 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ý1 và Chữ 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:
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ó:
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
📧 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ệp: Lư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.