none
Script para assinatura de E-MAIL. RRS feed

  • Pergunta

  • Olá,

    Estou com uma dificuldade, tenho que criar um script para assinatura de e-mail via GPO, pesquisando no google encontrei vários, porem nenhum é como eu preciso, o mais próximo seria o que vou deixar abaixo, o problema né no logo e no espaçamento das palavras, na minha empresa o logo deve fica a direita se alguém conseguir me ajudar. 

    '--------------------------------------------------
    ' Script de Configuração das Assinaturas do OUTLOOK
    '--------------------------------------------------
    On Error Resume Next

    Set objSysInfo = CreateObject("ADSystemInfo")
    strUser = objSysInfo.UserName
    Set objUser = GetObject("LDAP://" & strUser)

    '----------------------------------------------------------------------------' 
    'Campos selecionados no AD
    ' DisplayName, Title, HomePhone, FacsimileTelephoneNumber, IpPhone, Mobile e Pager
    '----------------------------------------------------------------------------
    strNome = objUser.DisplayName
    strDpto = objUser.Title
    strTelDireto = objuser.homePhone
    strCelular = objuser.mobile
    strNextel = objuser.facsimileTelephoneNumber
    strIdNextel = objuser.pager
    strMSN = objuser.ipPhone
    strEMail = objuser.mail
    strEmpresa = objUser.Company 
    strLogo = "\\192.168.5.5\netlogon\logo\logoHDP.jpg"

    '----------------------
    ' Criação de Assinatura
    '----------------------
    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




    '---------------------------------------------------------------------------------
    ' Define fonte e corpo Email
    '---------------------------------------------------------------------------------
    'objSelection.Font.Size = "10"
    'objSelection.Font.Name = "Arial"
    'objSelection.Font.Bold = False
    'objSelection.Font.Color = RGB(0,70,125)
    'objSelection.TypeParagraph()
    'objSelection.TypeParagraph()

    '---------------------------------------------------------------------------------
    ' Define fonte Nome
    '---------------------------------------------------------------------------------
    objSelection.Font.Size = "14"
    objSelection.Font.Name = "Estrangelo Edessa "
    objSelection.Font.Bold = False
    'objSelection.Font.Color = RGB(0,70,125)
    objSelection.TypeText " " & strNome
    objSelection.TypeParagraph()

    '---------------------------------------------------------------------------------
    ' Define fonte Cargo
    '---------------------------------------------------------------------------------
    objSelection.Font.Size = "8"
    objSelection.Font.Name = "Arial"
    objSelection.Font.Bold = False
    'objSelection.Font.Color = RGB(102,102,102)
    objSelection.TypeText " " & strDpto
    objSelection.TypeParagraph()

    '---------------------------------------------------------------------------------
    ' Define Setor
    '---------------------------------------------------------------------------------
    objSelection.TypeText " " & strMSN
    objSelection.TypeParagraph()

    '---------------------------------------------------------------------------------
    ' Define fonte demais informações
    '---------------------------------------------------------------------------------
    objSelection.Font.Size = "8"
    objSelection.Font.Name = "Arial"
    objSelection.Font.Bold = False
    'objSelection.Font.Color = RGB(102,102,102)


    ' Cria link e exibe email
    objSelection.TypeText " ":
    objSelection.Hyperlinks.Add objSelection.range, "mailto:" & strEMail, , , strEMail
    objSelection.TypeParagraph()
    '---------------------------------------------------------------------------------

    '---------------------------------------------------------------------------------
    ' Condição para inserir telefones SE existir
    '---------------------------------------------------------------------------------
    ' Condição para inserir Telefono Direto

    ' Condição para inserir Celular
    If strCelular <> "" Then
    objSelection.TypeText " " & strCelular
    objSelection.TypeParagraph()
    End If


    ' Condição para inserir Nextel
    If strNextel <> "" Then
    objSelection.TypeText " " & strNextel
    objSelection.TypeParagraph()
    End If

    if strTelDireto <> "" Then
    objSelection.TypeText " " & strTelDireto
    'objSelection.TypeParagraph()
    End If
    ' Condição para inserir ID Nextel
    If strIdNextel <> "" Then
    objSelection.TypeText " Ramal: " & strIdNextel
    objSelection.TypeParagraph()
    End If

    ' Condição para inserir MSN
    'If strMSN <> "" Then
    ' objSelection.TypeText " IM MSN: " & strMSN
    ' objSelection.TypeParagraph()
    'End If


    '---------------------------------------------------------------------------------
    ' Inseri JPEG
    '---------------------------------------------------------------------------------
    objSelection.InlineShapes.AddPicture(strLogo)


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

    objDoc.Saved = True
    objWord.Quit

    segunda-feira, 24 de outubro de 2016 15:41