Note: The other languages of the website are Google-translated. Back to English

Como inserir automaticamente uma assinatura em solicitações de reunião do Outlook?

No Outlook, você pode inserir automaticamente a assinatura em e-mails com facilidade, mas, se quiser inserir a assinatura em convites de reunião automaticamente, não há uma maneira direta de resolver essa tarefa. Neste artigo, falarei sobre alguns métodos úteis para inserir automaticamente uma assinatura em solicitações de reunião do Outlook.

Inserir assinatura automaticamente para solicitações de reunião do Outlook com formulário personalizado

Inserir assinatura automaticamente para solicitações de reunião do Outlook com código VBA


Inserir assinatura automaticamente para solicitações de reunião do Outlook com formulário personalizado

No Outlook, você pode criar um formulário personalizado para inserir a assinatura em solicitações de reunião automaticamente, faça o seguinte:

1. Navegue até o Calendário janela e clique Início > Novo Encontro para abrir o novo Reunião janela.

2. Então clique inserção > Assinaturae escolha uma assinatura que deseja inserir, consulte a captura de tela:

doc inserir assinatura automática para reunião 1

3. Após inserir a assinatura, continue clicando Desenvolvedor > Projete este formulário no novo Reunião janela, veja a imagem:

doc inserir assinatura automática para reunião 2

4. Na nova tela, clique em Desenvolvedor > Publicar > Publicar formulário como, veja a captura de tela:

doc inserir assinatura automática para reunião 3

5. No estalou para fora Publicar formulário como caixa de diálogo, digite um nome no Ecrã caixa de texto do nome e clique em Publicar botão, veja a captura de tela:

doc inserir assinatura automática para reunião 4

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

7. A partir de agora, quando desejar criar uma nova reunião com assinatura, clique em Início > Novidades > Formulários personalizadose selecione o formulário que acabou de criar. E a assinatura é inserida no corpo da reunião automaticamente, veja a captura de tela:

doc inserir assinatura automática para reunião 5


Inserir assinatura automaticamente para solicitações de reunião do Outlook com código VBA

O código VBA abaixo também pode ajudá-lo a inserir automaticamente uma assinatura para solicitações de reunião, siga estas etapas:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook de Projeto1 (VbaProject.OTM) painel para abrir o módulo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: inserir automaticamente a assinatura nas solicitações 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

doc inserir assinatura automática para reunião 6

3. Em seguida, salve e feche a janela de código, pois, ao enviar um convite de reunião de saída, a assinatura específica será inserida automaticamente. Você pode ir para o Item enviado pasta para verificar o resultado:

doc inserir assinatura automática para reunião 7


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (2)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Quais linhas eu preciso alterar para que isso funcione no meu próprio perfil? Eu adicionei a string ao meu local de assinatura.
Inserir assinatura automaticamente para solicitações de reunião do Outlook com código VBA
Este comentário foi feito pelo moderador no site
Caro Suporte,

Em relação ao "hack" do VBA, no Outlook365 não insere a assinatura padrão no final de uma nova reunião ou compromisso. O que devo mudar no código para que funcione?

Obrigado antecipadamente.

Atenciosamente: Laszlo
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL