Send an e-mail stored on disk as .eml file in vb.net

If you have stored messages in .eml format on disk, and want to send them, the procedure is quite complicated. Luckily Peter Huber wrote some code to make this as simple as possible.

The following code uses a library based on the code written by Peter Huber, Singapore, 2006 http://www.codeproject.com/Articles/76607/Easily-Retrieve-Email-Information-from-EML-Files-R

So, we have messages saved on disk as .eml. Try to send them again using this code:

Dim FailedEmailFiles = Directory.EnumerateFiles("c:\temp\eml", "*.eml", SearchOption.TopDirectoryOnly)
For Each FailedEmailFile As String In FailedEmailFiles
Dim objMR As New CS.Mail.MimeReader
Dim mm As CS.Mail.RxMailMessage = objMR.GetEmail(FailedEmailFile.ToString)
Dim smtp As New Mail.SmtpClient(SmtpIP)
Try
smtp.Send(mm)
File.Delete(FailedEmailFile.ToString)
Catch exc As Exception

End Try
smtp.Dispose()
smtp = Nothing
mm.Dispose()
mm = Nothing
Next
FailedEmailFiles = Nothing