 |
¿Qué
aprenderás con este Video Tutorial?
Aprenderás a crear un archivo en Excel que mediante Macros
te permitirá enviar Correos Personalizados según una lista de Destinatarios.
Código de la Macro Utilizada
Sub Correo_Dinamico()
' Selecciona Rango a ser enviado en cuerpo de correo
Hoja1.Range("E6:F20").Select
' Dato del número de destinatarios
Dim ExpRow As Long
ExpRow = (Hoja2.Range("A99999").End(xlUp).Row) - 3
For i = 1 To ExpRow
' Para que cambie ID en hoja de Excel
Hoja1.Range("F7").Value = i
' Muestra el envío de adjuntos en la hoja1
ActiveWorkbook.EnvelopeVisible = True
'Envío de correos
With Hoja1.MailEnvelope
.Item.To = Hoja1.Range("D8").Value
.Item.Subject = "Resumen de Ventas"
'Item.cc = "correo@com.ec" 'Con Copia a
'Item.bcc = "correo@com.ec" 'Con Copia a oculta a
.Introduction = "Resultados de venta del año"
.Item.Send
End With
Next i
MsgBox "Correos Enviados con Éxito"
End Sub
Descarga los archivos desde el siguiente link: (Ejemplo de Excel, Macro en Txt y Desactivar mensajes de Outlook en TXT)
Como configurar cuenta Oulook.com en Outlook 2016:
Otros temas que te pueden INTERESAR:
Te Gusto, Donaciones aquí:
Puedes seguirme en:
O Escríbeme a:
