Cómo enviar correos masivos desde Excel con archivos adjuntos
Los correos masivos son un medio de comunicación directo y eficaz para transmitir un mensaje a grupo de contactos. Si deseas enviar un correo masivo a un grupo de personas mediante Excel, te recomendamos leer este artículo porque con él aprenderás Cómo enviar correos masivos desde Excel con archivos adjuntos
Cómo enviar correos masivos desde Excel con archivos adjuntos
A menudo, podemos enviar archivos adjuntos desde nuestro correo. Sin embargo, podemos enviar correos masivos desde Excel con archivos adjuntos mediante una lista de direcciones, un mensaje de interés para los receptores y una macro. A continuación, te explicamos los pasos que debes seguir para cumplir este procedimiento.
Crea la ventana del e-mail
Ingresa a Excel y en una nueva hoja de cálculo escribe en la celda A2 “Para:”, en la celda A3 “CC:”, en la celda A4 “CCOO:”, en la celda A5 “Asunto:”, en la celda A6: “Mensaje:” y en la celda A7 “Archivo adjunto:” (todos sin las comillas)
En la celda B2 ingresarás el correo del destinatario, en la celda B3 el correo deseado con copia, en la celda B4 escribirás el correo deseado con copia oculta, en la celda B5 escribirás el título o asunto del mensaje, la celda B6 estará disponible para escribir el correo masivo y en la celda B7 podrás adjuntar un archivo.
Redacta el mensaje
Redacta un mensaje que llame la atención de los destinatarios. Para hacerlo, ubica el cursor en la celda B6 y si requieres hacer saltos de línea debes presionar las teclas “Alt+Enter”.
Agrega el archivo adjunto
Para agregar el archivo adjunto, ubica el cursor en la celda B7. Asegúrate de escribir la ubicación exacta del archivo así como su extensión.
Crea la macro desde Excel
Para crear la macro debes presionar las teclas “Alt+F11”. Entonces, se abrirá el editor de Visual Basic Application. Dirígete al “Menú”, haz clic en “Insertar” y “Módulo”. Luego, selecciona el “Módulo1”. Inmediatamente verás una ventana donde debes agregar el siguiente código (Los puntos son solo indicativos de cada linea, no deben estar incluidos en el código):
- Sub correo_adjunto()
- Dim mail As Object
- Dim app As Object
- Set app = CreateObject("Outlook.Application")
- app.Session.logon
- Set mail = mi_App.CreateItem (0)
- ActiveWorkbook.Save
- On Error Resume Next
- With mail
- .To = Range ("B2").Value
- .CC = Range ("B3").Value
- .BCC = Range ("B4").Value
- .Subject = Range ("B5").Value
- .Body = Range ("B6").Value
- .Attachments.Add Range ("B7").Value
- .DeleteAfterSubmit = False
- .Send
- End With
- MsgBox "Se ha enviado el mensaje"
- On Error GoTo 0
- Set app = Nothing
- Set mail = Nothing
- End Sub
Guarda el archivo
Haz clic en el botón inicio y selecciona “Guardar como”, escribe un nombre que identifique al archivo y asigna la extensión .xlsm para habilitar las macros.
Inserta un botón a la hoja de cálculo
Debes dirigirte a la pestaña “Desarrollador”, haz clic en “Controles” y en “Insertar”. Selecciona “Controles de formulario” y pulsa “Botón”.
Utiliza el ratón para dibujar un rectángulo, haz clic sobre el elemento y cambia su nombre por “Enviar”. En la ventana para asignar una macro, haz clic en “correo_adjunto” en “Nombre de la macro” y presiona el botón “Aceptar”.
Agrega la referencia
Ingresa de nuevo a “VisualBasic” desde Excel pulsando las teclas “Alt+F11”. Dirígete a “Herramientas” y “Referencias”. Allí, marca la casilla “Microsoft Outlook X.X Object Library”, donde “X.X.” es la versión de la aplicación Excel. Después, presiona el botón “Aceptar”.
Ejecuta la macro
Escribe todos los valores del correo masivo y ejecuta la macro haciendo clic en el botón. Por último, verás un mensaje de confirmación después de efectuarse el envío.