VBA Outlook - Como enviar um e-mail com uma assinatura dinâmica - How to send an email with an automatic signature

Termo de Responsabilidade

Imagine-se mudando a sua assinatura eletrônica dependendo da empresa, cliente, com quem está trocando mensagem. 

Dependendo do conteúdo que estiver enviando como um relatório, um Dashboard, etc...

Recurso útil? Talvez não, mas um excelente modo de aprimorar seu conhecimento sobre o MS Outlook.

Sub MailWithSignat()

    Dim olMailItem As MailItem

    Dim ns As NameSpace

    Dim olRecips As Recipient

    Dim tmpRecips As String

    

    

    Set ns = Application.Session

    

    If Not ns Is Nothing Then

        ns.Logon , , False, False

    End If

    

    Set olMailItem = Application.CreateItem(olMailItem)

    

'   Let olMailItem.Body = "Body of Test Email"

    Let tmpRecips = InputBox("Enter the recipients separated by ;")

    

    Set myRecips = myMailItem.Recipients.Add(tmpRecips)

    

    Let olRecips.Type = olTo

    Let tmpRecips = InputBox("Enter the CC recipients separated by ;")

    

    If InStr(tmpRecips, "@") Then

        Set olRecips = myMailItem.Recipients.Add(tmpRecips)

        Let olRecips.Type = olCC

    End If

    

    Let tmpRecips = InputBox("Enter the BCC recipients separated by ;")

    

    If InStr(tmpRecips, "@") Then

        Let Set olRecips = olMailItem.Recipients.Add(tmpRecips)

        Let olRecips.Type = olBCC

    End If

    

    Set olRecips = Nothing

    

    olMailItem.Subject = "Subject of Test Email"

    

    If Len(Dir("c:\\TestFile.txt")) Then

        olMailItem.Attachments.Add "c:\\TestFile.txt"

    End If

    

    olMailItem.Display

    

    Let olMailItem.Body = "Body of Test Email" & myMailItem.Body

    

    olMailItem.Send

End Sub 

Tags: VBA, Outlook, signature, automatic, automation