Wie füge ich automatisch eine Signatur in Outlook-Besprechungsanforderungen ein?
In Outlook können Sie die Signatur einfach automatisch in E-Mails einfügen. Wenn Sie die Signatur jedoch automatisch in Besprechungseinladungen einfügen möchten, gibt es keine direkte Möglichkeit, diese Aufgabe zu lösen. In diesem Artikel werde ich einige nützliche Methoden zum automatischen Einfügen von Signaturen in Outlook-Besprechungsanforderungen erläutern.
Fügen Sie automatisch eine Signatur in Outlook-Besprechungsanforderungen mit VBA-Code ein
Fügen Sie mit dem benutzerdefinierten Formular automatisch eine Signatur in Outlook-Besprechungsanforderungen ein
In Outlook können Sie ein benutzerdefiniertes Formular erstellen, um die Signatur für Besprechungsanforderungen automatisch einzufügen. Gehen Sie dazu wie folgt vor:
1. Bitte navigieren Sie zu Kalender Fenster, und klicken Sie auf Startseite > Neues Treffen das neue öffnen Treffen Fenster.
2. Dann klick Insert > Signatureund wählen Sie eine Signatur aus, die Sie einfügen möchten, siehe Screenshot:
3. Klicken Sie nach dem Einfügen der Signatur weiter Entwickler:in / Unternehmen > Entwerfen Sie dieses Formular im neuen Treffen Fenster, siehe Screenshot:
4. Klicken Sie im neuen Bildschirm auf Entwickler:in / Unternehmen > Veröffentlichen > Formular veröffentlichen als, siehe Screenshot:
5. In der herausgesprungen Formular veröffentlichen als Geben Sie im Dialogfeld einen Namen in das Feld ein Display Textfeld benennen und dann klicken Veröffentlichen Schaltfläche, siehe Screenshot:
6. Schließen Sie dann das aktuelle Besprechungsfenster, ohne es zu speichern.
7. Wenn Sie von nun an ein neues Meeting mit Signatur erstellen möchten, klicken Sie bitte auf Startseite > Neue Dinge > Benutzerdefinierte FormulareWählen Sie dann das Formular aus, das Sie gerade erstellt haben. Und die Signatur wird automatisch in den Besprechungskörper eingefügt, siehe Screenshot:
Fügen Sie automatisch eine Signatur in Outlook-Besprechungsanforderungen mit VBA-Code ein
Der folgende VBA-Code kann Ihnen auch dabei helfen, automatisch eine Signatur für Besprechungsanfragen einzufügen. Führen Sie die folgenden Schritte aus:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession von dem Projekt1 (VbaProject.OTM) Bereich, um das Modul zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.
VBA-Code: Fügen Sie automatisch eine Signatur in Besprechungsanforderungen ein:
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. Speichern und schließen Sie dann das Codefenster. Wenn Sie eine ausgehende Besprechungseinladung senden, wird die spezifische Signatur automatisch eingefügt. Du kannst zu dem ... gehen Gesendeter Gegenstand Ordner, um das Ergebnis zu überprüfen:
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.