contidas ou tomar qualquer acao baseada nessas informacoes. Se voce recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o e-mail, e em seguida apague-o. Agradecemos sua cooperacao." .TypeText Chr(11) .TypeText Chr(11) With .Font .Name = "arial" .Size = "8" .Bold = False .Color = RGB(160, 160, 160) .Italic = True .Underline = False End With .TypeText "This message may contain confidential and/or privileged information. If you are not the address or authorized to receive this for the address, you must not use, copy, disclose or take any action base on this message or any information herein. If you have received this message in error, please advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation"End WithSet objSelection = objDoc.Range()objSignatureEntries.Add "AD Signature", objSelectionobjSignatureObject.NewMessageSignature = "AD Signature"objSignatureObject.ReplyMessageSignature = "AD Signature"objDoc.Saved = Trueobjword.QuitCompreendendo o script(adsbygoogle = window.adsbygoogle || []).push({});Iremos analisar apenas os pontos mais importantes deste script.Note este trecho:strName = .FullNamestrTitle = .Titlestrl = .lstrco = .costrMobile = .MobilestrPhone = .TelephoneNumberstrMail = .mailstrweb = LCase(.wWWHomePage)Cada linha se refere a um atributo especifico de uma conta de usuario do Active Directory. Por exemplo, "strName = .FullName" se refere ao nome completo, "strTitle = .Title" se refere ao cargo e por ai vai.O trecho acima se refere aos seguintes atributos do AD nesta ordem:Nome para exibicaoCargoCidadeEmpresaTelefone fixoTelefone Movel (caso a conta possua este atributo no AD)E-mailSiteNo trecho em vermelho ".InlineShapes.AddPicture "\\contoso\NETLOGON\logomarca.png", True, True" voce especificara o caminho onde se encontra a logomarca da empresa no formato "PNG". Lembre-se que tambem e possivel utilizar arquivos JPG.No exemplo acima, a logomarca se encontra na pasta "Netlogon" com o nome "logomarca.png" localizado nos controladores de dominio da empresa "Contoso"com dominio "contoso.com".Para quem nao sabe, para acessar um controlador de dominio, basta digitar o UNC \\NOME_DO_DOMINIO na janela "Executar" ou clicando no botao Iniciar e digitando o caminho mencionado.Exemplo:Note que o script lhe da liberdade para alterar o tipo, tamanho e cor da fonte de cada sessao da assinatura. Alem disso, existem opcoes de italico, negrito e sublinhado. Note um exemplo no trecho de codigo abaixo: 'NOME With .Font .Name = "Tahoma" .Size = 11 .Bold = True .Color = RGB(0, 75, 118) .Italic = False .Underline = False End With .TypeText strName & Chr(11) .TypeText Chr(6)Nos itens destacados em amarelo acima, note:"NOME" e o comentario do codigo que indica a sessao da assinatura que voce deseja editar.Para alterar a fonte (Name), basta digitar o nome exato do tipo de fonte desejada.Para alterar o tamanho (Size), basta alterar o numero.Para definir a fonte como negrito (Bold), basta digitar "True". Para desabilitar, escreva "False".Para definir a cor (Color), digite o codigo RGB da cor desejada nos parenteses "(xxx, yyy, zzz)", que pode ser descoberto facilmente na internet.Para Italico (Italic) e Sublinhado (Underline), e o mesmo processo para negrito. O mesmo principio se aplica para os trechos "CARGO", "LOCALIZACAO", "TELEFONE", "E-MAIL", "SITE" e "MENSAGENS".'CARGO With .Font .Name = "Tahoma" .Size = 9 .Bold = True .Color = RGB(127, 127, 127) .Italic = False .Underline = False End With .TypeText strTitle & Chr(11) 'LOCALIZACAO