none
Assinatura de email script .vbs RRS feed

  • Pergunta

  • Tenho uma assinatura em vbs que busca campos do AD. 

    Estou tentando produzir uma nova assinatura onde a imagem tem que ficar em background, como posso fazer?

    Segue o script que estou utilizando:

    _________________________________               

    On Error Resume Next


    Set objSysInfo = CreateObject("ADSystemInfo")
    strUser = objSysInfo.UserName

    Set objUser = GetObject("LDAP://" & strUser) 

    strName = objUser.FullName
    strTitle = objUser.Title
    strDepartment = objUser.Department
    strOffice = objUser.physicalDeliveryOfficeName
    strCompany = objUser.Company
    strPhone = objUser.telephoneNumber
    strFax = objUser.facsimileTelephoneNumber
    strWeb = objuser.wWWHomePage
    strLogo = "\\servidor\logo.png"
    strtexto = "teste"

    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

    objSelection.Font.Size = "10,5"
    objSelection.Font.Name = "Calibri"
    objSelection.Paragraphs.LineSpacingRule = wdLineSpaceSingle
    objselection.Paragraphs.SpaceAfter = 0
    objSelection.Font.Color = 9211020

    objDoc.Tables.Add objRange, 2, 2
    Set objTable = objDoc.Tables(1)
    objTable.Borders.Enable = False

    objTable.Columns(1).Width = objWord.InchesToPoints(1.5)
    objTable.Columns(2).Width = objWord.InchesToPoints(10)
    objtable.cell(1, 1).merge (objtable.cell(1,2))
    objTable.Cell(1, 1).Range.text = "______________________________________________________________________________________________________"
    objTable.Cell(2, 1).Select
    objSelection.InlineShapes.AddPicture(strLogo)

    objTable.Cell(2, 2).Select

    objSelection.Font.Bold = True 
    objSelection.TypeText strName & VbCr 
    objSelection.Font.Bold = False
    objSelection.TypeText strTitle & VbCr 
    objSelection.TypeText strDepartment & VbCr
    objSelection.TypeText strOffice & VbCr
    objSelection.TypeText strCompany & VbCr
    objSelection.TypeText strPhone & VbCr 
    objSelection.TypeText strtexto & VbCr
    objSelection.TypeText strWeb


    objSignatureEntries.Add "Signature", objRange
    objSignatureObject.NewMessageSignature = "Signature"
    objSignatureObject.ReplyMessageSignature = "Signature"

    objDoc.Saved = True
    objWord.Quit

    _____________________________________________________

    Tenho que produzir essa nova assinatura:

    Estou com dificuldade para colocar a imagem em background em uma tabela no vbscript


    • Editado Arlem Santana quinta-feira, 21 de fevereiro de 2019 13:26
    quinta-feira, 21 de fevereiro de 2019 13:18

Todas as Respostas

  • Boa tarde,

    Estou com a mesma necessidade que a sua.

    Conseguiu uma solução ?

    Sei que o tópico já tem 2 anos.....mas tenho esperança numa solução.

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