Come inserire automaticamente la firma nelle richieste di riunione di Outlook?
In Outlook, puoi inserire automaticamente la firma nelle e-mail facilmente, ma, se desideri inserire automaticamente la firma negli inviti alle riunioni, non esiste un modo diretto per risolvere questa attività. In questo articolo, parlerò di alcuni metodi utili per inserire automaticamente la firma nelle convocazioni di riunione di Outlook.
Inserisci automaticamente la firma nelle convocazioni di riunione di Outlook con codice VBA
Inserisci automaticamente la firma nelle richieste di riunione di Outlook con il modulo personalizzato
In Outlook, puoi creare un modulo personalizzato per inserire automaticamente la firma nelle convocazioni di riunione, per favore fai come segue:
1. Si prega di accedere a Calendario finestra e fare clic su Casa > Nuovo incontro per aprire il nuovo riunione finestra.
2. Quindi fare clic su inserire > Firmae scegli una firma che desideri inserire, vedi screenshot:
3. Dopo aver inserito la firma, continua a fare clic Costruttori > Progetta questo modulo nel nuovo riunione finestra, vedi screenshot:
4. Nella nuova schermata, fare clic su Costruttori > Pubblica > Pubblica modulo come, vedi screenshot:
5. Nel saltò fuori Pubblica modulo come finestra di dialogo, digitare un nome nel file Dsiplay nome casella di testo e quindi fare clic su Pubblica pulsante, vedi screenshot:
6. Quindi, chiudi la finestra della riunione corrente senza salvarla.
7. D'ora in poi, quando si desidera creare una nuova riunione con firma, fare clic su Casa > Nuovi oggetti > Moduli personalizzati, quindi seleziona il modulo che hai appena creato. E la firma viene inserita automaticamente nel corpo della riunione, vedi screenshot:
Inserisci automaticamente la firma nelle convocazioni di riunione di Outlook con codice VBA
Il codice VBA sottostante può anche aiutarti a inserire automaticamente una firma nelle convocazioni di riunione, esegui i seguenti passaggi:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.
Codice VBA: inserisci automaticamente la firma nelle convocazioni di riunione:
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. Quindi salva e chiudi la finestra del codice, da allora, quando invii un invito a una riunione in uscita, la firma specifica verrà inserita automaticamente. Puoi andare al Articolo inviato cartella per controllare il risultato:
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.
