none
Script VBS com Imagem RRS feed

  • Pergunta

  • Olá Senhores, peguei um script com vocês aqui no forum, estou encontrando uma dificuldade na formatação da tabela, o script é o que segue logo abaixo, a figura esta muito distante do texto, tem como colocar o texto para a esqueda?


    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 = .Description
    End With

    strCompany = "Porto Advogados"
    strAddress1 = "Av. Nove de Julho, 5.109 - 3º andar"
    strAddress2 = "São Paulo - SP - Brasil"
    strpostalCode = "CEP 01407-200"
    'strl = objUser.l
    'strco = objUser.co
    strPhone = "Fone (55 11) 3079-4244"
    'strMail = objuser.mail
    strWeb = "www.porto.adv.br"


    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()

        objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura.jpg")
     
    '    .ParagraphFormat.Alignment = wdAlignParagraphRight
    '    .TypeParagraph

        objTable.Cell(1, 2).Range.Font.Bold = False
        objTable.Cell(1, 2).Range.Font.Size = "10"
        objTable.Cell(1, 2).Range.Font.Name = "Tahoma" 
        objTable.Cell(1, 2).Range.Text =  strName & Chr(11) & strAddress1 & Chr(11) & strAddress2 & Chr(11) & strpostalCode & strco & Chr(11) & strPhone & Chr(11) & Chr(11) & strWeb & Chr(11)

    objSelection.EndKey END_OF_STORY

    '   .TypeText Chr(11)
        objSelection.Font.Name = "Tahoma"
        objSelection.Font.Size = "10"
        objSelection.Font.italic = False
        objSelection.Font.Color = Black
        objSelection.Font.Bold = False
        objSelection.TypeText "--------------------------------------------------------------------------------------------------------------------" & chr(11)
        objSelection.TypeText "Esta mensagem e seus anexos são destinados exclusivamente ao(s) destinatário(s) identificado(s) acima e contêm informações confidenciais ou privilegiadas. Se você não é destinatário destes materiais, não está autorizado a utilizá-los para nenhum fim. Solicitamos que você apague a mensagem e seus anexos e avise imediatamente o remetente. O conteúdo desta mensagem e o de seus anexos não representam necessariamente a opinião e a intenção dos advogados integrantes deste escritório, não implicando em qualquer obrigação ou responsabilidade"


      End With

    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "Assinatura Porto", objSelection
    objSignatureObject.NewMessageSignature = "Assinatura Porto"
    objSignatureObject.ReplyMessageSignature = "Assinatura Porto"
    objDoc.Saved = True
    objword.Quit                


    Suporte - Porto Advogados
    Av. Nove de Julho, 5.109 - 3º andar
    São Paulo - SP - Brasil
    CEP 01407-200
    Fone (55 11) 3079-4244

    www.porto.adv.br

     A imagem fica nesta distancia, se alguem souber como proceder fico agradecido.

     

                                                                                                                 

    segunda-feira, 20 de julho de 2009 17:32

Respostas

  • Caro Jesiel, muito obrigado pela ajuda!

    Consegui fazer alterando a linha da seguinte forma!

    objDoc.Hyperlinks.Add objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg"), strweb

    Temos esta opção tbm caso alguem queira utilizar, abaixo vou disponibilizar o script pronto, para o pessoal.


    Abraço.

    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 = .Description
    End With

    strCompany = "Porto Advogados"
    strAddress1 = "Av. Nove de Julho, 5.109 - 3º andar"
    strAddress2 = "São Paulo - SP - Brasil"
    strpostalCode = "CEP 01407-200"
    'strl = objUser.l
    'strco = objUser.co
    strPhone = "Fone (55 11) 3079-4244"
    strFax = objUser.facsimileTelephoneNumber
    'strMail = objuser.mail
    strWeb = "http://www.porto.adv.br"
    'strLogo = "\\portoserver01\temp$\LogoAssinatura11.jpg"

    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("\\portoserver01\temp$\LogoAssinatura11.jpg"), strweb
       
        'objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg")
        'objTable.Cell(1, 1).Hyperlinks.Add = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg")
       
        .ParagraphFormat.Alignment = wdAlignParagraphRight
        .TypeParagraph
     
        objTable.Cell(1, 2).Range.Font.Bold = False
        objTable.Cell(1, 2).Range.Font.Size = "10"
        objTable.Cell(1, 2).Range.Font.Name = "Tahoma"
        objTable.Columns(1).Width = objWord.InchesToPoints(1)
        objTable.Cell(1, 2).Range.Text = strName & Chr(11) & strAddress1 & Chr(11) & strAddress2 & Chr(11) & strpostalCode & strco & Chr(11) & strPhone & Chr(11) & Chr(11) & strWeb 
       

    objSelection.EndKey END_OF_STORY

    '   .TypeText Chr(11)
        objSelection.Font.Name = "Tahoma"
        objSelection.Font.Size = "10"
        objSelection.Font.italic = False
        objSelection.Font.Color = Black
        objSelection.Font.Bold = False
        objSelection.TypeText "--------------------------------------------------------------------------------------------------------------------" & chr(11)
        objSelection.TypeText "Esta mensagem e seus anexos são destinados exclusivamente ao(s) destinatário(s) identificado(s) acima e contêm informações confidenciais ou privilegiadas. Se você não é destinatário destes materiais, não está autorizado a utilizá-los para nenhum fim. Solicitamos que você apague a mensagem e seus anexos e avise imediatamente o remetente. O conteúdo desta mensagem e o de seus anexos não representam necessariamente a opinião e a intenção dos advogados integrantes deste escritório, não implicando em qualquer obrigação ou responsabilidade"


      End With

    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "Assinatura Porto", objSelection
    objSignatureObject.NewMessageSignature = "Assinatura Porto"
    objSignatureObject.ReplyMessageSignature = "Assinatura Porto"
    objDoc.Saved = True
    objword.Quit                                                                                

    quarta-feira, 22 de julho de 2009 16:13

Todas as Respostas

  • Olá Senhores, peguei um script com vocês aqui no forum, estou encontrando uma dificuldade na formatação da tabela, o script é o que segue logo abaixo, a figura esta muito distante do texto, tem como colocar o texto para a esqueda?


    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 = .Description
    End With

    strCompany = "Porto Advogados"
    strAddress1 = "Av. Nove de Julho, 5.109 - 3º andar"
    strAddress2 = "São Paulo - SP - Brasil"
    strpostalCode = "CEP 01407-200"
    'strl = objUser.l
    'strco = objUser.co
    strPhone = "Fone (55 11) 3079-4244"
    'strMail = objuser.mail
    strWeb = "www.porto.adv.br"


    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()

        objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura.jpg")
     
    '    .ParagraphFormat.Alignment = wdAlignParagraphRight
    '    .TypeParagraph

        objTable.Cell(1, 2).Range.Font.Bold = False
        objTable.Cell(1, 2).Range.Font.Size = "10"
        objTable.Cell(1, 2).Range.Font.Name = "Tahoma" 
        objTable.Cell(1, 2).Range.Text =  strName & Chr(11) & strAddress1 & Chr(11) & strAddress2 & Chr(11) & strpostalCode & strco & Chr(11) & strPhone & Chr(11) & Chr(11) & strWeb & Chr(11)

    objSelection.EndKey END_OF_STORY

    '   .TypeText Chr(11)
        objSelection.Font.Name = "Tahoma"
        objSelection.Font.Size = "10"
        objSelection.Font.italic = False
        objSelection.Font.Color = Black
        objSelection.Font.Bold = False
        objSelection.TypeText "--------------------------------------------------------------------------------------------------------------------" & chr(11)
        objSelection.TypeText "Esta mensagem e seus anexos são destinados exclusivamente ao(s) destinatário(s) identificado(s) acima e contêm informações confidenciais ou privilegiadas. Se você não é destinatário destes materiais, não está autorizado a utilizá-los para nenhum fim. Solicitamos que você apague a mensagem e seus anexos e avise imediatamente o remetente. O conteúdo desta mensagem e o de seus anexos não representam necessariamente a opinião e a intenção dos advogados integrantes deste escritório, não implicando em qualquer obrigação ou responsabilidade"


      End With

    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "Assinatura Porto", objSelection
    objSignatureObject.NewMessageSignature = "Assinatura Porto"
    objSignatureObject.ReplyMessageSignature = "Assinatura Porto"
    objDoc.Saved = True
    objword.Quit                


    IMAGEMMMMM

    Suporte - Porto Advogados
    Av. Nove de Julho, 5.109 - 3º andar
    São Paulo - SP - Brasil
    CEP 01407-200
    Fone (55 11) 3079-4244

    www.porto.adv.br

     

                                                                                                                 

     A imagem fica nesta distancia, se alguem souber como proceder fico agradecido.


    segunda-feira, 20 de julho de 2009 17:39
  • Olá,

    Faça um teste no script abaixo:


    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 = .Description
    End With

    strCompany = "Porto Advogados"
    strAddress1 = "Av. Nove de Julho, 5.109 - 3º andar"
    strAddress2 = "São Paulo - SP - Brasil"
    strpostalCode = "CEP 01407-200"
    'strl = objUser.l
    'strco = objUser.co
    strPhone = "Fone (55 11) 3079-4244"
    'strMail = objuser.mail
    strWeb = "www.porto.adv.br"


    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)
      objTable.Columns(1).Width = objWord.InchesToPoints(2)

    End With

    Set objSignatureObject = objEmailOptions.EmailSignature
    Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
    With objSelection
    objTable.Rows.Add()


       objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura.jpg")
     
    '    .ParagraphFormat.Alignment = wdAlignParagraphRight
    '    .TypeParagraph

        objTable.Cell(1, 2).Range.Font.Bold = False
        objTable.Cell(1, 2).Range.Font.Size = "10"
        objTable.Cell(1, 2).Range.Font.Name = "Tahoma"
        objTable.Cell(1, 2).Range.Text =  strName & Chr(11) & strAddress1 & Chr(11) & strAddress2 & Chr(11) & strpostalCode & strco & Chr(11) & strPhone & Chr(11) & Chr(11) & strWeb & Chr(11)

    objSelection.EndKey END_OF_STORY

    '   .TypeText Chr(11)
        objSelection.Font.Name = "Tahoma"
        objSelection.Font.Size = "10"
        objSelection.Font.italic = False
        objSelection.Font.Color = Black
        objSelection.Font.Bold = False
        objSelection.TypeText "--------------------------------------------------------------------------------------------------------------------" & chr(11)
        objSelection.TypeText "Esta mensagem e seus anexos são destinados exclusivamente ao(s) destinatário(s) identificado(s) acima e contêm informações confidenciais ou privilegiadas. Se você não é destinatário destes materiais, não está autorizado a utilizá-los para nenhum fim. Solicitamos que você apague a mensagem e seus anexos e avise imediatamente o remetente. O conteúdo desta mensagem e o de seus anexos não representam necessariamente a opinião e a intenção dos advogados integrantes deste escritório, não implicando em qualquer obrigação ou responsabilidade"


      End With

    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "Assinatura Porto", objSelection
    objSignatureObject.NewMessageSignature = "Assinatura Porto"
    objSignatureObject.ReplyMessageSignature = "Assinatura Porto"
    objDoc.Saved = True
    objword.Quit               




    Faça os testes e nos retorne.



    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    segunda-feira, 20 de julho de 2009 19:16
  • objTable.Columns(1).Width = objWord.InchesToPoints(2)

    Coloquei esta linha dentro da tabela e funcionou, para fora ela ainda fica desalinhada, agora preciso colocar um Hyperlink na figura, tem alguma sugestão?


    Ate mais.
    quarta-feira, 22 de julho de 2009 12:56
  • Olá,

    Substitua a linha:
    objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura.jpg")

    Por essa:
    objTable.Cell(1, 1).Range.Text =  objSelection.Hyperlinks.Add (objSelection.InlineShapes.AddPicture(""\\portoserver01\temp$\LogoAssinatura.jpg"), "http://www.porto.adv.br", "", "", "http://www.porto.adv.br" )

    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    quarta-feira, 22 de julho de 2009 14:16
  • Caro Jesiel, muito obrigado pela ajuda!

    Consegui fazer alterando a linha da seguinte forma!

    objDoc.Hyperlinks.Add objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg"), strweb

    Temos esta opção tbm caso alguem queira utilizar, abaixo vou disponibilizar o script pronto, para o pessoal.


    Abraço.

    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 = .Description
    End With

    strCompany = "Porto Advogados"
    strAddress1 = "Av. Nove de Julho, 5.109 - 3º andar"
    strAddress2 = "São Paulo - SP - Brasil"
    strpostalCode = "CEP 01407-200"
    'strl = objUser.l
    'strco = objUser.co
    strPhone = "Fone (55 11) 3079-4244"
    strFax = objUser.facsimileTelephoneNumber
    'strMail = objuser.mail
    strWeb = "http://www.porto.adv.br"
    'strLogo = "\\portoserver01\temp$\LogoAssinatura11.jpg"

    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("\\portoserver01\temp$\LogoAssinatura11.jpg"), strweb
       
        'objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg")
        'objTable.Cell(1, 1).Hyperlinks.Add = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg")
       
        .ParagraphFormat.Alignment = wdAlignParagraphRight
        .TypeParagraph
     
        objTable.Cell(1, 2).Range.Font.Bold = False
        objTable.Cell(1, 2).Range.Font.Size = "10"
        objTable.Cell(1, 2).Range.Font.Name = "Tahoma"
        objTable.Columns(1).Width = objWord.InchesToPoints(1)
        objTable.Cell(1, 2).Range.Text = strName & Chr(11) & strAddress1 & Chr(11) & strAddress2 & Chr(11) & strpostalCode & strco & Chr(11) & strPhone & Chr(11) & Chr(11) & strWeb 
       

    objSelection.EndKey END_OF_STORY

    '   .TypeText Chr(11)
        objSelection.Font.Name = "Tahoma"
        objSelection.Font.Size = "10"
        objSelection.Font.italic = False
        objSelection.Font.Color = Black
        objSelection.Font.Bold = False
        objSelection.TypeText "--------------------------------------------------------------------------------------------------------------------" & chr(11)
        objSelection.TypeText "Esta mensagem e seus anexos são destinados exclusivamente ao(s) destinatário(s) identificado(s) acima e contêm informações confidenciais ou privilegiadas. Se você não é destinatário destes materiais, não está autorizado a utilizá-los para nenhum fim. Solicitamos que você apague a mensagem e seus anexos e avise imediatamente o remetente. O conteúdo desta mensagem e o de seus anexos não representam necessariamente a opinião e a intenção dos advogados integrantes deste escritório, não implicando em qualquer obrigação ou responsabilidade"


      End With

    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "Assinatura Porto", objSelection
    objSignatureObject.NewMessageSignature = "Assinatura Porto"
    objSignatureObject.ReplyMessageSignature = "Assinatura Porto"
    objDoc.Saved = True
    objword.Quit                                                                                

    quarta-feira, 22 de julho de 2009 16:13
  • Boa Tarde,

    Estou precisando de uma ajudona, procurei na net e não achei nada! To começando a achar q não tem como fazer!

    É o seguinte usei um script similar a esse citado acima para inserir minha assinatura, até ai funcionou tudo certo. ´Porém resolveram alterar novamente a assinatura, e na nova, os dados do usuário que são buscados no AD fica em cima da imagem. 

    O logo de um lado da imagem e a direita uma parte mais clara sem nada escrito q deveria ir os dados do usuario

    Não sei se ficou claro, mais se alguem puder me ajudar ficarei muito, mais muito grata!!

     

    Atenciosamente

    sexta-feira, 30 de setembro de 2011 18:31
  • Posta um print de como deve fica a assinatura.


    Fábio de Paula Junior
    sexta-feira, 30 de setembro de 2011 18:56
    Moderador
  • Boa tarde! desculpem reabrir o tópico...

    Utilizei o Script acima e funcionou legal porém como poderia fazer pra alterar a fonte ou cor do nome apenas? gostaria de aumentar a fonte e colocar negrito por exemplo...

    sexta-feira, 12 de fevereiro de 2016 16:57
  • Bom dia,

    Preciso de ajuda para alinhamento da imagem/texto da assinatura.

    A configurei baseado nesta thread e em outras similares (tentei por tabela mas não deu certo).

    Não consigo alinhas as duas imagens (a linha horizontal e a logo) e os dados extraidos do AD a direita. A 2ª imagem (logo) inserida não obedece aos códigos de formatação, somente a 1ª imagem inserida (linha) que consigo configurar corretamente as opções de layout (quadrado, acima/abaixo, justa, etc.).

    A assinatura está ficando assim:

    Com este trecho de código:

    'mais código acima...
    
    Set objSignatureObject = objEmailOptions.EmailSignature
    Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
    With objSelection
    
    .ParagraphFormat.Alignment = wdAlignParagraphRight
    .TypeParagraph
    
    .InlineShapes.AddPicture "\\10.1.0.2\netlogon\scripts\linha2.png", True, True
    objDoc.InlineShapes(1).ConvertToShape
    objDoc.Shapes(1).WrapFormat.Type = 4 'WdWrapTopBottom '4 Coloca o texto acima e abaixo da forma.
    
    .InlineShapes.AddPicture "\\10.1.0.2\netlogon\scripts\rodape-alt8.png", True, True
    objDoc.InlineShapes(2).ConvertToShape
    objDoc.Shapes(2).WrapFormat.DistanceTop = InchesToPoints(0.5)
    objDoc.Shapes(2).WrapFormat.Type = wdWrapSquare ' Envolve o texto em torno da forma. A continuação da linha está no lado oposto da forma.
    
    'Deste ponto abaixo monto a assinatura com dados do AD
    
    REM NOME DO DO USUARIO
    With .Font
    .Name = "Arial"
    .Size = 10
    .Bold = true
    .Color = RGB(0,0,0)
    End With
    strNameComp = Split(strName, ", ")
    strNameP = strNameComp(1)
    strNameS = strNameComp(0)
    .TypeText Chr(11) & strNameP & "" & strNameS & Chr(11)
    
    'mais código abaixo...

    Precisava que ela ficasse configurada/alinhada assim:

    Agradeço a atenção e ajuda.

    att.

    Jefferson.

    quarta-feira, 26 de abril de 2017 12:00
  • Caros existe alguma maneira de inserir um URL nesta imagem que é inserida na assinatura? pelo próprio script?

    Obrigado!

    terça-feira, 31 de outubro de 2017 14:56
  • Jefferson. Boa tarde.

    Será que você poderia me passar no PV o VBS completo dessa assinatura?

    Assinatura aqui na empresa muito parecida com a sua. Poderia me ajudar.

    Obrigado.

    segunda-feira, 15 de outubro de 2018 20:19