none
Assinatura de e-mail via .VBS RRS feed

  • Pergunta

  • Bom dia,

    Sei que já tem vários fóruns sobre esse assunto e até já utilizo um deles, pois bem, na empresa onde eu trabalho teve uma mudança e o "novo" padrão de assinaturas o logo da empresa deve ficar no lado direito de onde tem as informações, porém só encontrei com a imagem no lado esquerdo, e sempre que tento mudar o lado ele da erro no script o modelo atual é assim:

    Nome do Usuário
    Departamento de TI
    Nome da Empresa
    Endereço da empresa, XXXX - 3° andar
    04000-100 - São Paulo - Brazil
    Tel. + 55 11 2222.3333
    Fax. + 55 11 4444.5555
    Email user@dominio.com.br
    Site www.empresa.com.br

    AQUI APARECE O LOGO DA EMPRESA

    e o script que to usando segue esse modelo:

    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 "\\Server\LogoDaEmpresa.jpg", True, True

    End With

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

    se alguém souber fico muito grato;


    sexta-feira, 2 de março de 2018 10:33