Hola yo hice algo parecido: el código para enviar el correo es:
Código:
Imports System.Web.Mail
public Sub Enviar_Mail()
Dim eMail As New MailMessage
eMail.BodyFormat = MailFormat.Text
eMail.From = "QuienLoManda@dominio.com"
eMail.To = "QuienLoRecibe@dominio.com"
eMail.Subject = "Título del Correo"
eMail.Body = "Contenido del Mensaje"
SmtpMail.SmtpServer = "192.168.2.50" 'Aqui va la Ip Local o el nombre del servidor SMTP
'si pretendes Incluir archivos este es el código
Dim Attachment As MailAttachment
If File.Exists(NombreArchivo) Then
Attachment = New MailAttachment(NombreArchivo)
eMail.Attachments.Add(Attachment)
End If
'Si no pretendes enviar archivos no pongas el codigo dentro del if
Try
SmtpMail.Send(eMail)
Catch ex As Web.HttpException
Response.Write("No se puede enviar el mensaje, pruebe que el servidor SMTP este habilitado: " & ex.Message)
Catch
Response.Write("No se puede enviar el mensaje, pruebe que el servidor SMTP este habilitado")
End Try
End Sub
En mi caso yo configure el servidor SMTP que trae windows , pero si te da mucho trabajo coinfigurarlo puedes utilizar este otro:
http://minirelay.uptodown.com/ solo necesita ejecutar el programa y listo, a la hora de configurar tu servidor SMTP le pones 127.0.0.1 o bien tu ip local.
El codigo fuente para obtener tu ip Local es el siguiente:
Código:
Private Function ObtenerIPLocal() As String
Dim strMachineName As String = Dns.GetHostName()
'Get the Host by Name
Dim ipHost As IPHostEntry
ipHost = Dns.GetHostByName(strMachineName)
Dim ipAddr() As IPAddress = ipHost.AddressList
If ipAddr.Length > 0 Then
Return ipAddr(0).ToString()
End If
Return ""
End Function
En fin, espero que te sirva este código, ahora tu trabajo va a ser habilitar una opcion en tu aplicación que este monitoreando las fechas de vencimiento para luego ejecutar este codigo que envia los correos.
Saludos