none
Ajuda no Script de Assinatura RRS feed

  • Pergunta

  • Possuo esse Script que consegui com vcs para assinatura no....

    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
    strAddress = objUser.streetAddress
    strpostalCode = objUser.postalCode
    strl = objUser.l
    strco = objUser.co
    strPhone = objUser.TelephoneNumber
    strFax = objUser.facsimileTelephoneNumber
    strMail = objuser.mail
    strWeb = objuser.wWWHomePage


    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

      With .Font
        .Name = "Verdana"
        .Size = 10
        .Bold = false
      End With
        .TypeText strName & Chr(11)
      With .Font
        .Name = "Verdana"
        .Size = 8
        .Bold = False
        .Italic = False
      End With
        .TypeText strTitle & Chr(11)
        .TypeText Chr(11)

        objSelection.Font.Size = "10"
        objSelection.Font.Name = "verdana"  
        objSelection.Font.Bold = True  
        objSelection.TypeText strCompany
        objSelection.Font.Bold = True
        .TypeText Chr(11)


      With .Font
        .Name = "Verdana"
        .Size = 8
        .Bold = false
      End With
        .Font.Italic = False
        .TypeText strAddress & Chr(11) & strpostalCode & " - " & strl & " - " & strco & Chr(11) & "Tel. + " & strPhone & Chr(11) & "Fax. + " & strFax & Chr(11) & "Email " & strMail & Chr(11) & "Site " & strWeb & Chr(11)
        .TypeText Chr(11)
        .InlineShapes.AddPicture "\\ti-02\_Util\logo.jpg", True, True

        .TypeText Chr(11)
        .TypeText Chr(11)
    objSelection.Font.Size = "8"
        objSelection.Font.italic = true
        objSelection.Font.Color = 8421504
        objSelection.Font.Bold = False
        objSelection.TypeText "Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o e-mail, e em seguida apague-o. Agradecemos sua cooperação."

        .TypeText Chr(11)
        .TypeText Chr(11)
    objSelection.Font.Size = "8"
        objSelection.Font.italic = true
        objSelection.Font.Color = 8421504  
        objSelection.Font.Bold = False
        objSelection.TypeText "This message may contain confidential and/or privileged information. If you are not the address or authorized to receive this for the address, you must not use, copy, disclose or take any action base on this message or any information herein. If you have received this message in error, please advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation"


      End With

    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "AD Signature", objSelection
    objSignatureObject.NewMessageSignature = "AD Signature"
    objSignatureObject.ReplyMessageSignature = "AD Signature"
    objDoc.Saved = True
    objword.Quit


    E gostaria de colocalo nesse formato abaixo.... Já mexi em algumas configurações e não obtive sucesso.

    Alguem poderia me ajudar.

    Obrigado.

           Imagem

    Nome
    cargo usuario
    Departamento

    Tel.: (XX)XXXX-XXXX
    E-mail: fulano@teste.com.brr
    Acesse nosso site! www.microsoft.com







    • Editado David182 quarta-feira, 8 de julho de 2009 19:01
    quarta-feira, 8 de julho de 2009 18:46

Respostas

  • Olá,

    Acho que você terá que criar uma tabela.

    Dá uma olhada no link abaixo:
    http://www.activexperts.com/activmonitor/windowsmanagement/scripts/msoffice/word/#AFTWDocu.htm


    Segue uma modificação do seu script, porém precisa colocar as fontes como você deseja:

    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 = objUser.Company
    strAddress = objUser.streetAddress
    strpostalCode = objUser.postalCode
    strl = objUser.l
    strco = objUser.co
    strPhone = objUser.TelephoneNumber
    strFax = objUser.facsimileTelephoneNumber
    strMail = objuser.mail
    strWeb = objuser.wWWHomePage


    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("\\ti-02\_Util\logo.jpg")
     
        .ParagraphFormat.Alignment = wdAlignParagraphRight
        .TypeParagraph

        objTable.Cell(1, 2).Range.Font.Bold = True
        objTable.Cell(1, 2).Range.Font.Size = "10"
        objTable.Cell(1, 2).Range.Font.Name = "verdana" 
        objTable.Cell(1, 2).Range.Text =  strName & Chr(11) & "strTitle" & Chr(11)& "strPostalCode" & " - " & "strl" & " - " & strco & Chr(11) & "Tel. + " & strPhone & Chr(11) & "Fax. + " & strFax & Chr(11) & "Email " & strMail & Chr(11) & "Site " & strWeb & Chr(11)

    objSelection.EndKey END_OF_STORY

        .TypeText Chr(11)
        .TypeText Chr(11)
    objSelection.Font.Size = "8"
        objSelection.Font.italic = true
        objSelection.Font.Color = 8421504
        objSelection.Font.Bold = False
        objSelection.TypeText "Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o e-mail, e em seguida apague-o. Agradecemos sua cooperação."

        .TypeText Chr(11)
       objSelection.Font.Size = "8"
        objSelection.Font.italic = true
        objSelection.Font.Color = 8421504 
        objSelection.Font.Bold = False
        objSelection.TypeText "This message may contain confidential and/or privileged information. If you are not the address or authorized to receive this for the address, you must not use, copy, disclose or take any action base on this message or any information herein. If you have received this message in error, please advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation"


      End With

    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "AD Signature", objSelection
    objSignatureObject.NewMessageSignature = "AD Signature"
    objSignatureObject.ReplyMessageSignature = "AD Signature"
    objDoc.Saved = True
    objword.Quit


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Marcado como Resposta David182 terça-feira, 14 de julho de 2009 14:30
    segunda-feira, 13 de julho de 2009 14:07

Todas as Respostas

  • Olá,

    Acho que você terá que criar uma tabela.

    Dá uma olhada no link abaixo:
    http://www.activexperts.com/activmonitor/windowsmanagement/scripts/msoffice/word/#AFTWDocu.htm


    Segue uma modificação do seu script, porém precisa colocar as fontes como você deseja:

    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 = objUser.Company
    strAddress = objUser.streetAddress
    strpostalCode = objUser.postalCode
    strl = objUser.l
    strco = objUser.co
    strPhone = objUser.TelephoneNumber
    strFax = objUser.facsimileTelephoneNumber
    strMail = objuser.mail
    strWeb = objuser.wWWHomePage


    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("\\ti-02\_Util\logo.jpg")
     
        .ParagraphFormat.Alignment = wdAlignParagraphRight
        .TypeParagraph

        objTable.Cell(1, 2).Range.Font.Bold = True
        objTable.Cell(1, 2).Range.Font.Size = "10"
        objTable.Cell(1, 2).Range.Font.Name = "verdana" 
        objTable.Cell(1, 2).Range.Text =  strName & Chr(11) & "strTitle" & Chr(11)& "strPostalCode" & " - " & "strl" & " - " & strco & Chr(11) & "Tel. + " & strPhone & Chr(11) & "Fax. + " & strFax & Chr(11) & "Email " & strMail & Chr(11) & "Site " & strWeb & Chr(11)

    objSelection.EndKey END_OF_STORY

        .TypeText Chr(11)
        .TypeText Chr(11)
    objSelection.Font.Size = "8"
        objSelection.Font.italic = true
        objSelection.Font.Color = 8421504
        objSelection.Font.Bold = False
        objSelection.TypeText "Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o e-mail, e em seguida apague-o. Agradecemos sua cooperação."

        .TypeText Chr(11)
       objSelection.Font.Size = "8"
        objSelection.Font.italic = true
        objSelection.Font.Color = 8421504 
        objSelection.Font.Bold = False
        objSelection.TypeText "This message may contain confidential and/or privileged information. If you are not the address or authorized to receive this for the address, you must not use, copy, disclose or take any action base on this message or any information herein. If you have received this message in error, please advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation"


      End With

    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "AD Signature", objSelection
    objSignatureObject.NewMessageSignature = "AD Signature"
    objSignatureObject.ReplyMessageSignature = "AD Signature"
    objDoc.Saved = True
    objword.Quit


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Marcado como Resposta David182 terça-feira, 14 de julho de 2009 14:30
    segunda-feira, 13 de julho de 2009 14:07
  • Ok jesiel vou fazer um teste aki e te retorno!!!
    David Dellacenta http://www.andersonpatricio.org http://www.itcentral.com.br
    segunda-feira, 13 de julho de 2009 15:15
  • Isso mesmo Jesiel....

    So alterei as fontes e ficou blz!!
    David Dellacenta http://www.andersonpatricio.org http://www.itcentral.com.br
    terça-feira, 14 de julho de 2009 14:31
  • Olá pessoal,

    Alguém sabe como se adiciona Linha nesse script?

    Obrigado


    Leandro S. - MCT,MCP,MCTS,MCITP Enterprise Administrator.

    quarta-feira, 29 de agosto de 2012 13:19