Hoe automatisch een handtekening invoegen in Outlook-vergaderverzoeken?
In Outlook kunt u de handtekening eenvoudig automatisch in e-mails invoegen, maar als u de handtekening automatisch wilt invoegen in uitnodigingen voor vergaderingen, is er geen directe manier om deze taak op te lossen. In dit artikel zal ik het hebben over enkele handige methoden om automatisch een handtekening in te voegen in Outlook-vergaderverzoeken.
Voeg automatisch een handtekening toe aan Outlook-vergaderverzoeken met Custom Form
Voeg automatisch een handtekening toe aan Outlook-vergaderverzoeken met VBA-code
Voeg automatisch een handtekening toe aan Outlook-vergaderverzoeken met Custom Form
In Outlook kunt u een aangepast formulier maken om de handtekening automatisch in vergaderverzoeken in te voegen, doe dit als volgt:
1. Ga naar het Agenda venster en klik Home > Nieuwe ontmoeting om het nieuwe te openen Meeting venster.
2. Dan klikken Invoegen > Signatuur, en kies een handtekening die u wilt invoegen, zie screenshot:
3. Na het invoegen van de handtekening, blijft u klikken Ontwikkelaar > Ontwerp dit formulier in het nieuwe Meeting venster, zie screenshot:
4. Klik in het nieuwe scherm op Ontwikkelaar > Publiceer > Formulier publiceren als, zie screenshot:
5. In de pop-out Formulier publiceren als dialoogvenster, typ een naam in het Display naam tekstvak en klik vervolgens op Publiceer knop, zie screenshot:
6. En sluit vervolgens het huidige vergadervenster zonder het op te slaan.
7. Als u vanaf nu een nieuwe vergadering met handtekening wilt maken, klikt u op Home > Nieuwe producten > Aangepaste formulierenen selecteer vervolgens het formulier dat u zojuist hebt gemaakt. En de handtekening wordt automatisch in de vergadering opgenomen, zie screenshot:
Voeg automatisch een handtekening toe aan Outlook-vergaderverzoeken met VBA-code
De onderstaande VBA-code kan u ook helpen bij het automatisch invoegen van een handtekening in vergaderverzoeken, voer de volgende stappen uit:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de module te openen en kopieer en plak de volgende code in de lege module.
VBA-code: voeg automatisch een handtekening toe aan vergaderverzoeken:
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. En sla vervolgens het codevenster op en sluit het, aangezien de specifieke handtekening automatisch wordt ingevoegd wanneer u een uitgaande uitnodiging voor een vergadering verzendt. U kunt naar het Verstuurd item map om het resultaat te controleren:
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.