VB6 ExampleAfter you received the emails from email server to the local folder, we can use the following code to parse the email now. The following code demonstrates how to parse from, to, cc, subject, body text, attachments of specified EML file.
' The following example codes demonstrate parsing email (*.EML) file
' 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
Private Sub ParseEmail(ByVal emlFile As String)
Dim oMail As New EAGetMailObjLib.Mail
oMail.LicenseCode = "TryIt"
On Error GoTo ErrorHandle
oMail.LoadFile emlFile, False
' 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
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
If you have any comments or questions about above example codes, please add your comments here.
