Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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 Kalender venster en klik Voorpagina > Nieuwe ontmoeting om het nieuwe te openen Meeting venster.

2. Dan klikken Invoegen > Handtekening, en kies een handtekening die u wilt invoegen, zie screenshot:

doc auto sig invoegen naar vergadering 1

3. Na het invoegen van de handtekening, blijft u klikken Ontwikkelaar > Ontwerp dit formulier in het nieuwe Meeting venster, zie screenshot:

doc auto sig invoegen naar vergadering 2

4. Klik in het nieuwe scherm op Ontwikkelaar > publiceren > Formulier publiceren als, zie screenshot:

doc auto sig invoegen naar vergadering 3

5. In de pop-out Formulier publiceren als dialoogvenster, typ een naam in het Display naam tekstvak en klik vervolgens op publiceren knop, zie screenshot:

doc auto sig invoegen naar vergadering 4

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 Voorpagina > Nieuwe producten > Aangepaste formulierenen selecteer vervolgens het formulier dat u zojuist hebt gemaakt. En de handtekening wordt automatisch in de vergadering opgenomen, zie screenshot:

doc auto sig invoegen naar vergadering 5


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 de 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 &nbsp;}\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

doc auto sig invoegen naar vergadering 6

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:

doc auto sig invoegen naar vergadering 7


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Laszlo · 1 years ago
    Dear Supporter,

    Regarding to VBA "hack", in Outlook365 does not insert the default signature at the end of a neither a new meeting nor appointment. What should I change in the code to get it work?

    Thank you in advance.

    Best regards: Laszlo
  • To post as a guest, your comment is unpublished.
    lyndseywelch1@gmail.com · 2 years ago
    What lines do I need to change to get this to work on my own profile? I've added the string to my signature location.
    Automatically Insert Signature To Outlook Meeting Requests With VBA Code