Usuário com melhor resposta
Duvida com assinatura

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
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
- Sugerido como Resposta Fábio JrModerator quarta-feira, 12 de setembro de 2012 22:40
- Editado Fábio JrModerator quarta-feira, 12 de setembro de 2012 22:41 path
- Marcado como Resposta Fábio JrModerator sexta-feira, 14 de setembro de 2012 22:02
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
- Sugerido como Resposta Fábio JrModerator quarta-feira, 12 de setembro de 2012 22:40
- Editado Fábio JrModerator quarta-feira, 12 de setembro de 2012 22:41 path
- Marcado como Resposta Fábio JrModerator sexta-feira, 14 de setembro de 2012 22:02
-
-
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