Plantilla Envío de Email Masivos desde Excel

Cómo usar la Plantilla de Envío Masivo de Correos

Pasos para Usar la Plantilla de Envío de Emails Masivos

• Configuración Inicial: Asegúrate de tener Microsoft Outlook instalado y configurado en tu equipo. La plantilla está diseñada para integrarse con Outlook, por lo que es necesario que tengas una cuenta de correo electrónico activa en esta plataforma.

• Accede a la Hoja “ENVÍO”: Una vez que abras la plantilla, dirígete a la hoja denominada “ENVÍO”. Esta es la hoja principal donde ingresarás toda la información necesaria para el envío masivo de correos.

• Diligenciar los Campos Obligatorios:
  • Para: En esta columna, introduce las direcciones de correo electrónico de los destinatarios a quienes deseas enviar el email. Este campo es obligatorio.
  • Con Copia Para: Si deseas incluir a alguien en copia, puedes ingresar sus correos electrónicos aquí. Este campo es opcional.
  • Asunto: Introduce el asunto del correo electrónico. Asegúrate de que sea claro y descriptivo para captar la atención del destinatario.
  • Mensaje Concatenado: Utiliza esta columna para personalizar el mensaje que deseas enviar. Puedes concatenar diferentes celdas para crear un mensaje dinámico que incluya información específica para cada destinatario (como nombres, números de pedidos, etc.).

• Agregar Archivos Adjuntos (Opcional): Si necesitas adjuntar archivos al correo electrónico, introduce la ruta completa de los archivos en las columnas designadas para adjuntos. La plantilla permite adjuntar hasta 5 archivos por correo. Asegúrate de que la ruta sea correcta para evitar errores en el envío.

• Personalización del Mensaje: Puedes utilizar funciones de Excel como CONCATENAR, BUSCARV, y ALT+Enter para personalizar aún más el contenido del mensaje. Esto es especialmente útil si necesitas incluir información específica como números de tracking, detalles de pedidos, o mensajes personalizados.

• Iniciar el Envío: Una vez que todos los campos estén completos y revisados, haz clic en el botón de envío (icono de email) ubicado en la hoja. Este botón activará las macros VBA, que comenzarán a enviar los correos electrónicos según la configuración que has ingresado.

• Revisión y Monitoreo: Verifica que todos los correos electrónicos se hayan enviado correctamente. Puedes monitorear los estados de envío directamente en Outlook o agregar una columna en Excel para llevar un registro del estado de cada email enviado.

Nota Importante: La hoja y el código VBA están desbloqueados, permitiéndote personalizar la plantilla según las necesidades específicas de tu negocio. Puedes modificar los campos, ajustar las macros o cambiar el diseño de los mensajes según lo requieras.

Con estos sencillos pasos, podrás enviar correos electrónicos masivos de manera eficiente y personalizada utilizando la Plantilla de Envío de Emails Masivos desde Excel.

 

Detalle Macro de envío de correos masivos

A continuación, se detalla cada una de las líneas de código VBA empleadas en la macro para su entendimiento y adaptación si fuera necesario:

• Ingresar al Ambiente de Programación: Puedes acceder al editor de Visual Basic en Excel pulsando Alt + F11.

Sub Enviar_Correos()

    ‘***Macro Para enviar correos

    col = Range(“f7”).Column ‘ Define el número de la columna, a partir de la cual la macro buscará archivos para adjuntar al email

    For i = 8 To Range(“B” & Rows.Count).End(xlUp).Row ‘ Bucle, que recorrera desde la fila 8 hasta la última fila hacia bajo que encuentre diligeciada

        Set dam = CreateObject(“Outlook.Application”).CreateItem(0) ‘ Configuración de obejto outlook para usar esta aplicación como servicio de envío

        ‘

        dam.To = Range(“B” & i).Value           ‘Celda donde se encuentra el Destinatarios (la i es el valor de la variable en el bucle)

        dam.CC = Range(“C” & i).Value           ‘Con copia

        ‘dam.BCC = Range(“D” & i).Value          ‘Con copia oculta

        dam.Subject = Range(“D” & i).Value      ‘”Asunto”

        dam.Body = Range(“E” & i).Value         ‘”Cuerpo del mensaje”

        ‘

                ‘Agregación de archivos adjuntos

        For j = col To Cells(i, Columns.Count).End(xlToLeft).Column – 3

            archivo = Cells(i, j).Value

            If archivo <> “” Then dam.Attachments.Add archivo ‘ Con el condicional IF, el mismo SI que utilizamos en Excel, sabremos si hay archivos o no para adjuntar.

        Next

        dam.Send                                ‘El correo se envía en automático

        ‘dam.Display                             ‘El correo se muestra

    Next

    MsgBox “Correos enviados”, vbInformation, “www.excelparatodos.com” ‘ Mensaje de confirmación

End Sub