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