Come inserire automaticamente la firma nelle richieste di riunione di Outlook?

In Outlook è possibile inserire automaticamente la firma nelle email in modo semplice, ma se si desidera aggiungere la firma automaticamente agli inviti per riunioni, non esiste un metodo diretto per eseguire questa operazione. In questo articolo illustrerò alcuni metodi utili per inserire automaticamente la firma nelle richieste di riunione di Outlook.

Inserimento automatico della firma nelle richieste di riunione di Outlook con un modulo personalizzato

Inserimento automatico della firma nelle richieste di riunione di Outlook con codice VBA

---

Inserimento automatico della firma nelle richieste di riunione di Outlook con un modulo personalizzato

In Outlook puoi creare un modulo personalizzato per inserire automaticamente la firma nelle richieste di riunione. Ecco come fare:

1. Passa alla finestra del Calendario, quindi fai clic su Home > Incontro per aprire la nuova finestra di Riunione.

2.Fare quindi clic su Inserisci>Firmae scegliere la firma da inserire; vedere lo screenshot:

3. Dopo aver inserito la firma, fai clic su Sviluppo > Progetta questo modulo nella nuova finestra di Riunione; vedi lo screenshot:

4. Nella nuova schermata, fai clic su Sviluppo > Pubblica > Pubblica modulo come; vedi lo screenshot:

5.Nella finestra di dialogo visualizzata Pubblica modulo come, digitare un nome nella casella di testo Nome visualizzato, quindi fare clic sul pulsante Pubblica; vedere lo screenshot:

6. Chiudere quindi la finestra della riunione corrente senza salvarla.

7. D’ora in poi, per creare un Incontro con la firma, fai clic su Home > Nuovi elementi > Moduli personalizzati, quindi seleziona il modulo appena creato. La firma verrà inserita automaticamente nel corpo dell’incontro; vedi lo screenshot:

---

Inserimento automatico della firma nelle richieste di riunione di Outlook con codice VBA

Anche il seguente codice VBA permette di inserire automaticamente una firma nelle richieste di riunione. Segui questi passaggi:

1. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.

2. Nella finestra di Microsoft Visual Basic, Applications, fare doppio clic su ThisOutlookSession nel riquadro Progetto1 (VbaProject.OTM) per aprire il modulo, quindi copiare e incollare il codice seguente nel modulo vuoto.

Codice VBA: Inserimento automatico della firma nelle richieste 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 &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. Quindi, salva e chiudi la finestra del codice. Da quel momento, ogni volta che invii un invito a una riunione in uscita, la firma specificata verrà inserita automaticamente. Puoi verificare il risultato nella cartella Posta inviata: