Em algumas empresas as vezes é preciso controlar a forma com que os e-mails são assinados. Aqui, um arquivo .vbs que busca as informações preenchidas no Active Directory e as insere no arquivo de auto-assinatura do cliente outlook.

Que tal testar essa solução?

1- Copie o código abaixo e cole em um notepad, salve-o como autosignature.vbs:

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strMobile = objUser.mobile

Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature

Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

objSelection.Font.Bold = True
objSelection.Font.Name = "Arial"
objSelection.Font.Size = 9
objSelection.TypeText strName
objSelection.TypeParagraph()
objSelection.Font.Style = "Normal"
objSelection.Font.Bold = False
objSelection.TypeText strTitle
objSelection.TypeParagraph()
objSelection.TypeText strDepartment
objSelection.TypeParagraph()
Set colShapes = objDoc.Shapes
Set objShape = objSelection.InlineShapes.AddPicture("\\server\sharename\path\filename.bmp")
objSelection.TypeParagraph()
objSelection.TypeText strCompany
objSelection.TypeParagraph()
objSelection.TypeText "Tel: " & strPhone
objSelection.TypeParagraph()
objSelection.TypeText "Mobile: " & strMobile

Set objSelection = objDoc.Range()

objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"

objDoc.Saved = True
objWord.Quit

 

2- Edite/Salve esse arquivo em \\servername\sysvol\scripts no seu controlador de domínio, ou outro compartilhamento. Adicione uma nova GPO e inclua esse script pra ser executado em “User Configuration\Windows Settings\Scripts\Logon”.

3- Efetue logon no domínio e teste sua nova auto-assinatura. :D

Dúvidas, entre em contato!
Guilherme Lima
MCITP Enterprise Administrator

Related posts:

  1. Criar contas de usuário usando uma planilha Por Victor Hugo Rodrigues [editado por Guilherme Lima] Data de...
  2. Como transferir funções FSMO de um controlador de domínio inacessível para outro controlador de domínio Na vida de um consultor nos deparamos todos os dias...
  3. Como migrar pastas públicas do Exchange 2000/2003 para o Exchange 2007? Situação Problema: Durante uma fase de transição do Exchange 2000/2003...
  4. OWA apresenta mensagens de erro pós migração Situação Problema: Algumas vezes após a migração do Exchange 2000/2003...
  5. Rapidinha: Erro “the following gpos were not applied because they were filtered out” Olá pessoas, Pra solucionar esse erro misterioso que aparece quando...