none
Imagens das assinaturas somem nas estações, Assinatura via GPO RRS feed

  • Pergunta

  • Pessoal, tenho um script em minha rede aqui na empresa, aparentemente está tudo funcionando, o único problema está sendo que quando um usuário faz logoff a imagem da assinatura simplesmente some, na verdade aparece o quadradinho no tamanho exato da imagem mas ela não é exibida, apenas uma mensagem dentro desse quadradinho aparece, dizendo que não foi possível localizar a imagem.

    Segue código:

    On Error Resume Next

    '   Configuracao para buscar os dados no Active Directory

    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 = "www.empresa.com.br"
    strNomeArq = "Assinatura " & strFirstName

    '   Caminho para buscar o logo da empresa

    strLogo = "\\192.168.1.5\NETLOGON\Imagens\Assinatura.bmp"

    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

    '   Formatacao de fonte e paragrafo
    objSelection.Font.Name = "Calibri"
    objSelection.Paragraphs.LineSpacingRule = wdLineSpaceSingle
    objselection.Paragraphs.SpaceAfter = 1

    '   Definicao das cores que podem ser usadas na assinatura

    wdColorAqua = 13421619
    wdColorAutomatic = -16777216
    wdColorBlack = 0
    wdColorBlue = 16711680
    wdColorBlueGray = 10053222
    wdColorBrightGreen = 65280
    wdColorBrown = 13209
    wdColorDarkBlue = 8388608
    wdColorDarkGreen = 13056
    wdColorDarkRed = 128
    wdColorDarkTeal = 6697728
    wdColorDarkYellow = 32896
    wdColorGold = 52479
    wdColorGray05 = 15987699
    wdColorGray10 = 15132390
    wdColorGray125 = 14737632
    wdColorGray15 = 14277081
    wdColorGray20 = 13421772
    wdColorGray25 = 12632256
    wdColorGray30 = 11776947
    wdColorGray35 = 10921638
    wdColorGray375 = 10526880
    wdColorGray40 = 10066329
    wdColorGray45 = 9211020
    wdColorGray50 = 8421504
    wdColorGray55 = 7566195
    wdColorGray60 = 6710886
    wdColorGray625 = 6316128
    wdColorGray65 = 5855577
    wdColorGray70 = 5000268
    wdColorGray75 = 4210752
    wdColorGray80 = 3355443
    wdColorGray85 = 2500134
    wdColorGray875 = 2105376
    wdColorGray90 = 1644825
    wdColorGray95 = 789516
    wdColorGreen = 32768
    wdColorIndigo = 10040115
    wdColorLavender = 16751052
    wdColorLightBlue = 16737843
    wdColorLightGreen = 13434828
    wdColorLightOrange = 39423
    wdColorLightTurquoise = 16777164
    wdColorLightYellow = 10092543
    wdColorLime = 52377
    wdColorOliveGreen = 13107
    wdColorOrange = 26367
    wdColorPaleBlue = 16764057
    wdColorPink = 16711935
    wdColorPlum = 6697881
    wdColorRed = 255
    wdColorRose = 13408767
    wdColorSeaGreen = 6723891
    wdColorSkyBlue = 16763904
    wdColorTan = 10079487
    wdColorTeal = 8421376
    wdColorTurquoise = 16776960
    wdColorViolet = 8388736
    wdColorWhite = 16777215
    wdColorYellow = 65535

    ' Inicio da Assinatura
            
           'Nome completo do Usuario 
            objSelection.Font.Name = "Verdana"
            objSelection.Font.Size = "10"
            objSelection.Font.Color = RGB(28,44,88)
            objSelection.Font.Bold = True 
            objSelection.TypeText strFirstName & " " & strLastName & VbCr

            objSelection.Font.Bold = False
            objSelection.Font.Size = "8"
    objSelection.Font.Underline = false
            objSelection.Font.Color = RGB(148,138,84)
    objSelection.TypeText  strMail & "" &Vbcr

            objSelection.Font.Bold = False
            objSelection.Font.Size = "8"
    objSelection.Font.Underline = False
            objSelection.Font.Color = RGB(28,44,88)        
            objSelection.TypeText  "TEL: +55 (11) tel" &VbCr

            objSelection.Font.Size = "8"
            objSelection.Font.Bold = False
            objSelection.Font.Color = RGB(28,44,88)
    objSelection.Font.Underline = False
            objSelection.TypeText  "FAX: +55 (11) tel" & VbCr

            objSelection.Font.Size = "8"
            objSelection.Font.Bold = False
            objSelection.Font.Color = RGB(28,44,88)
    objSelection.Font.Underline = False 
            objSelection.TypeText  "endereçoandar" & VbCr

    objSelection.Font.Size = "8"
            objSelection.Font.Bold = False
            objSelection.Font.Color = RGB(28,44,88)
    objSelection.Font.Underline = False 
            objSelection.TypeText  "cep- São Paulo - SP - Brasil" & VbCr

    set objLink = objSelection.Hyperlinks.Add(objSelection.Range, "http://www.empresa.com.br/", , , "http://www.empresa.com.br/" &vbcr)
    objLink.Range.Font.Name = "Verdana"
    objLink.Range.Font.Size = "8"
    objLink.Range.Font.Bold = false
    objSelection.Font.Color = RGB (0,0,255)

            objSelection.Font.Size = "8"
            objSelection.Font.Bold = False
            objSelection.Font.Color = RGB(28,44,88)
    objSelection.Font.Underline = False

    objSelection.TypeParagraph()

    objTable.Rows.Add()

    objDoc.Hyperlinks.Add objSelection.InlineShapes.AddPicture(strLogo), strweb

    objSelection.TypeText ""& vbcr

            objSelection.Font.Bold = False
            objSelection.Font.Size = "15"
            objSelection.Font.Color = RGB(28,44,88)
            objSelection.Font.Name = "Webdings"
            objSelection.TypeText "P "
            objSelection.Font.Name = "Verdana"
            objSelection.Font.Size = "7"
            objSelection.TypeText "Antes de imprimir pense no meio ambiente. | Think about the environment before printing." & VbCr

            objSelection.Font.Bold = False
            objSelection.Font.Size = "7"
            objSelection.Font.Color = RGB(28,44,88)
            objSelection.Font.Name = "Verdana"
            objSelection.TypeText "Privileged and confidential Attorney-client communication." & VbCr &vbcr

    '  Finalizacao da Assinatura

     


    'Definicao do nome da assinatura e coloca a mesma como padrao 

    objSignatureEntries.Add strNomeArq,  objRange
    objSignatureObject.NewMessageSignature = strNomeArq
    objSignatureObject.ReplyMessageSignature = strNomeArq
    objDoc.Saved = True
    objWord.Quit

    Alguém sabe o que pode ser?? já tentei mudar o caminho da imagem e mesmo assim nada :(


    quarta-feira, 6 de março de 2013 16:02

Respostas

  • tive que colocar no meu script principal uma regra para buscar esse script de assinatura e funcionou!

    o problema era no GPO, não sei pq não funcionava quando a GPO buscava o arquivo, mas agora deu!

    quinta-feira, 7 de março de 2013 15:13

Todas as Respostas

  • Vi que o caminho está na rede. Já tentou fazer apontando para uma imagem que está na própria máquina? O resultado foi o mesmo?

    Fábio de Paula Junior

    quarta-feira, 6 de março de 2013 18:29
    Moderador
  • amigo fiz tanta coisa rsrs, mas acredito que eu tenha feito isso sim, mas em todo caso vou tentar fazer isso "novamente" e ver se resolve.

    Mas aproveitando essa resposta, deixa eu te perguntar uma coisa. Você sabe se tem alguma forma de desenhar no vb? Porque disso? 

    o logo aqui da empresa é algo simples, se eu conseguir fazer 2 linhas grossas exatamente uma encostada na outra eu desenho o logo no próprio script.

    li algo sobre as lines mas não entendi.

    obrigado.

    EDIT: Fábio, editei o arquivo, agora todo logon será movida uma cópia da imagem para o micro local. 

    Se alguém precisar os comandos inclusos foram:

    '   Configuracao para buscar os dados no Active Directory
    
    Set objSysInfo = CreateObject("ADSystemInfo")
    
    Set objNetwork = CreateObject("Wscript.Network")
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    strUser = objSysInfo.UserName
    
    Set objUser = GetObject("LDAP://" & strUser) 
    
    		'---------------------------- ATALHO IMAGEM ASSINATURA-----------------------------
    			
    			objFSO.CopyFile "\\srvblack\NETLOGON\Imagens\Assinatura.bmp", "c:\users\"&objNetwork.UserName&"\AppData\", OverwriteExisting
    		
    		'--------------------------------- FIM DO ATALHO ----------------------------------
    
    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 = "www.empresa.com.br"
    strNomeArq = "Assinatura " & strFirstName
    
    '   Caminho para buscar o logo da empresa
    
    strLogo = "C:\Users\"&objNetwork.UserName&"\AppData\Assinatura.bmp"

    Vamos ver se da certo!


    quarta-feira, 6 de março de 2013 19:11
  • tive que colocar no meu script principal uma regra para buscar esse script de assinatura e funcionou!

    o problema era no GPO, não sei pq não funcionava quando a GPO buscava o arquivo, mas agora deu!

    quinta-feira, 7 de março de 2013 15:13