locked
Script de assinatura funcionou para Outlook 2003 e quase para o 2007 RRS feed

  • Pergunta

  • Amigos,

    bom dia e desculpas por provavelmente estar postando no forum errado. Smile

     

    Seguinte,

    conforme o topico que segue neste link http://forums.microsoft.com/Technet-BR/ShowPost.aspx?PostID=4145656&SiteID=29&mode=1

    eu configurei um script de logon e funcionou perfeitamente no outlook 2003, já no outlook 2007 a assinatura ficou com o espaço de uma linha em branco abaixo de cada linha escrita, exemplo

     

    Alex Magalhães

     

    Admin redes

     

    alex.magalhaes@empresa.com.br

     

    555-5555

     

    Empresa.

     

    Isto somente no outlook 2007, no 2003 está certinho.

     

     

    On Error Resume Next

    Set objSysInfo = CreateObject("ADSystemInfo")
    strUser = objSysInfo.UserName

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

    strCompany = objUser.Company
    strName = objUser.FullName
    strFirstName = objuser.givenName
    StrLastName = objuser.sn
    strDepartment = objUser.Department
    strPhone = objUser.telephoneNumber
    strFax = objUser.facsimileTelephoneNumber
    strMail = objuser.mail
    strWeb = objuser.wWWHomePage
    strLogo = "\\server1\teste\image001.jpg"

    Set objWord = CreateObject("Word.Application")
    objWord.Visible = False

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

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

    objSelection.Font.Size = "9"
    objSelection.Font.Name = "Tahoma"

    objDoc.Tables.Add objRange, 5, 1
    Set objTable = objDoc.Tables(1)

    objTable.Columns(1).Width = objWord.InchesToPoints(1)

    objTable.Cell(1, 1).Select
    objSelection.Font.Bold = True
    objSelection.TypeText strFirstName & " " & strLastName
    objSelection.Font.Bold = False
    objTable.Cell(2, 1).Select
    objSelection.InlineShapes.AddPicture(strLogo)
    objTable.Cell(3, 1).Select
    objSelection.TypeText"Fone: " & strPhone
    objTable.Cell(4, 1).Select
    objSelection.TypeText"Fax: " & strFax
    objTable.Cell(5, 1).Select
    objSelection.TypeText"Email: " & strMail
    objTable.Cell(6, 1).Select
    objSelection.TypeText strWeb

    'objSelection.Hyperlinks.Add objSelection.range, "mailto:" & strMail, , , strMail
    'objSelection.Hyperlinks.Add objSelection.range, strWeb, , , strCompany
    objTable.Columns(1).Width = objWord.InchesToPoints(0)
     
    objSignatureEntries.Add "Assinatura " & StrFistName, objRange
    objSignatureObject.NewMessageSignature = "Assinatura " & StrFistName
    objSignatureObject.ReplyMessageSignature = "Assinatura " & StrFistName

    objDoc.Saved = True
    objWord.Quit

     

     

    quarta-feira, 19 de novembro de 2008 12:05

Respostas

  • Opa Alex,

     

    Tu quis me dar trabalho em fazer o move mesmo? Smile

     

    Infelizmente nao consegui publicar daqui onde eu estou mas escrevemos um artigo sobre assinatura no exchange server em geral, e ali explica algumas formas de se fazer, eu la a ultima opcao das ultimas e mexer no cliente, pq nao e centralizado, penoso de implementar mesmo que te teu script rode 100% sempre vai ter falha Sad

     

    Altera isto no servidor que e a melhor maneira, seja ferramenta, smtp event sink ou qualquer coisa do genero, nao deixa esta tarefa em nivel de usuario. 

     

    quarta-feira, 19 de novembro de 2008 12:31

Todas as Respostas

  • Que bom que vc sabe que postou no local errado Smile, vou mover para o office.

     

     

    quarta-feira, 19 de novembro de 2008 12:20
  •  

    hehe...

    Anderson,

    na verdade eu postei aqui pensando que vc leria o post, imaginei que vc não acessaria o forum do office.

     

    Voce já teve este tipo de problema pra ajustar?

    Sei que para a assinatura não ficar com espaço duplo devo utilizar shift+enter pra passar para a proxima linha, mais no script editado em notepad seria tratado da mesma forma?

     

     

    Abs.

    quarta-feira, 19 de novembro de 2008 12:27
  • Opa Alex,

     

    Tu quis me dar trabalho em fazer o move mesmo? Smile

     

    Infelizmente nao consegui publicar daqui onde eu estou mas escrevemos um artigo sobre assinatura no exchange server em geral, e ali explica algumas formas de se fazer, eu la a ultima opcao das ultimas e mexer no cliente, pq nao e centralizado, penoso de implementar mesmo que te teu script rode 100% sempre vai ter falha Sad

     

    Altera isto no servidor que e a melhor maneira, seja ferramenta, smtp event sink ou qualquer coisa do genero, nao deixa esta tarefa em nivel de usuario. 

     

    quarta-feira, 19 de novembro de 2008 12:31
  • Olá Anderson,

    Cara vc é fera em Exchange, não que os demais também não sejam..

    E como disse o Avô do Peter Parker em Homem Aranha I: "Grandes poderes trazem grandes responsabilidades"  Smile

    Brincadeiras a parte.

     

    Fico no aguardo do link para o artigo que vcs escreveram sobre assinatura no exchange server.

    Estou lendo sobre smtp event sink.

     

    Abraço!!

    quarta-feira, 19 de novembro de 2008 14:47