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.
