none
Duvida com assinatura RRS feed

  • Pergunta

  • Pessoal,

    Encontrei diversas opções de assinatura no fórum, mas, não encontrei como salva-la apenas em HTML.

    Na empresa que trabalho o correio não é Outlook e precisamos anexar o HTML no email. 

    É possível utilizar o VBS apenas para gerar o HTML em um caminho "X" ?

    Abaixo segue o código que encontrei.

    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 = "Porto Advogados"
    strAddress1 = "Av. Nove de Julho, 5.109 - 3º andar"
    strAddress2 = "São Paulo - SP - Brasil"
    strpostalCode = "CEP 01407-200"
    'strl = objUser.l
    'strco = objUser.co
    strPhone = "Fone (55 11) 3079-4244"
    strFax = objUser.facsimileTelephoneNumber
    'strMail = objuser.mail
    strWeb = "http://www.porto.adv.br"
    'strLogo = "\\portoserver01\temp$\LogoAssinatura11.jpg"
    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()
         objDoc.Hyperlinks.Add objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg"), strweb 
        
        'objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg") 
        'objTable.Cell(1, 1).Hyperlinks.Add = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg") 
        
        .ParagraphFormat.Alignment = wdAlignParagraphRight
        .TypeParagraph
     
        objTable.Cell(1, 2).Range.Font.Bold = False
        objTable.Cell(1, 2).Range.Font.Size = "10"
        objTable.Cell(1, 2).Range.Font.Name = "Tahoma" 
        objTable.Columns(1).Width = objWord.InchesToPoints(1)
        objTable.Cell(1, 2).Range.Text = strName & Chr(11) & strAddress1 & Chr(11) & strAddress2 & Chr(11) & strpostalCode & strco & Chr(11) & strPhone & Chr(11) & Chr(11) & strWeb  
    objSelection.EndKey END_OF_STORY
    '   .TypeText Chr(11)
        objSelection.Font.Name = "Tahoma"
        objSelection.Font.Size = "10"
        objSelection.Font.italic = False
        objSelection.Font.Color = Black
        objSelection.Font.Bold = False 
        objSelection.TypeText "--------------------------------------------------------------------------------------------------------------------" & chr(11)
        objSelection.TypeText "Esta mensagem e seus anexos são destinados exclusivamente ao(s) destinatário(s) identificado(s) acima e contêm informações confidenciais ou privilegiadas. Se você não é destinatário destes materiais, não está autorizado a utilizá-los para nenhum fim. Solicitamos que você apague a mensagem e seus anexos e avise imediatamente o remetente. O conteúdo desta mensagem e o de seus anexos não representam necessariamente a opinião e a intenção dos advogados integrantes deste escritório, não implicando em qualquer obrigação ou responsabilidade"
    
      End With
    Set objSelection = objDoc.Range()
    objSignatureEntries.Add "Assinatura Porto", objSelection
    objSignatureObject.NewMessageSignature = "Assinatura Porto"
    objSignatureObject.ReplyMessageSignature = "Assinatura Porto"
    objDoc.Saved = True
    objword.Quit                  

                                           


    Obrigado.


    • Editado Fábio JrModerator terça-feira, 11 de setembro de 2012 22:04 Formato do código
    terça-feira, 11 de setembro de 2012 20:58

Respostas

  • Vinicius,

    Lá no final do seu script antes da linha

    objword.Quit


    Adicione esta:

    objDoc.saveas "c:\assinaturaemail\x.htm",10


    No exemplo eu salvei no C:\temp\teste.htm, basta você alterar o local e nome do arquivo.

    E já que vc não vai usar o Outlook vc pode apagar ou comentar as linha abaixo:

    'objSignatureEntries.Add "Assinatura Porto", objSelection
    'objSignatureObject.NewMessageSignature = "Assinatura Porto"
    'objSignatureObject.ReplyMessageSignature = "Assinatura Porto"


    Fábio de Paula Junior



    terça-feira, 11 de setembro de 2012 22:15
    Moderador

Todas as Respostas

  • Vinicius,

    Lá no final do seu script antes da linha

    objword.Quit


    Adicione esta:

    objDoc.saveas "c:\assinaturaemail\x.htm",10


    No exemplo eu salvei no C:\temp\teste.htm, basta você alterar o local e nome do arquivo.

    E já que vc não vai usar o Outlook vc pode apagar ou comentar as linha abaixo:

    'objSignatureEntries.Add "Assinatura Porto", objSelection
    'objSignatureObject.NewMessageSignature = "Assinatura Porto"
    'objSignatureObject.ReplyMessageSignature = "Assinatura Porto"


    Fábio de Paula Junior



    terça-feira, 11 de setembro de 2012 22:15
    Moderador
  • vinicius,

    vc já havia iniciado outro tópico sobre o mesmo assunto, que já até respondi, vou unificar os dois.


    Fábio de Paula Junior

    quarta-feira, 12 de setembro de 2012 22:38
    Moderador
  • Tranquilo Fábio, desculpe.

    Me tire uma outra duvida.

    Preciso deixar a primeira linha na cor azul e em negrito.

    Outra coisa, ele só está puxando do AD só a informação do nome.

    Preciso que puxe nesta ordem

    Nome: Em negrito na cor azul marinho 

    Cargo:

    Departamento:

    Email

    Telefone: Se fosse possivel abrir um prompt para o usuário digitar o ramal. Por exemplo +5511 XXXX-XXXX Ramal XXXX

    Endereço:

    Site da empresa

    quinta-feira, 13 de setembro de 2012 12:41