none
Assinatura de email via script vbs RRS feed

  • Pergunta

  •   Bom Dia

     Estou implantando uma assinatura de e-mail padrão , mas estou com problemas em duas questões :

     - Como colocar o logo do lado esquerdo do texto ;

     - No Outlook 2010 funciona mas no 2013 informações do AD não aparecem.

      Se alguém tiver alguma luz agradeço , segue script abaixo :

      
    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
    strtitle = objuser.title
    
    
    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)
    
        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 "Tel. + " & strPhone & Chr(11) & strAddress & Chr(11) & strco  & strl & " - " & strpostalCode & Chr(11)
        .TypeText Chr(11)
        .InlineShapes.AddPicture "\\10.1.1.4\netlogon\logobds.jpg", True, True
        .TypeText Chr(11)
        
    	objSelection.Font.Size = "8"
    	objSelection.Font.italic = true
    	objSelection.Font.Color = 8421504
    	objSelection.Font.Bold = False  
    	objSelection.TypeText "Missão : Apoiar o desenvolvimento e o crescimento dos clientes"
    
    
    End With
    
    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "AD Signature", objSelection
    objSignatureObject.NewMessageSignature = "AD Signature"
    objSignatureObject.ReplyMessageSignature = "AD Signature"
    objDoc.Saved = True
    objword.Quit



    • Editado Fábio JrModerator sexta-feira, 30 de agosto de 2013 12:36 Formatação do código
    quarta-feira, 14 de agosto de 2013 10:34

Respostas

  • Felipe,

    Acredito que vc usa este script como scritp de logon.

    Experimente apagar a primeira linha (On error resume next) e execute o script(dois cliques ou cscript nomedoscript.vbs no prompt) no ambiente onde você reclama de problemas, veja se ele acusa algum problema.

    O On error resume next faz com que o script passe "batido" pelos erros, quando for debugar um script é bom comentar esta linha.


    Fábio de Paula Junior


    quarta-feira, 21 de agosto de 2013 16:45
    Moderador

Todas as Respostas

  •  Quanto a colocar ao lado , já pré solucionei , mas no 2013 algumas informações não puxam do AD.
    quinta-feira, 15 de agosto de 2013 13:16
  • Felipe,

    Acredito que vc usa este script como scritp de logon.

    Experimente apagar a primeira linha (On error resume next) e execute o script(dois cliques ou cscript nomedoscript.vbs no prompt) no ambiente onde você reclama de problemas, veja se ele acusa algum problema.

    O On error resume next faz com que o script passe "batido" pelos erros, quando for debugar um script é bom comentar esta linha.


    Fábio de Paula Junior


    quarta-feira, 21 de agosto de 2013 16:45
    Moderador
  • A mensagem de erro que aparece :

    Linha: 7

    Caract.: 1

    Erro: O  dominio especificado não existe ou não pode ser contatado

    Estranho é que a maquina esta no dominio...

    sexta-feira, 23 de agosto de 2013 09:27
  •  A principio esta tudo 100% , apenas não estou conseguindo que o script configure a assinatura no Outlook , a assinatura aparece no Outlook, mas tenho que seleciona-la não configura automaticamente.

      Alguém saberia o porque ?

    segunda-feira, 26 de agosto de 2013 12:15
  •  Consegui aplicar via Gpo mas quando inicia a estação aparece uma mensagem de erro informando que há uma instancia do Outlook sendo iniciada , depois de alguns segundos é só dar um ok no erro e utilizar o outlook normalmente , mas no dia seguinte a mensagem aparece novamente.

     Alguem teria alguma idéia ?

    sexta-feira, 30 de agosto de 2013 00:26
  • Felipe, Exceto a mensagem de erro, o script está funcionando? Se sim basta você habilitar novamente a primeira linha (on error resume next).

    Fábio de Paula Junior

    sexta-feira, 30 de agosto de 2013 12:33
    Moderador
  • Felipe,

    Resolvido?


    Fábio de Paula Junior

    quinta-feira, 5 de setembro de 2013 21:53
    Moderador
  • Resolvido em parte , ele funciona mas ao iniciar a maquina ele apresenta a seguinte mensagem de erro :

      "Não é possivel atualizar repositório Imap corretamente Convém reiniciar o Outlook antes de Continuar"

     Saberia o que pode ser ?

     

    segunda-feira, 23 de setembro de 2013 10:18