Comment insérer automatiquement une signature dans les demandes de réunion Outlook ?

Dans Outlook, vous pouvez insérer automatiquement la signature dans les e-mails facilement, mais si vous souhaitez insérer la signature dans les invitations à une réunion automatiquement, il n’existe pas de méthode directe pour accomplir cette tâche. Dans cet article, je vais vous présenter quelques méthodes utiles pour insérer automatiquement une signature dans les demandes de réunion Outlook.

Insérer automatiquement une signature dans les demandes de réunion Outlook à l’aide d’un formulaire personnalisé

Insérer automatiquement une signature dans les demandes de réunion Outlook à l’aide d’un code VBA

---

Insérer automatiquement une signature dans les demandes de réunion Outlook à l’aide d’un formulaire personnalisé

Dans Outlook, créez un formulaire personnalisé pour insérer automatiquement votre signature dans les demandes de réunion. Voici la marche à suivre :

1. Accédez à la fenêtre Calendrier, puis cliquez sur Accueil > Réunion pour ouvrir la nouvelle fenêtre de Réunion.

2.Cliquez ensuite sur Insertion>Signature, puis choisissez la signature que vous souhaitez insérer (voir capture d’écran) :

3. Après avoir inséré la signature, cliquez sur Développeur > Concevoir ce formulaire dans la nouvelle fenêtre de Réunion (voir capture d’écran) :

4. Dans le nouvel écran, cliquez sur Développeur > Publier > Publier le formulaire sous (voir capture d’écran) :

5.Dans la boîte de dialogue Publier le formulaire sousqui s’ouvre, saisissez un nom dans la zone de texte Afficher, puis cliquez sur le bouton Publier(voir capture d’écran) :

6. Fermez ensuite la fenêtre de réunion actuelle sans l’enregistrer.

7. Désormais, lorsque vous souhaitez créer une réunion avec une signature, cliquez sur Accueil > Nouveaux éléments > Formulaires personnalisés, puis sélectionnez le formulaire que vous venez de créer. Votre signature sera automatiquement insérée dans le corps de la réunion (voir capture d’écran) :

---

Insérer automatiquement une signature dans les demandes de réunion Outlook à l’aide d’un code VBA

Le code VBA ci-dessous vous permet également d’insérer automatiquement une signature dans vos demandes de réunion. Voici la marche à suivre :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur ThisOutlookSession dans le volet Projet1 (VbaProject.OTM) pour ouvrir le module, puis copiez-collez le code suivant dans le module vide.

Code VBA : Insérer automatiquement une signature dans les demandes de réunion :

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

3. Fermez ensuite la fenêtre de code. Dès cet instant, chaque fois que vous envoyez une invitation à une réunion sortante, la signature spécifiée sera insérée automatiquement. Vous pouvez consulter le résultat dans le dossier Éléments envoyés :