Como crear Correo Personalizado Dinámico en Excel Utilizando Macros

Como Crear Envío de Correo Personalizado Dinámico Excel | Macros | Editor de Visual Basic | Aplicando Excel | Youtube Video Tutorial de Excel | Cursos de Excel Presencial Quito 

¿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.

Sigue los pasos que Indica el Video Tutorial y crea tu archivo de Excel 

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)

https://1drv.ms/u/s!AiFkH3zjVZ9vimauxWAeGps24gxp?e=PzmRQJ

Como configurar cuenta Oulook.com en Outlook 2016: 

https://support.office.com/es-es/article/agregar-la-cuenta-de-outlook-com-a-outlook-para-windows-642c1902-bdd9-4dc3-abe7-76d60b148b23

Otros temas que te pueden INTERESAR:

• Aplicando Excel | Cómo utilizar la función BUSCARV
• Aplicando Excel | Cómo utilizar la Función SI y SI ANIDADA

Te Gusto, Donaciones aquí:

Puedes seguirme en: 

 

O Escríbeme a: