Dificuldade com Assinatura padrao no Outlook com AD
Estou com dificuldades em criar uma assinatura padronizada para o Outlook utilizando o AD.
Nas pesquisas que fiz, estavam indicando utilizar as polices(GPOs), fiz inumeros testes mas sem eficiencia esperada.
Gostaria da ajuda de vcs para fazer essa implementacao.
Desde ja agradeco o apoio.
Abraco.
Alex - Lekao
Alex Lekao
Melhor post
Fabiano Carvalho
10/12/2015
Veja esse link.
http://blog.powershell.no/2010/01/09/outlook-signature-based-on-user-information-from-active-directory/
Mais Respostas
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
o problema eh que fazem uso de vbs e nao manjo destas paradas e nao dao muita dica de como fazer, saca?
tipo um passo a passo, salva assim, copia para tal lugar, essas coisas. rsrsr
Carlos Oliveira
10/12/2015
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
vou fazer novos testes.
encontrei alguns scripts tbm, vou testar ambos e posto aqui o resultado.
Obrigado mais uma vez.
Abraco.
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
mas facilita na admnistracao.
Estou finalizando os testes, ja ja eu posto o resultado e o script que usei.
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
mas depende muito da empresa. rsrsr
aqui ja tinhamos, nos do TI, a intencao de padronizar algumas situacoes que eram referente a identidade e tal, e agora calhou da empresa ter iniciado um projeto de identidade, ai uniu o util ao agradavel. rsrsr
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
estou com um script pronto que consegui, que estaria do jeito que precisariamos, mas esta dando problemas na aplicacao da GPO.
Estou pesquisando sobre e assim que tiver legal eu coloco aqui como ficou.
Carlos Oliveira
10/12/2015
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
o script ate ficou blzinha.
mas a aplicacao na gpo do AD nao esta funcionando corretamente.
estou verificando o que pode estar acontecendo.
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
to apanhando aqui. rsrsrsrs
mas eu fiquei de dar retorno mesmo, e como nao dei, seria normal o questionamento mesmo.
rsrsr
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
Demorei mas vim aqui dizer o que aconteceu.
a minha aplicacao de asssinatura baseada no AD, funcionou, embora em algumas estacoes nao tenha aplicado corretamente, mas de forma geral funcionou.
Infelizmente vou ter que revisar todas as estacoes, mas sera apenas para me certificar que tudo deu certo.
Usei script pronto, eh claro que fiz ajustes para uso nosso, que encontrei na net e criei a gpo, pedi um amigo adm de rede para me ajudar na checagem das configuracoes e de acordo com ele estavam todas corretas.
ja apliquei para todos os usuarios do grupo e tenho percebido que ate o momento poucos tem reclamado de que nao funcionou.
Obrigado pelo apoio.
abraco.
Carlos Oliveira
10/12/2015
Fez geral ou divido por "setores"? No seu servidor de AD existem divisões por setores?
Alex Lekao
10/12/2015
No AD, vc pode cadastrar as varias informacoes, como Departo, Cargo, etc.
E no script vc escolhe o que usar, optei por departamento e nao cargo.
No meu AD as OUs estao todas divididas por loja e departamento(meio geralzao), mas isso eh por organizacao nossa do TI, para o Script acaba sendo indiferente pq ele vai pegar o que esta no usuario propriamente dito.
nao sei se respondi sua pergunta. rsrsr
Carlos Oliveira
10/12/2015
Alex Lekao
10/12/2015
mas o que o Fabiano indicou eh muito bom e esta excelente.
Vou Colar aqui abaixo o script que eu utilizei, basta salva-lo com extencao vbs.
Const END_OF_STORY = 6 On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) With objUser strName = .FullName 'strTitle = .Title End With With objNomecomp strnome = objuser.CN .Name = "Calibri" .Size = 11 .Bold = true .Color = RGB(0,0,128) End With strCompany = objUser.Company strAddress = objUser.streetAddress strpostalCode = objUser.postalCode strtitle = objUser.strtitle strDep = objUser.Departamento strl = objUser.l strco = objUser.co strPhone = objUser.TelephoneNumber strFax = objUser.facsimileTelephoneNumber strMail = objuser.mail strWeb = objuser.wWWHomePage strnome = objuser.CN strDep = objuser.department strWeb = objuser.site srtCel = objUser.mobile strTel = "Tel.: 55" strnome.Bold = false Set objword = CreateObject("Word.Application") With objword Set objDoc = .Documents.Add() Set objSelection = .Selection Set objEmailOptions = .EmailOptions Set objRange = objDoc.Range() objDoc.Tables.Add objRange,1,2 Set objTable = objDoc.Tables(1) End With Set objSignatureObject = objEmailOptions.EmailSignature Set objSignatureEntries = objSignatureObject.EmailSignatureEntries With objSelection objTable.Rows.Add() objDoc.Hyperlinks.Add objSelection.InlineShapes.AddPicture("\\192.168.1.2\netlogon\Assinatura\logoassinatura.jpg"), strweb .ParagraphFormat.Alignment = wdAlignParagraphRight .TypeParagraph objSelection.Font.Color objTable.Cell(1, 2).Range.Font.Bold = false objTable.Cell(1, 2).Range.Font.Size = "11" objTable.Cell(1, 2).Range.Font.Name = "Calibri" objTable.Cell(1, 2).Range.Font.Color = RGB(0,0,128) objTable.Columns(1).Width = objWord.InchesToPoints(1) 'objTable.Cell(1, 2).Range.Text = strnome & Chr(11) & strtitle & Chr(11) & strDep & Chr(11) & "Tel.: 55 " & strPhone & Chr(11) & "Fax. 55 " & strFax & Chr(11) & strMail & Chr(11) & strWeb objTable.Cell(1, 2).Range.Text = strnome & Chr(11) & strDep & Chr(11) & "Tel.: 55 " & strPhone & Chr(11) & strMail & Chr(11) & strWeb If Len(srtCel) <> 0 then objTable.Cell(1, 2).Range.Text = strnome & Chr(11) & strDep & Chr(11) & "Tel. 55 " & strPhone & " | " & srtCel & Chr(11) & "Fax. 55 " & strFax & Chr(11) & strMail & Chr(11) & strWeb end if objSelection.EndKey END_OF_STORY End With Set objSelection = objDoc.Range() objSignatureEntries.Add "Assinatura ISC", objSelection objSignatureObject.NewMessageSignature = "Assinatura ISC" objSignatureObject.ReplyMessageSignature = "Assinatura ISC" objDoc.Saved = True objword.Quit
Carlos Oliveira
10/12/2015
Vou guardar, nunca se sabe, pode ser util pra mim em algum momento.
Obrigado.
Alex Lekao
10/12/2015
notepad, etc.
Carlos Oliveira
10/12/2015
notepad, etc.
Obrigado Alex.
Alex Lekao
10/12/2015