Views

Histats

Vitrine

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


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, mail, send, signature


Inline image 1

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias