Adicionar/Mudar a assinatura do Outlook via VBA

Question

Como adicionar/mudar a assinatura do Outlook via VBA dependendo de uma determinada situação...

No meu Outlook possuo 2 assinaturas pre definidas (Interno e Externo)

Já possuo um Script que identifica quando o e-mail é Externo ou Interno

Exemplo básico do script utilizado

Sub InternalMail(olMail As MailItem)
    Dim rec As Recipient
    Dim myDomain1 As String
    Dim tpMail As String

    myDomain1 = "@domain.com.br"

    If (InStr(1, olMail.SenderEmailAddress, myDomain1) > 0) Then
        For Each rec In olMail.Recipients
          cMail = LCase(rec.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x39FE001E"))
            If (InStr(1, cMail, myDomain1) > 0) Then
              tpMail = "Interno"
            Else
              tpMail = "Externo"
              Exit For
            End If
        Next
    Else
        tpMail = "Externo"
    End If

    MsgBox tpMail
End Sub


Sub Test()
Dim olMsg As MailItem
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    InternalMail olMsg
End Sub

Alguém saberia informar como adicionar essa assinatura?

Exemplo: Outlook.Signature("Interno").Add

Answer 1

Veja o exemplo 2 deste site: http://www.rondebruin.nl/win/s1/outlook/signature.htm

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 2

Bom dia!

Desde de já agradeço a atenção.

Não existe outra forma de adicionar ? tem que ser feito adicionando diretamente o arquivo html ?

Answer 3

Até onde sei não, mas nunca pesquisei a fundo o assunto.

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 4

Porque se eu fizer da forma como você informou e adicionar o arquivo html, as imagem contidas nesse arquivo, não são enviadas junto ao e-mail, e ao abrir o mesmo no destinatário observei que o SRC da imagem está apontando para o mesmo caminho na minha maquina.

Exemplo:

src="file:///C:\Users\roberto\AppData\Roaming\Microsoft\Signatures\roberto_arquivos\image001.png"

Answer 5

Anexe image001.png no e-mail altere o código para src:="image001.png"

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 6

Então além de utilizar o script que você indicou eu preciso anexar a imagem da assinatura ?

Answer 7

Sim, e você pode fazer isso através do VBA usando olMail.Attachments.Add "c:\caminho\image001.png"

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 8

Não, faz sentido isso... como a assinatura já definida no outlook não precisa fazer isso?

Answer 9

É possível embeber uma imagem no corpo do e-mail, mas a rotina é mais complicada e não tenho mais um exemplo de como se fazer isso. Se estiver interessado, pode pesquisar.

Alternativamente, coloque a imagem numa URL válida sua e use src="http://www.seusite.com.br/Image01.png"

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 10

Creio que a primeira resposta do link http://stackoverflow.com/questions/25999201/add-signature-with-images-to-the-mail/ irá sanar sua dúvida, mas não testei.

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br