Sub createEmail()
    
    Dim olApp As Outlook.Application
    Set olApp = New Outlook.Application
    
    Dim olMail As MailItem
    Set olMail = Outlook.CreateItem(olMailItem)
    
    With olMail
        .To = "glasswalk3r@yahoo.com.br"
        .Subject = "Testing a customized header"
        .BodyFormat = olFormatPlain
        .body = "Hello there!" & vbCrLf _
            & "This is a VBA POC (with Redemption!) generated email and should have a " _
            & "nice customized header (X-Reported-Via)." & vbCrLf _
            & "My best regards," & vbCrLf & "Alceu"
        .Importance = olImportanceHigh
        .ReadReceiptRequested = True
    End With
    
    Dim sItem As Object
    
    Set sItem = CreateObject("Redemption.SafeMailItem")
    sItem.item = olMail
    Tag = sItem.GetIDsFromNames("{00020386-0000-0000-C000-000000000046}", "X-Reported-Via")
    Tag = Tag Or &H1E 'the type is PT_STRING8
    
    With sItem
        .Fields(Tag) = "Test::Reporter Test::Reporter::Transport::Outlook"
        .Subject = sItem.Subject  'to trick Outlook into thinking that something has changed
        .Send
    End With
    
    Set olMail = Nothing

End Sub