Làm cách nào để tự động chèn chữ ký vào các yêu cầu họp trong Outlook?
Trong Outlook, bạn có thể tự động chèn chữ ký vào email một cách dễ dàng, nhưng nếu bạn muốn tự động chèn chữ ký vào lời mời họp, không có cách nào trực tiếp để bạn giải quyết công việc này. Bài viết này, tôi sẽ nói về một số phương pháp hữu ích để tự động chèn chữ ký vào các yêu cầu họp trong Outlook.
Tự động chèn chữ ký vào các yêu cầu họp trong Outlook với Biểu mẫu tùy chỉnh
Tự động chèn chữ ký vào các yêu cầu họp Outlook bằng mã VBA
Tự động chèn chữ ký vào các yêu cầu họp trong Outlook với Biểu mẫu tùy chỉnh
Trong Outlook, bạn có thể tạo một biểu mẫu tùy chỉnh để tự động chèn chữ ký vào yêu cầu họp, vui lòng thực hiện như sau:
1. Vui lòng điều hướng đến Xem Lịch cửa sổ và nhấp chuột Trang Chủ > Cuộc họp mới mở cái mới Gặp gỡ cửa sổ.
2. Sau đó nhấn vào Chèn > Chữ kývà chọn một chữ ký bạn muốn chèn, xem ảnh chụp màn hình:
3. Sau khi chèn chữ ký, hãy nhấp vào Nhà phát triển > Thiết kế biểu mẫu này trong cái mới Gặp gỡ cửa sổ, xem ảnh chụp màn hình:
4. Trong màn hình mới, nhấp vào Nhà phát triển > Xuất bản > Xuất bản Biểu mẫu dưới dạng, xem ảnh chụp màn hình:
5. Trong cửa sổ bật ra Xuất bản Biểu mẫu dưới dạng hộp thoại, nhập tên vào Giao diện hộp văn bản tên, rồi bấm Xuất bản nút, xem ảnh chụp màn hình:
6. Và sau đó, đóng cửa sổ cuộc họp hiện tại mà không lưu nó.
7. Từ bây giờ, khi bạn muốn tạo một cuộc họp mới có chữ ký, vui lòng nhấp vào Trang Chủ > Mục mới > Biểu mẫu tùy chỉnh, và sau đó chọn biểu mẫu bạn vừa tạo. Và chữ ký được tự động chèn vào nội dung cuộc họp, xem ảnh chụp màn hình:
Tự động chèn chữ ký vào các yêu cầu họp Outlook bằng mã VBA
Mã VBA dưới đây cũng có thể giúp bạn tự động chèn chữ ký vào các yêu cầu họp, vui lòng thực hiện theo các bước sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp ĐâyOutlookSession từ Project1 (VbaProject.OTM) để mở mô-đun, sau đó sao chép và dán mã sau vào mô-đun trống.
Mã VBA: Tự động chèn chữ ký vào các yêu cầu họp:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMeetingItem As Outlook.MeetingItem
Dim xFSO As Scripting.FileSystemObject
Dim xSignStream, xWriteStream, xReadStream As Scripting.TextStream
Dim xSignFld, xSignSubFld As Scripting.Folder
Dim xSignFile As Scripting.File
Dim xSignText, xSignPath As String
Dim xMailRTFText, xMeetingRTFText, xAllRTFText As String
Dim xByte() As Byte
Dim xPos As Integer
Dim xFilePath, xFldPath, xFldName As String
Dim xMailItem As MailItem
On Error Resume Next
If Item.Class = olMeetingRequest Then
Set xMeetingItem = Item
Set xFSO = CreateObject("scripting.FileSystemObject")
xSignPath = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\"
Set xSignFld = xFSO.GetFolder(xSignPath)
If xSignFld.SubFolders.Count <> 0 Then
For Each xSignSubFld In xSignFld.SubFolders
xFldName = xSignSubFld.Name
xFldPath = xSignSubFld.Path
Next
End If
For Each xSignFile In xSignFld.Files
If xFSO.GetExtensionName(xSignFile.Path) = "htm" Then
Set xSignStream = xFSO.OpenTextFile(xSignFile.Path)
xSignText = xSignStream.ReadAll
If InStr(xSignText, xFldName) <> 0 Then
xSignText = Replace(xSignText, xFldName, xFldPath)
End If
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
xMailItem.HTMLBody = xSignText
xMailRTFText = StrConv(xMailItem.RTFBody, vbUnicode)
xMeetingRTFText = StrConv(xMeetingItem.RTFBody, vbUnicode)
xPos = InStrRev(xMeetingRTFText, "{\*\htmltag104 </div>}\htmlrtf }\htmlrtf0")
xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
xFilePath = xFilePath & "\MeetingText.txt"
If xFSO.FileExists(xFilePath) Then
xFSO.DeleteFile xFilePath
End If
Set xWriteStream = xFSO.OpenTextFile(xFilePath, 8, True)
xMeetingRTFText = Mid(xMeetingRTFText, 1, xPos - 1) & "{\*\htmltag72 </p>}{\*\htmltag0 \par }{\*\htmltag0 \par }" _
& "{\*\htmltag64 <p class=MsoNormal>}\htmlrtf {\htmlrtf0 {\*\htmltag148 <span lang=EN-US style='color:#00B050'>}\htmlrtf {\htmlrtf0" _
& "{\*\htmltag244 <o:p>}{\*\htmltag84 }\htmlrtf \'a0\htmlrtf0{\*\htmltag252 </o:p>}" _
& "{\*\htmltag156 </span>}\htmlrtf }\htmlrtf0 \htmlrtf\par}\htmlrtf0" _
& vbCrLf & xMailRTFText & vbCrLf & Mid(xMeetingRTFText, xPos, Len(xMeetingRTFText) - xPos + 1)
xWriteStream.WriteLine xMeetingRTFText
Set xReadStream = xFSO.OpenTextFile(xFilePath)
xAllRTFText = xReadStream.ReadAll
PackBytes xByte, xAllRTFText
xMeetingItem.RTFBody = xByte
xMeetingItem.Save
xMailItem.Close olDiscard
End If
Next
End If
End Sub
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
ByteArray() = StrConv(PostData, vbFromUnicode)
End Sub
3. Và sau đó lưu và đóng cửa sổ mã, kể từ đó, khi bạn gửi lời mời họp đi, chữ ký cụ thể sẽ được chèn tự động. Bạn có thể đi tới Gửi đồ thư mục để kiểm tra kết quả:
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.
