OBS: Este post se destina a analistas de suporte, administradores de redes / infraestrutura.Para os caros colegas administradores de redes, vou postar uma dica que me serviu muito bem.Existem solucoes pagas no mercado que automatizam a configuracao de uma bonita assinatura corporativa nos e-mails do Microsoft Outlook.Tais ferramentas, na realidade importam os atributos das contas do AD (Active Directory) e a transferem para um arquivo de assinatura automaticamente gerado no Outlook.No entanto, existem formas simples e gratuitas de implementarmos uma assinatura automatica e exclusiva no Outlook de todos os usuarios.Precisaremos apenas de um script, de uma pequena figura JPG ou PNG (logomarca) e de uma GPO.OBS: Recomendo que a logomarca (figura) tenha fundo transparente.Script 'VBS' para assinatura no OutlookOBS: Todos os passos deste tutorial foram implementados com exito num ambiente real de producao. No ambiente existe uma combinacao dos sistemas operacionais Windows 7 e 10 e dos pacotes Office 2010, 2013 e 2016. Segue abaixo o script. Em seguida explicarei os pontos mais importantes do mesmo e fornecerei mais alguns detalhes. No exemplo abaixo criei um script chamado "Signature.vbs". E evidente que o script abaixo devera ser copiado para o bloco de notas. On Error Resume NextSet objSysInfo = CreateObject("ADSystemInfo")strUser = objSysInfo.UserNameSet objUser = GetObject("LDAP://" & strUser)With objUser strName = .FullNamestrTitle = .Titlestrl = .lstrco = .costrMobile = .MobilestrPhone = .TelephoneNumberstrMail = .mailstrweb = LCase(.wWWHomePage)End WithSet objword = CreateObject("Word.Application")With objword Set objDoc = .Documents.Add() Set objSelection = .Selection Set objEmailOptions = .EmailOptionsEnd WithSet objSignatureObject = objEmailOptions.EmailSignatureSet objSignatureEntries = objSignatureObject.EmailSignatureEntriesWith objSelection .ParagraphFormat.Alignment = wdAlignParagraphLeft .InlineShapes.AddPicture "\\contoso\NETLOGON\logomarca.png", True, True objDoc.InlineShapes(1).ConvertToShape 'objDoc.Shapes(1).WrapFormat.Type = 4 'Abaixo objDoc.Shapes(1).WrapFormat.Type = 0 'Ao Lado '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) '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 With .Font .Name = "Tahoma" .Size = 9 .Bold = False .Color = RGB(127, 127, 127) .Italic = False .Underline = False End With .TypeText strl & Chr(11) .TypeText Chr(11) 'TELEFONE With .Font .Name = "Tahoma" .Size = 9 .Bold = False .Color = RGB(127, 127, 127) .Italic = False .Underline = False End With .TypeText strPhone & " " & strMobile & Chr(11) 'E-MAIL With .Font .Name = "Tahoma" .Size = 9 .Bold = False .Color = RGB(0, 0, 255) .Italic = False .Underline = True End With .TypeText strMail & Chr(11) 'SITE With .Font .Name = "Tahoma" .Size = 9 .Bold = true .Color = RGB(57, 181, 74) .Italic = False .Underline = False End With .TypeText strweb & Chr(11) .TypeText Chr(11) .TypeText Chr(11) 'MENSAGENS With .Font .Name = "arial" .Size = "8" .Bold = False .Color = RGB(160, 160, 160) '8421504 .Italic = True .Underline = False End With .TypeText "Esta mensagem pode conter informacao confidencial e/ou privilegiada. Se voce nao for o destinatario ou a pessoa autorizada a receber esta mensagem, nao pode usar, copiar ou divulgar as informacoes nela