Macro para enviar mail automático desde Excel para Dante Amor
Pudieras ayudarme con el código para una Macro que permita abrir outlook 2010 y enviar un mail automático desde Excel 2010.
En mi trabajo tengo una lista de equipos en las cuales cada determinado tiempo vence su calibración, me interesa que con la fecha de vencimiento se pueda enviar un correo a la persona asignada para recordar que ya es tiempo.
Subject: Recordatorio de servicio de calibración
Body text: Hace 12 meses " Celda C6" calibró su equipo de medición " Celda G6", se envía recordatorio del Servicio.
El nombre de la hoja se llama “Cronograma de Servicio de calibración”, la fecha está en “celda I6”, el correo destino “E6”, correo con copia “E7”
Se debe enviar cuando faltan 15 días para realizarse.
2 respuestas
Te envié el archivo con la macro para enviar los correos
Sub correo()
'Por.Dante Amor
For i = 6 To Range("E" & Rows.Count).End(xlUp).Row
If [C2] + 15 = Cells(i, "I") Then
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = Range("E" & i) 'Destinatarios
dam.CC = Range("F" & i) 'Con copia
dam.Subject = [H2] '"Asunto"
dam.Body = [H3] & " " & Range("C" & i) & " " & [I3] & " " & Range("G" & i) & [J3]
'dam.send 'El correo se envía en automático
dam.display 'El correo se muestra
End If
Next
End Sub
hola Dante buena tarde, disculpa pudieras ayudarme con la siguiente petición.
Condicional de tres columnas con variación de 4 números
Saludos y de antemano te lo agradezco.
Descarga aquí un archivo, revisa si es lo que necesitas
Pregunta tienes un código con el cual pueda poner en copia a varios destinatarios.
Hola al ejecutar la macro dice que se envío pero no recibo nada una ayuda por favor - archi1958
al principio de esta línea : 'dam.send hay un apostrofe ( ' ) borra ese apostrofe e intenta de nuevo.NOTA: El correo se envía por outlook - Dante Amor
He seguido algunas de tus instrucciones y he podido armar un macro que envías email a persona para hacer un checo-in no line, me pasa que cuando voy a la bandeja de enviados de Outlook no me aparecen como enviados, sin embargo los correos si están saliendo correctamente - Luis Rincon