Como enviar un email de aviso
Te he leído en este foro y veo que controlas. Estoy haciendo una hoja excel con fechas de caducidad de mis licencias de vuelo y certificados pero no se como hacer que me envíe un email de aviso la fecha antes que le designe por ejemplo 30 días antes. Si me mandas tu email te mando lo que tengo hecho. El mío es sansergioes@ gmail.com o [email protected]. Muchísimas gracias por tu ayuda
1 Respuesta
Envíame tu archivo y me explicas con varios ejemplos, dos o tres ejemplos, qué quieres enviar, destinatario, asunto y cuerpo del correo, si lleva a archivo o no; y si es por outlook.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Sergio Sanchez” y el título de esta pregunta.
Te he enviado lo que me pedías. Perdón por la tardanza.
Un saludo
H o l a : Te anexo la macro
Sub Revisar_Fechas()
'---
' Por.Dante Amor
'---
aviso1 = [H10]: aviso2 = [I10]: aviso3 = [J10]
For i = 5 To Range("D" & Rows.Count).End(xlUp).Row
If Cells(i, "D") - aviso1 = Date Then Call Enviar_Correo(i, aviso1)
If Cells(i, "D") - aviso2 = Date Then Call Enviar_Correo(i, aviso2)
If Cells(i, "D") - aviso3 = Date Then Call Enviar_Correo(i, aviso3)
Next
MsgBox "Fin"
End Sub
'
Sub Enviar_Correo(i, dias)
'---
' Por.Dante Amor
'---
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = "[email protected]; [email protected]"
dam.Subject = "Toca renovar Licencia o Certificado " & Range("A" & i).Value
dam.Body = "Buenas," & vbCr & _
"Faltan " & dias & " días para renovar la " & _
"licencia o certificado " & Range("A" & i).Value & ", " & _
"por favor pide cita para la renovación." & vbCr & _
"Gracias."
'
Dam. Send 'El correo se envía en automático
'dam. Display 'El correo se muestra
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
