Remove From My Forums

Script VBS com Imagem

Pergunta

Entrar para Votar

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

0

Entrar para Votar
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
- Marcado como Resposta Carlos Henrique Lucas sábado, 17 de julho de 2010 20:44
quarta-feira, 22 de julho de 2009 16:13

Responder

|

Citação

Todas as Respostas

0

Entrar para Votar

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

Responder

|

Citação
1

Entrar para Votar

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

Responder

|

Citação
0

Entrar para Votar

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

Responder

|

Citação
2

Entrar para Votar

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

Responder

|

Citação
0

Entrar para Votar
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
- Marcado como Resposta Carlos Henrique Lucas sábado, 17 de julho de 2010 20:44
quarta-feira, 22 de julho de 2009 16:13

Responder

|

Citação
0

Entrar para Votar

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

Responder

|

Citação
0

Entrar para Votar

Posta um print de como deve fica a assinatura.
Fábio de Paula Junior

sexta-feira, 30 de setembro de 2011 18:56

Responder

|

Citação

Moderador
0

Entrar para Votar

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

Responder

|

Citação

Entrar para Votar

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

0

Entrar para Votar

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

Responder

|

Citação
0

Entrar para Votar

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

Responder

|

Citação

Produtos

Resources

Solutions

Atualizações

Avaliações

Sites relacionados

Treinamento

Certificações

Outros recursos

Por produtos

Outros links

Não é um IT Pro?

Usuário com melhor resposta

Script VBS com Imagem

Pergunta

Respostas

Todas as Respostas

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