Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Dans Outlook, vous pouvez insérer automatiquement la signature dans les e-mails, mais si vous souhaitez insérer automatiquement la signature dans les invitations aux réunions, il n'existe pas de moyen direct de résoudre cette tâche. Cet article, je vais parler de quelques méthodes utiles pour insérer automatiquement la signature aux demandes de réunion Outlook.

Insérer automatiquement la signature dans les demandes de réunion Outlook avec le formulaire personnalisé

Insérer automatiquement la signature dans les demandes de réunion Outlook avec le code VBA


Insérer automatiquement la signature dans les demandes de réunion Outlook avec le formulaire personnalisé

Dans Outlook, vous pouvez créer un formulaire personnalisé pour insérer automatiquement la signature aux demandes de réunion, procédez comme suit:

1. Veuillez naviguer vers le Calendrier fenêtre, et cliquez Accueil > Nouvelle réunion ouvrir la nouvelle réunion fenêtre.

2. Puis clique insérer > Signatureet choisissez une signature que vous souhaitez insérer, voir capture d'écran:

doc auto insert sig à la réunion 1

3. Après avoir inséré la signature, continuez à cliquer Développeur > Concevoir ce formulaire dans le nouveau réunion fenêtre, voir capture d'écran:

doc auto insert sig à la réunion 2

4. Dans le nouvel écran, cliquez sur Développeur > Étiquettes > Publier le formulaire en tant que, voir capture d'écran:

doc auto insert sig à la réunion 3

5. Dans le sauté Publier le formulaire en tant que boîte de dialogue, tapez un nom dans le Affichage nom de la zone de texte, puis cliquez sur Étiquettes bouton, voir capture d'écran:

doc auto insert sig à la réunion 4

6. Ensuite, fermez la fenêtre de la réunion en cours sans l'enregistrer.

7. A partir de maintenant, lorsque vous souhaitez créer une nouvelle réunion avec signature, cliquez sur Accueil > Nouveautés > Formulaires personnalisés, puis sélectionnez le formulaire que vous venez de créer. Et la signature est automatiquement insérée dans le corps de la réunion, voir capture d'écran:

doc auto insert sig à la réunion 5


Insérer automatiquement la signature dans les demandes de réunion Outlook avec le code VBA

Le code VBA ci-dessous peut également vous aider à insérer automatiquement une signature pour les demandes de réunion, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez ThisOutlookSession du Project1 (VbaProject.OTM) Cliquez sur le volet pour ouvrir le module, puis copiez et collez le code suivant dans le module vide.

Code VBA: insérer automatiquement la 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

doc auto insert sig à la réunion 6

3. Et puis enregistrez et fermez la fenêtre de code, depuis lors, lorsque vous envoyez une invitation à une réunion sortante, la signature spécifique sera insérée automatiquement. Vous pouvez aller à la Élément envoyé dossier pour vérifier le résultat:

doc auto insert sig à la réunion 7


Kutools for Outlook - Apporte les fonctionnalités avancées de 100 à Outlook et simplifie grandement le travail!

  • CC automatique / BCC par les règles lors de l'envoi d'email; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse mail est dans la liste BCC; Rappeler lorsque des pièces jointes sont manquantes, et plus encore, rappelle les fonctionnalités ...
  • Répondre (tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à beaucoup d'emails en secondes; Ajout automatique de message d'accueil quand répondez; Ajouter la date au sujet ...
  • Outils de pièce jointe: Gérer toutes les pièces jointes dans tous les courriers, Auto Detach, Compresser tout, Renommer tout, Sauvegarder tout ... Rapport rapide, Compter les mails sélectionnés...
  • Puissants courriers indésirables par la coutume; Supprimer les e-mails et les contacts en double... Vous permet de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools perspectives onglet kutools 1180x121
tir kutools perspectives kutools plus onglet 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Lyndsey Welch · 9 months 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