' The following example codes demonstrate parsing winmail.dat - TNEF stream
' To get full sample projects, please download and install EAGetMail on your machine.
' To run it correctly, please change email server, user, password, folder, file name value to yours

Option Explicit 

Const CRYPT_MACHINE_KEYSET = 32 
Const CRYPT_USER_KEYSET = 4096 
Const CERT_SYSTEM_STORE_CURRENT_USER = 65536 
Const CERT_SYSTEM_STORE_LOCAL_MACHINE = 131072 

Private Sub ParseEmail(ByVal emlFile As String) 
    Dim oMail As New EAGetMailObjLib.Mail 
    oMail.LicenseCode = "TryIt" 

On Error GoTo ErrorHandle 
    oMail.LoadFile emlFile, False 

     If oMail.IsEncrypted Then 
        ' This email is encrypted, we decrypt it by user default certificate.
        ' You can also use specified certificate like this
        ' Dim oCert As New EAGetMailObjLib.Certificate
        ' oCert.LoadFromFile "c:\test.pfx", "pfxpassword", CRYPT_USER_KEYSET
        ' Set oMail = oMail.Decrypt(oCert)
        Set oMail = oMail.Decrypt(Nothing) 
    End If 

    If oMail.IsSigned Then 
        ' This email is digital signed.
        Dim oCert As EAGetMailObjLib.Certificate 
        Set oCert = oMail.VerifySignature 
        MsgBox "This email contains a valid digital signature." 
        ' You can add the certificate to your certificate storage like this
        ' oCert.AddToStore CERT_SYSTEM_STORE_CURRENT_USER, "addressbook"
        ' Then you can use send the encrypted email back to this sender.
    End If 

    ' Parse email sender
    MsgBox "From: " & oMail.From.Address 

    Dim arAddr 
    Dim i As Integer 
    Dim addr As EAGetMailObjLib.MailAddress 

    ' Parse email to recipients
    arAddr = oMail.To 
    For i = LBound(arAddr) To UBound(arAddr) 
        Set addr = arAddr(i) 
        MsgBox "To: " & addr.Address 
    Next 

    ' Parse email cc
    arAddr = oMail.Cc 
    For i = LBound(arAddr) To UBound(arAddr) 
        Set addr = arAddr(i) 
        MsgBox "Cc: " & addr.Address 
    Next 

    ' Parse email subject
    MsgBox "Subject: " & oMail.Subject 

    ' Parse email text body
    MsgBox "Text body: " & oMail.TextBody 

    ' Parse email HTML body
    MsgBox "Html body: " & oMail.HtmlBody 

    Dim atts 
    Dim att As EAGetMailObjLib.Attachment 

    ' Parse attachments
    atts = oMail.Attachments 
    For i = LBound(atts) To UBound(atts) 
        Set att = atts(i) 
        MsgBox "Attachment: " & att.name 

        ' This attachment is in OUTLOOK RTF format(TNEF), decode it here.
        If LCase(att.name) = "winmail.dat" Then 
            Dim tatts 
            Dim x As Integer 
            tatts = oMail.ParseTNEF(att.Content, True) 
            For x = LBound(tatts) To UBound(tatts) 
                Dim tatt As EAGetMailObjLib.Attachment 
                Set tatt = tatts(x) 
                MsgBox "winmail.dat: " & tatt.name 
            Next 
        End If 
    Next 

    Exit Sub 
ErrorHandle: 
    MsgBox Err.Description 
End Sub 

Private Sub Command1_Click() 

    ParseEmail "c:\my folder\test.eml" 

    Exit Sub 
ErrorHandle: 
    MsgBox Err.Description 
End Sub