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 automatiquement la signature dans les invitations à des réunions, il n'y a pas de moyen direct pour vous de résoudre cette tâche. Cet article, je vais parler de certaines 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 avec le code VBA
Insérer automatiquement une signature dans les demandes de réunion Outlook avec un formulaire personnalisé
Dans Outlook, vous pouvez créer un formulaire personnalisé pour insérer automatiquement la signature dans les demandes de réunion, procédez comme suit:
1. Veuillez accéder au Calendrier fenêtre, et cliquez sur Accueil > Nouvelle réunion pour ouvrir le nouveau réunion fenêtre.
2. Puis clique insérer > Signature, et choisissez une signature que vous souhaitez insérer, voir capture d'écran:
3. Après avoir inséré la signature, continuez en cliquant Développeur > Concevoir ce formulaire dans le nouveau réunion fenêtre, voir capture d'écran:
4. Dans le nouvel écran, cliquez sur Développeur > Publier > Publier le formulaire en tant que, voir capture d'écran:
5. Dans le sauté Publier le formulaire en tant que boîte de dialogue, saisissez un nom dans le Présentoir zone de texte nom, puis cliquez sur Publier bouton, voir capture d'écran:
6. Et puis, fermez la fenêtre de réunion en cours sans l'enregistrer.
7. Désormais, 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 insérée automatiquement dans le corps de la réunion, voir capture d'écran:
AI Mail Assistant dans Outlook : réponses plus intelligentes, communication plus claire (magie en un clic !) un devis GRATUIT
Rationalisez vos tâches Outlook quotidiennes avec l'assistant AI Mail de Kutools for Outlook. Cet outil puissant apprend de vos e-mails passés pour offrir des réponses intelligentes et précises, optimiser le contenu de vos e-mails et vous aider à rédiger et affiner vos messages sans effort.
Cette fonctionnalité prend en charge :
- Réponses intelligentes : obtenez des réponses élaborées à partir de vos conversations passées : personnalisées, précises et prêtes à l'emploi.
- Contenu amélioré : affinez automatiquement le texte de votre e-mail pour plus de clarté et d'impact.
- Composition sans effort : fournissez simplement des mots-clés et laissez l'IA gérer le reste, avec plusieurs styles d'écriture.
- Extensions intelligentes : développez vos idées avec des suggestions contextuelles.
- Récapitulatif : obtenez instantanément des aperçus concis des longs e-mails.
- Portée mondiale : traduisez facilement vos e-mails dans n’importe quelle langue.
Cette fonctionnalité prend en charge :
- Réponses intelligentes par e-mail
- Contenu optimisé
- Brouillons basés sur des mots clés
- Extension de contenu intelligente
- Résumé par e-mail
- Traduction multilingue
Mieux encore, cette fonctionnalité est complètement faim pour toujours! N'attendez pas—téléchargez AI Mail Assistant maintenant et profitez-en!
Insérer automatiquement une 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 dans les demandes de réunion, veuillez suivre les étapes suivantes:
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 Cette session Outlook du Projet1 (VbaProject.OTM) 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 }\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. 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 au Article envoyé dossier pour vérifier le résultat:
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
