none
Problema com imagem. Assinatura AD em VBS RRS feed

  • Discussão Geral

  • Pessoal Bom dia,

    Peço que me ajudem por favor. O meu problema é o seguinte:

    Tenho este código -> 

    On Error Resume Next
    
    Const END_OF_STORY = 6
    
    Set objSysInfo = CreateObject("ADSystemInfo")
    strUser = objSysInfo.UserName
    Set objUser = GetObject("LDAP://" & strUser)
    With objUser
       strName = "Israel de Oliveira Alcântara"
       strSetor = "Gerência Tecnologia da Informação"
       strCargo = "Analista de Sistemas Jr"
       strPhone = "(092) 3627-5114"
       strMobile = ""
    End With
    
    Set objword = CreateObject("Word.Application")
    With objword
       Set objDoc = .Documents.Add()
       Set objSelection = .Selection
       Set objEmailOptions = .EmailOptions
    End With
    
    Set objSignatureObject = objEmailOptions.EmailSignature
    Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
    With objSelection
       .ParagraphFormat.Alignment = wdAlignParagraphRight
       .TypeParagraph()
    
       '----------------------------------------------
       'Criando tabela
       Set objRange = objSelection.Range
       objDoc.Tables.Add objRange, 1, 6
       Set objTable = objDoc.Tables(1)
       objTable.AutoFitBehavior(1)
       '----------------------------------------------
    
       'Sets up the first cell with the logo inside
       Set objCell = objTable.Cell(1, 1)
       'Set objCellRange = objCell.Range
       'objSelection.Range = objCell.Range
       objCell.Select
       'objSelection.InlineShapes.AddPicture(strLogoPath)
       objSelection.InlineShapes.AddPicture "C:\Users\6548367\Desktop\AssinaturaAngela\Logo.png", True, True
    
       objTable.Cell(1, 2).Range.InlineShapes.AddPicture "C:\Users\6548367\Desktop\AssinaturaAngela\barrav.png",true,True
    
       'Sets up the second cell
       Set objCell = objTable.Cell(1, 3)
       'Set objCellRange = objCell.Range
       objCell.Select
    
       '---------------------------------------------------------
       'Configurar o nome de usuario e o setor
       '---------------------------------------------------------
       With .Font
          .Name = "Verdana"
          .Size = 9
          .Bold = true
          .Italic = false
          objSelection.Font.Color = RGB(0,115,170)
       End With
       .TypeText strName & Chr(11)
       With .Font
          .Size = 8
          .Bold = False
       End With
       .TypeText strCargo & Chr(11)
       .TypeText strSetor & Chr(11)
       .TypeText "Fone: " & strPhone
       If strMobile <> "" Then
          .TypeText  " / " & strMobile
       End If
       .TypeText Chr(11)
       .TypeText "www.manausambiental.com.br"
    
       objTable.Cell(1, 4).Range.InlineShapes.AddPicture "C:\Users\6548367\Desktop\AssinaturaAngela\branco.png",true,True
    
       'Sets up the third cell with the logo inside
       Set objCell = objTable.Cell(1, 5)
       'Set objCellRange = objCell.Range
       'objSelection.Range = objCell.Range
       objCell.Select
       objTable.Cell(1, 5).Range.InlineShapes.AddPicture "C:\Users\6548367\Desktop\AssinaturaAngela\marca3.png",true,True
       objTable.Cell(1, 6).Range.InlineShapes.AddPicture "C:\Users\6548367\Desktop\AssinaturaAngela\teste.png",true,True
    
       objSelection.EndKey END_OF_STORY
       End With
    
    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "AD Signature", objSelection
    objSignatureObject.NewMessageSignature = "AD Signature"
    objSignatureObject.ReplyMessageSignature = "AD Signature"
    objDoc.Saved = True
    objword.Quit


    que gera a assinatura que esta anexada como imagem1

    A unica coisa que quero poder alterar é o texto em azul. para que fique como está na imagem2 anexada

    me ajudem pessoal... por favor .. só falta finalizar isso



    segunda-feira, 2 de setembro de 2013 15:14

Todas as Respostas

  • Não consigo anexar imagem... fica dando uma mensagem que ainda vão verificar minha conta pra ver seu eu posso inserir... não entendi :/
    segunda-feira, 2 de setembro de 2013 15:22
  • Israel,

    Só encontrei uma linha que trata de cor de fonte, é a que começa com objSelection.Font.Color, alterei para RGB 0,0,0, isto significa preto.

    objSelection.Font.Color = RGB(0,0,0)


    Fábio de Paula Junior

    segunda-feira, 2 de setembro de 2013 17:10
    Moderador
  • Fábio,

    O meu código não tem erro nenhum por enquanto... o meu problema é com imagem!

    Mas não tem como eu mostra para você e o restante do pessoal, pois aqui no fórum não estou conseguindo inserir ou anexar imagem. Por que da a seguinte mensagem -> O corpo do texto não pode conter imagens ou links, até que possamos verificar sua conta!

    é por isso que ainda não pude anexar as imagens, para vocês identificarem o problema e tentar me ajudar...

    O que posso fazer é perguntar para o pessoal, se do jeito que está o meu código, eu consigo criar mais uma tabela... eu tenho uma por enquanto... eu quero criar mais uma...

    alguém sabe como ter 2 tabelas ai do mesmo jeito?

    segunda-feira, 2 de setembro de 2013 18:26
  • Desculpe, li apenas a primeira postagem (A unica coisa que quero poder alterar é o texto em azul.).

    Tente usar um outro navegador para anexar a imagem.


    Fábio de Paula Junior

    segunda-feira, 2 de setembro de 2013 23:33
    Moderador
  • Israel

    Algum retorno?


    Fernando Henrique da Silva – Microsoft Contingent Staff

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

    TechNet Community Support

    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quinta-feira, 5 de setembro de 2013 14:36