none
Ajuda RRS feed

  • Pergunta

  • Ola a todos.

     

    Gostaria de saber como posso fazer para ao Inves de buscar as informações do AD ele pegue de uma Pagina WEB "HTML" e coloque como assinatura, pois no exemplo eu só aceita imagem.

     

    Obrigado

    quinta-feira, 13 de setembro de 2007 10:59

Respostas

  • Pessoal, o que o Makinamara precisa é de uma maneira de colocar o texto com cores diferentes. Por exemplo, o nome em vermelho. Mexi o máximo no script aqui, mas não consegui mudar a cor.. se alguém souber...

     

     

    • Marcado como Resposta Makinamara quinta-feira, 7 de março de 2013 18:46
    sexta-feira, 14 de setembro de 2007 17:41

Todas as Respostas

  • Bom dia Makinamara,

     

    Você pode usar o script abaixo:

     

    Code Snippet

    On Error Resume Next


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

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

    strName = objUser.FullName
    strFirstName = objuser.givenName
    StrLastName = objuser.sn
    strTitle = objUser.Title
    strDepartment = objUser.Department
    strCompany = objUser.Company
    strAddress = objuser.streetAddress
    strCity = objuser.l
    strState = objuser.st
    strZip = objuser.postalCode
    strPhone = objUser.telephoneNumber
    strMobilePhone = objUser.mobile
    strMail = objuser.mail
    strLocation = objuser.physicalDeliveryOfficeName
    strWeb = objuser.wWWHomePage
    strLogo = "http://forums.microsoft.com/library/toolbar/3.0/images/banners/TechNetB_masthead_ltr.gif"

    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 = "9"
    objSelection.Font.Name = "Tahoma"

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

    objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture(strLogo)
    objTable.Columns(1).Width = objWord.InchesToPoints(1)

    objTable.Cell(1, 2).Select
    objSelection.Font.Bold = True
    objSelection.TypeText strFirstName & " " & strLastName & " | " & strTitle
    objSelection.Font.Bold = False
    objSelection.TypeParagraph()
    objSelection.TypeText strCompany & " | " & strAddress & " | " & strCity & ", " & strState & " " & strZip
    objSelection.TypeParagraph()
    objSelection.TypeText "office: " & strPhone & " | " & " email: " & strMail & " | " &  " website: " & strWeb

    'objSelection.TypeParagraph()
    'objSelection.Hyperlinks.Add objSelection.range, "mailto:" & strMail, , , strMail
    'objSelection.TypeParagraph()
    'objSelection.Hyperlinks.Add objSelection.range, strWeb, , , strCompany
    objTable.Columns(2).Width = objWord.InchesToPoints(0)


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

    objDoc.Saved = True
    objWord.Quit

     

     

     

    Espero ter ajudado, caso tenha, marque como resposta.

    quinta-feira, 13 de setembro de 2007 12:26
  •  

    TI - Eder Pardeiro

     

    Aqui na empresa todas as Assinaturas são criadas em Html ou Word, elas já estão prontas , gostaria de estar usando elas para colocar nos usuarios.

     

    Se eu colocar o caminho da assinatura pronta ele não aceita.

     

    Existe algum forma.

     

    Obrigado

    sexta-feira, 14 de setembro de 2007 13:23
  • Pessoal, o que o Makinamara precisa é de uma maneira de colocar o texto com cores diferentes. Por exemplo, o nome em vermelho. Mexi o máximo no script aqui, mas não consegui mudar a cor.. se alguém souber...

     

     

    • Marcado como Resposta Makinamara quinta-feira, 7 de março de 2013 18:46
    sexta-feira, 14 de setembro de 2007 17:41