Como inserir automaticamente uma assinatura em convites de reunião no Outlook?

No Outlook, inserir automaticamente a assinatura em e‑mails é fácil, mas, se pretender adicioná-la automaticamente a convites de reunião, não existe um método direto para o fazer. Neste artigo, abordo alguns métodos úteis para inserir automaticamente uma assinatura em convites de reunião do Outlook.

Inserir automaticamente uma assinatura em convites de reunião do Outlook com um formulário personalizado

Inserir automaticamente uma assinatura em convites de reunião do Outlook com código VBA

---

Inserir automaticamente uma assinatura em convites de reunião do Outlook com um formulário personalizado

No Outlook, pode criar um formulário personalizado para inserir automaticamente a assinatura em convites de reunião. Siga estes passos:

1. Aceda à janela Calendário e clique em Base > Reunião para abrir a nova janela de Reunião.

2.Em seguida, clique em Inserir>Assinaturae escolha a assinatura que pretende inserir, conforme mostra a imagem:

3. Após inserir a assinatura, clique em Programador > Desenhar Este Formulário na nova janela de Reunião, conforme mostra a imagem:

4. No novo ecrã, clique em Programador > Publicar > Publicar Formulário Como, conforme mostra a imagem:

5.Na caixa de diálogo Publicar Formulário Comoque surge, introduza um nome na caixa de texto Nome a apresentar, e depois clique no botão Publicar, conforme mostra a imagem:

6. Em seguida, feche a janela atual da reunião sem guardá-la.

7. A partir de agora, sempre que quiser criar uma reunião com assinatura, clique em Base > Novos Itens > Formulários Personalizados e selecione o formulário que acabou de criar. A assinatura será então inserida automaticamente no corpo da reunião, conforme mostra a imagem:

---

Inserir automaticamente uma assinatura em convites de reunião do Outlook com código VBA

O código VBA abaixo permite-lhe também inserir automaticamente uma assinatura em convites de reunião. Siga os passos seguintes:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Na janela do Microsoft Visual Basic para Aplicações, faça duplo clique em ThisOutlookSession no painel Project1 (VbaProject.OTM) para abrir o módulo e, em seguida, copie e cole o código seguinte no módulo vazio.

Código VBA: Inserir automaticamente uma assinatura em convites de reunião:

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. Em seguida, guarde e feche a janela do código. A partir desse momento, sempre que enviar um convite de reunião, a assinatura específica será inserida automaticamente. Pode verificar o resultado na pasta Itens Enviados: