Visual Basic.NET - correo automatico

 
Vista:

correo automatico

Publicado por chico (3 intervenciones) el 09/08/2016 18:18:48
Tengo que hacer un proyecto de una clase donde me piden que se lleve un registro de la fecha de cumpleanos de un empleado y que cuando este cumpla años se le envie un correo de felicitacion pero de manera automatica, alguien tiene una forma que halla hecho esto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de ismael
Val: 15
Ha aumentado su posición en 7 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

correo automatico

Publicado por ismael (5 intervenciones) el 10/08/2016 05:02:59
necesitas la rutina o la idea
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

correo automatico

Publicado por chiko (3 intervenciones) el 10/08/2016 05:12:17
Como sea mas entendible te lo agradeceria
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Isaias
Val: 21
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

correo automatico

Publicado por Isaias (3 intervenciones) el 10/08/2016 22:44:03
Hola,

te paso una rutina para enviar el correo, para validar la fecha puedes usar un timer que verifique cada cierto tiempo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim att As Attachment = New Attachment(mem, sPDF, "application/pdf")
 
            ' Create a new message and attach the PDF report to it.
            Dim mail As MailMessage = New MailMessage()
            mail.Attachments.Add(att)
 
            ' Specify sender and recipient options for the e-mail message.
            mail.From = New MailAddress("xxxxxx@xxxxxx.cccc")
            mail.To.Add("xxxxxx@xxxxxx.cccc")
 
            ' Specify other e-mail options.
            mail.Subject = "Parte Diario "
            mail.Body = "Buenos días, se envía reporte de producción." & vbCrLf & "Saludos" & vbCrLf & vbCrLf & vbCrLf & "*** Este mensaje se genera de manera automática, favor de no responder ***"
 
            ' Send the e-mail message via the specified SMTP server.
            Dim smtp As SmtpClient = New SmtpClient("webmail.diavazdep.com")
            smtp.Credentials = New System.Net.NetworkCredential("DiavazDep\\doleum.dwf", "D14v4zd3p")
            smtp.Send(mail)

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar