none
Inserir logo do WhatsApp em assinatura de e-mail com VBS RRS feed

  • Pergunta

  • Bom dia ! Pessoal

    Estou com uma grande dificuldade em inserir o logo do WathsApp ao lado do numero de celular na assinatura

    Segue meu modelo em VBS

    Const END_OF_STORY = 6
    Const wdFormatHTML = 8


    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 = objUser.Company
    strl = objUser.l
    strco = objUser.co
    strPhone = objUser.TelephoneNumber
    strFax = objUser.facsimileTelephoneNumber
    strMobile = objUser.Mobile
    strWeb = objuser.wWWHomePage
    strMail = objuser.mail
    strUserName = objuser.sAMAccountName
    strPager = objuser.Pager



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

      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.InlineShapes.AddPicture ("C:\Logo_beta.png"),true,True

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

     
     
      objTable.Cell(1, 2).Select
         With .Font
        .Name = "Verdana"
        .Size = 10
        .Bold = True
        .Color = 0
         End With
    .TypeParagraph()
        .TypeText strName & Chr(11)
        

      With .Font
        .Name = "Verdana"
        .Size = 9
        .Bold = False
        .Italic = False
        .Color = 0
    End With
        .TypeText strTitle & Chr(11) & "Email. " & strMail & chr(11) & "PABX. " & strPhone &  Chr(11) & "Cel. "  & strmobile & Chr(11) & "Site. " & strWEB & Chr(11)


           objTable.AutoFormat(16)
        
        
        objTable.Columns(1).Width = objWord.InchesToPoints(1)
        objSelection.EndKey END_OF_STORY 
        objSelection.Font.Name = "Verdana"
        objSelection.Font.Size = "9"
        objSelection.Font.italic = False
        objSelection.Font.Color = Black
        objSelection.Font.Bold = True
        .TypeText Chr(11)
    .InlineShapes.AddPicture "C:\marcas2.png",true,True


    .TypeParagraph()

        objSelection.TypeText "Vai trocar o seu veiculo , nos consulte temos financiamento direto pela Porto Seguro em até 60 ( sessenta ) meses com e sem entrada."
    objSelection.TypeText Chr(11)
    objSelection.TypeText "Quer poupar ? Faça um Consórcio pela Porto Seguro"
    objSelection.TypeText Chr(11)
        objSelection.TypeText "Fale Ilimitado de celular para celular e para Fixo  com a Porto Conecta por apenas R$ 129,99 ( Cento e Vinte  Nove Reais  e Noventa e Nove Centavos por Mês )."

       
        
      End With
     Set objSelection = objDoc.Range()
    objSignatureEntries.Add "Padrao", objSelection
    objSignatureObject.NewMessageSignature = "Padrao"
    objSignatureObject.ReplyMessageSignature = "Padrao"
    objWord.ActiveDocument.Close(False)
          objWord.Quit()
           objWord = Nothing

    Eu tentei de diversas formas, porém não consegui um resultado satisfatório, alguém teria algum modelo pronto com o logo do wathsapp ao lado do numero do celular

    Agradeço desde já, obrigado

    Rodrigo Silva

    segunda-feira, 31 de outubro de 2016 14:00

Respostas

Todas as Respostas

  • Ola Rodrigo Correia da Silva

    ja tentou dessa forma:

    https://social.technet.microsoft.com/Forums/pt-BR/67e1cefd-d5b3-4492-9830-503dedfaba25/script-vbs-com-imagem?forum=scriptadminpt

    Boa sorte

    sexta-feira, 4 de novembro de 2016 14:16
  • Em:

    With
        .TypeText strTitle & Chr(11) & "Email. " & strMail & chr(11) & "PABX. " & strPhone &  Chr(11) & "Cel. "  & strmobile & Chr(11) & "Site. " & strWEB & Chr(11)
    
    
        objTable.AutoFormat(16)
         objTable.Columns(1).Width = objWord.InchesToPoints(1)
        objSelection.EndKey END_OF_STORY 
        objSelection.Font.Name = "Verdana"
        objSelection.Font.Size = "9"
        objSelection.Font.italic = False
        objSelection.Font.Color = Black
        objSelection.Font.Bold = True
        .TypeText Chr(11)
        .InlineShapes.AddPicture "C:\marcas2.png",true,True

    Tente isto:

    .TypeText strTitle & Chr(11) & "Email. " & strMail & chr(11) & "PABX. " & strPhone &  Chr(11) & "Cel. "  & strmobile & " "
    	
    .InlineShapes.AddPicture "C:\teste\whatsapp.png",true,True
    
    .TypeText Chr(11) & "Site. " & strWEB & Chr(11)

    sexta-feira, 4 de novembro de 2016 16:17
  • Olá. Criei um script que faz o processo inverso para gerar a assinatura. Com ele é possível usar um modelo do Word já pronto, substituindo apenas campos-chave.

    Acesse a galeria e faça um teste:

    Galeria - Script para gerar assinatura de e-mail
    segunda-feira, 7 de novembro de 2016 18:31
  • Olá Marcos

    Tentei desta forma mas não consegui inserir a imagem

    obrigado

    quinta-feira, 17 de novembro de 2016 15:02
  • Olá J. Mauricio

    Vou efetuar os testes e depois aviso, obrigado por enquanto.

    quinta-feira, 17 de novembro de 2016 15:03
  • Boa tarde,

    Sei que é um tópico antigo...mas queria ver esse seu script da assinatura em Word, mas o link não traz seu script.....

    Poderia me indicar onde pegar ?

    terça-feira, 2 de março de 2021 20:25