none
Configurar assinatura de emails no Exchange 2010 RRS feed

  • Pergunta

  • Configurei assinatura nos e-mails utilizando as regras de transporte do Exchange 2010 mas não encontrei uma maneira de alterar a regra para que a assinatura fique logo abaixo da mensagem enviada e não sempre no rodapé da mensagem.

    Tem alguma maneira de configurar isso sem comprar ferramentas de terceiros?

    Caso negativo, que ferramenta de terceiros vocês utilizam e recomendariam como a melhor?

    Obrigada,

    Ana Cristina


    Ana Cristina

    segunda-feira, 22 de julho de 2013 12:39

Respostas

Todas as Respostas

  • Boa tarde,

    Como dica, segue script (vbs) que utilizo em meu ambiente.

        On Error Resume Next

        Set objSysInfo = CreateObject("ADSystemInfo")

        strUser = objSysInfo.UserName
        Set objUser = GetObject("LDAP://" & strUser)
        strName = objUser.DisplayName
        strMail = objUser.mail
        strCargo = objUser.title
        strPhone = objUser.telephoneNumber
        strCelPhone = objUser.mobile
        strFaxPhone = objUser.facsimileTelephoneNumber
        strDepartamento = objUser.department
        strwwwhomepage = objUser.wwwhomepage


        Set objWord = CreateObject("Word.Application")
        Set objDoc = objWord.Documents.Add()
        Set objSelection = objWord.Selection
        Set objShape = objSelection.InlineShapes.AddPicture("\\192.168.0.10\assinatura$\Email-signature.bmp")
        objSelection.TypeText Chr(11)
        Set objShape = objSelection.InlineShapes.AddPicture("\\192.168.0.10\assinatura$\barra.gif")
        objSelection.TypeParagraph()


        objSelection.Font.Color = -603946753
        objWord.Options.CtrlClickHyperlinkToOpen = False
        Set objEmailOptions = objWord.EmailOptions
        Set objSignatureObject = objEmailOptions.EmailSignature
        Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
        objSelection.Font.Name = "Verdana"
        objSelection.Font.Size = 9
        objSelection.Font.Bold = True
        objSelection.TypeText strName 
    if trim(strCargo) <> "" and not isNull(strCelPhone) then
        objSelection.Font.Size = 8
        objSelection.Font.Bold = False
        objSelection.TypeText " | " & strCargo
        objSelection.Collapse "Direction:=wdCollapseEnd"
        objSelection.TypeText Chr(11)
    else 
        objSelection.Font.Size = 8
        objSelection.Font.Bold = False
        objSelection.TypeText " | " & strDepartamento
        objSelection.Collapse "Direction:=wdCollapseEnd"
        objSelection.TypeText Chr(11)
    end if


        objSelection.Font.Bold = True
        objSelection.TypeText "T.: "
        objSelection.Font.Bold = False
        objSelection.TypeText strPhone
    if trim(strCelPhone) <> "" and not isNull(strCelPhone) then
        objSelection.Font.Bold = True
        objSelection.TypeText " | C: "
        objSelection.Font.Bold = False
        objSelection.TypeText strCelPhone
    end if
        objSelection.TypeText Chr(11)

        objSelection.Font.Bold = True
        objSelection.TypeText "E.: "
        objDoc.hyperlinks.Add objSelection.range, "mailto:" & strMail, , "", strMail
        objSelection.TypeText " | "
        objDoc.hyperlinks.Add objSelection.range, strwwwhomepage
        objSelection.TypeText Chr(11)
        Set objShape = objSelection.InlineShapes.AddPicture("\\192.168.0.10\assinatura$\barra.gif")
        

        objDoc.hyperlinks(1).range.Font.Name = "Verdana"
        objDoc.hyperlinks(1).range.Font.Size = 8
        objDoc.hyperlinks(1).range.Font.Bold = False

        objDoc.hyperlinks(2).range.Font.Name = "Verdana"
        objDoc.hyperlinks(2).range.Font.Size = 8
        objDoc.hyperlinks(2).range.Font.Bold = False

        Set objSelection = objDoc.range()
        objSignatureEntries.Add "MYCOMPANY Signature", objSelection
        objSignatureObject.NewMessageSignature = "MYCOMPANY Signature"
        objSignatureObject.ReplyMessageSignature = "MYCOMPANY Signature"

        objDoc.Saved = True
        objWord.Quit


    Marco Antonio Silva MCTS \ MCITP \ MCT www.windowsbrasil.com.br

    segunda-feira, 22 de julho de 2013 16:56
  • Eu gostaria de utilizar algo mais simples. Ninguém mais usa isso na empresa? Não têm um software que gostariam de indicar?

    Obrigada,

    Cris


    Ana Cristina

    terça-feira, 23 de julho de 2013 21:01
  • Eu já trabalhei com a ferramenta da CodeTwo, é muito boa...

    http://www.codetwo.com/email-signatures/

    Jonathan Santos | http://jonathanrsantos.wordpress.com MCP | MCSA | MCSA Messaging | MCSE | MCITP Exchange 2010 | MCITP Lync Server

    • Marcado como Resposta AnaTrevenzoli segunda-feira, 5 de agosto de 2013 13:20
    quarta-feira, 31 de julho de 2013 18:26
    Moderador