Rank: Administration
Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,154
Thanks: 9 times
Was thanked: 55 time(s) in 55 post(s)
|
Visual Basic.NET Example CodesRead Receipt Some e-mail applications, such as Microsoft Office Outlook, employ a read-receipt tracking mechanism. A sender selects the receipt request option prior to sending the message. Upon opening the email, each recipient has the option of notifying the sender that the message was opened and read. However, there is no guarantee that you will get a read-receipt. Some possible reason are that very few e-mail applications or services support read receipts, or simply because users disable the functionality. Those do support read-receipt aren't necessarily compatible with or capable of recognizing requests from a different e-mail service or application Delivery Receipt and Failure Report It is also called a DSN (delivery service notification), which is a request to the recipient’s email server to send you a notification about the delivery of an email you've just sent. The notification takes the form of an email, and will tell you if your delivery succeeded (Delivery Receipt), failed, got delayed (Failure Report). Parse Report For many email campaign applications, the very important task is detecting if the email is received by recipient or not. Parsing the delivery report is the common way to get the email status. EAGetMail .NET class provides a built-in function (GetReport) to parse the report. The following sample demonstrates how to parse the delivery-report. If ReporType is DeliveryReceipt or ReadReceipt, the report probably has only OriginalSender, OriginalRecipient and OriginalMessageID information in the report, it depends on the mail server that generated the report. The following example codes demonstrate how to parse failure delivery report Code:
' The following example codes demonstrate parsing failure delivery report
' 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
Imports System.Collections
Imports System.Text
Imports System.IO
' Imports EAGetMail namespace
Imports EAGetMail
Module Module1
Private Sub ParseReport(ByVal emlFile As String)
Dim oMail As New Mail("TryIt")
oMail.Load(emlFile, False)
If Not oMail.IsReport Then
Console.WriteLine("This is not a delivery report.")
Return
End If
Dim oReport As MailReport = oMail.GetReport()
Select Case oReport.ReportType
Case DeliveryReportType.DeliveryReceipt
Console.WriteLine("This is a delivery receipt!")
Exit Select
Case DeliveryReportType.ReadReceipt
Console.WriteLine("This is a read receipt!")
Exit Select
Case Else
Console.WriteLine("This is a failure report!")
Exit Select
End Select
Console.WriteLine("OriginalSender: {0}", oReport.OriginalSender)
Console.WriteLine("OriginalRecipient: {0}", oReport.OriginalRecipient)
Console.WriteLine("OriginalMessageID: {0}", oReport.OriginalMessageID)
If oReport.ReportType = DeliveryReportType.FailureReport Then
Console.WriteLine("ErrCode: {0}", oReport.ErrCode)
Console.WriteLine("ErrDescription: {0}", oReport.ErrDescription)
Console.WriteLine("OriginalSubject: {0}", oReport.OriginalSubject)
Console.WriteLine("ReportMTA: {0}", oReport.ReportMTA)
Console.WriteLine(oReport.OriginalHeaders.ToString())
End If
End Sub
Sub Main()
ParseReport("c:\my folder\test.eml")
End Sub
End Module
Click here to read original topic - full version ...If you have any comments or questions about above example codes, please add your comments here.
|
