none
Adicionar/Mudar a assinatura do Outlook via VBA RRS feed

  • Pergunta

  • 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


    sexta-feira, 6 de maio de 2016 15:21

Respostas

Todas as Respostas