Cuando los usuarios envían correos electrónicos a sus clientes o jefes es bastante difícil llevar la cuenta. En ese caso, Excel resulta muy útil. Por lo tanto, "enviar correo electrónico automático desde Excel a Perspectivas" ha demostrado ser un método que ahorra tiempo. Macros VBA de Excel y el HYPERLINK puede enviar correos electrónicos automáticos o crear un borrador mediante entradas de Excel.

Digamos que tenemos Salario del empleado reestructurado datos en Excel y queremos enviar un correo electrónico automático utilizando Outlook .

En este artículo, demostramos múltiples variantes de Macros VBA y el HYPERLINK para enviar correos electrónicos automáticos desde Excel a Outlook .

Descargar el libro de Excel

⧭ Apertura de Microsoft Visual Basic e inserción de código en el módulo

Antes de proceder a la demostración de cualquier método, es necesario conocer las formas de abrir e insertar un Módulo en el Microsoft Visual Basic en Excel.

🔄 Abrir Microsoft Visual Basic: Existen principalmente 3 formas de abrir Microsoft Visual Basic ventana.

1. Uso de atajos de teclado: Pulse ALT+F11 todo junto para abrir Microsoft Visual Basic ventana.

2. Usando la pestaña Desarrollador: En una hoja de cálculo de Excel, vaya a Ficha Desarrollador Seleccionar Visual Basic . Microsoft Visual Basic aparece la ventana.

3. Mediante la pestaña Hoja de cálculo: Vaya a cualquier hoja de cálculo, Haga clic con el botón derecho del ratón en en él> Elija Ver Código (del Contexto Menú ).

🔄 Inserción de un módulo en Microsoft Visual Basic: Existen 2 formas de insertar un Módulo en Microsoft Visual Basic ventana,

1. Uso de las opciones de la hoja: Tras abrir el Microsoft Visual Basic seleccione un Hoja de trabajo > Haga clic con el botón derecho del ratón en en él> Seleccionar Inserte (del Menú contextual )> entonces elija Módulo .

2. Uso de la barra de herramientas: También puede hacerlo seleccionando Inserte (del Barra de herramientas )> entonces elige Módulo .

4 maneras fáciles de enviar correo electrónico automático de Excel a Outlook

Método 1: Uso de macros VBA para enviar automáticamente mensajes de correo electrónico a través de Outlook a los destinatarios seleccionados

Queremos crear una macro de ejecución Botón mediante el cual podemos enviar correos a los destinatarios seleccionados con un solo clic.

Paso 1: Ir a la Inserte tab> Formas > Seleccione cualquiera de las formas ofrecidas (es decir, Rectangular: esquinas redondeadas ).

Segundo paso: Arrastre el Icono Plus donde quiera insertar el Forma como se muestra en la siguiente imagen.

Tercer paso: Elija una opción Forma Relleno y Esquema Color y, a continuación, haga clic con el botón derecho del ratón. Haga clic en Editar texto para insertar texto.

Paso 4: Utilice la instrucción para abrir Microsoft Visual Basic e inserte Módulo Pegue la siguiente macro en el campo Módulo .

 Sub ExcelToOutlookSR() Dim mApp As Object Dim mMail As Object Dim SendToMail As String Dim MailSubject As String Dim mMailBody As String For Each r In Selection SendToMail = Range("C" & r.Row) MailSubject = Range("F" & r.Row) mMailBody = Range("G" & r.Row) Set mApp = CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) With mMail .To = SendToMail .Subject = MailSubject.Body = mMailBody .Display ' Puede utilizar .Send End With Next r End Sub 

➤ en el código,

1 - iniciar el procedimiento de macro declarando las variables como Objeto y Cadena .

2 - ejecutar un VBA PARA bucle para cada fila de la selección para asignar Email's Enviar a , Asunto y Cuerpo mediante entradas de fila.

3 - asignar variables.

4 - realizar la VBA con para rellenar Outlook artículos como Enviar a , Asunto del correo etc. Aquí la macro sólo ejecuta el comando Mostrar comando para sacar Outlook Sin embargo, si Enviar en lugar o después de Pantalla, Outlook enviará el correo electrónico creado a los destinatarios seleccionados.

5 - terminar la VBA PARA bucle.

Paso 5: Vuelva a la hoja de cálculo. Haga clic con el botón derecho del ratón en el icono Forma seleccione Asignar macro del Menú contextual opciones.

Paso 6: Seleccione la macro (es decir ExcelToOutlookSR ) bajo el Nombre de la macro y elija el Macro en como Este cuaderno Haga clic en OK .

Paso 7: Ahora, en la hoja de cálculo, seleccione uno o varios empleados y haga clic en el botón Botón de forma .

Paso 8: Indicaciones de Excel Outlook al almuerzo y crea o envía correos electrónicos a los empleados seleccionados. Al seleccionar dos de los empleados, Outlook genera dos borradores de correo electrónico diferentes listos para ser enviados.

Como la macro sólo proporciona el Mostrar mando, Outlook sólo muestra el borrador de correo electrónico sin enviarlo. Utilice la opción Enviar para enviar automáticamente correos electrónicos desde Excel a Outlook mediante entradas de celda.

Más información: Macro Excel para Enviar Email Automáticamente (3 Ejemplos Adecuados)

Método 2: Enviar Email Automáticamente desde Excel a Outlook Dependiendo del Valor de una Celda Específica

¿Qué pasa si queremos enviar un correo electrónico automático después de alcanzar los objetivos de Excel a Outlook Un código Macro puede hacer este trabajo con facilidad.

Supongamos que tenemos Datos de ventas trimestrales como se muestra a continuación, tras alcanzar un objetivo (es decir, Ventas> 2000 ) le pedirá automáticamente Outlook para enviar un correo electrónico desde Excel a un identificador de correo electrónico asignado.

Primer paso: Escriba el siguiente código de macro en cualquier Módulo .

 Option Explicit Dim Rng As Range Sub Worksheet_Change(ByVal mRng As Range) On Error Resume Next If mRng.Cells.Count> 1 Then Exit Sub Set Rng = Intersect(Range("F17"), mRng) If Rng Is Nothing Then Exit Sub If IsNumeric(mRng.Value) And Target.Value> 2000 Then Call ExcelToOutlook End If End Sub ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody As String Set mApp =CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Saludos Señor" & vbNewLine & vbNewLine & _ "Nuestro punto de venta tiene unas ventas trimestrales superiores al objetivo" & vbNewLine & _ "Es un correo de confirmación" & vbNewLine & vbNewLine & vbNewLine & _ "Saludos" & vbNewLine & _ "Equipo del punto de venta" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Notificación sobre el logro del objetivo de ventas" .Body = mMailBody .Display 'o puede utilizar .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ De la imagen anterior, en las secciones,

1 - asignar una celda (es decir F17 ) dentro de un rango para ejecutar el VBA SI Si el resultado es Verdadero la macro llama a otra macro para su ejecución.

2 - declarar tipos de variables y asignarlas para poblar Outlook 's entradas.

3 - actuar VBA con para asignar variables a las entradas de correo electrónico. Utilice la sentencia Enviar en lugar de Mostrar en caso de que desee enviar directamente correos electrónicos sin revisarlos. El correo electrónico del destinatario se inserta dentro de la macro. Utilice métodos alternativos en caso de que desee una inserción automática del identificador de correo electrónico del destinatario.

4 - limpiar ciertas variables de la asignación.

Segundo paso: Utilice la F5 para ejecutar la macro. En un momento, Excel obtiene Outlook con un borrador de correo electrónico creado automáticamente como se muestra a continuación. Puede hacer clic en Enviar o autoenvío mediante Enviar en la macro.

Más información: Enviar Emails Automáticamente desde Excel Basado en el Contenido de las Celdas (2 Métodos)

Lecturas similares

• Cómo ver quién está en un archivo Excel compartido (con pasos rápidos)
• Activar Compartir Libro en Excel
• Cómo compartir un archivo Excel para varios usuarios
• Cómo aplicar una macro para enviar un correo electrónico desde Excel con un archivo adjunto

Método 3: Uso de la macro VBA para enviar correo electrónico con la hoja de cálculo activa desde Excel por Outlook

Alternativamente, puede haber casos en los que necesitemos enviar un Hoja activa a una dirección de correo electrónico asignada. En ese caso, podemos utilizar un Función personalizada VBA dentro de una macro.

Primer paso: Inserte la siguiente macro en la carpeta Módulo .

 Function ExcelOutlook(mTo, mSub As String, Optional mCC As String, Optional mBd As String) As Boolean On Error Resume Next Dim mApp As Object Dim rItem As Object Set mApp = CreateObject("Outlook.Application") Set rItem = mApp.CreateItem(0) With rItem .To = mTo .CC = "" .Subject = mSub .Body = mBd .Attachments.Add ActiveWorkbook.FullName .Display 'o puede usar .Send End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Datos de Ventas Trimestrales" mBd = "Saludos Señor" & vbNewLine & vbNewLine & _ "Por favor, encuentre los datos de Ventas Trimestrales de Outlet adjuntos a este correo." & vbNewLine & _ "Es un correo de notificación." & vbNewLine & vbNewLine & _ "Saludos" &vbNewLine & _ "Equipo Outlet" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Creado con éxito el borrador de Correo o Enviado" End If End Sub 

➤ De la imagen anterior, las secciones del código,

1 - declarar y establecer las variables.

2 - asignar los comandos utilizando el VBA con Utilice el Mostrar o Enviar para revisar o enviar directamente correos electrónicos, respectivamente.

3 - borrar las variables previamente configuradas.

4 - asignar el VBA con comandos con textos.

5 - ejecutar la Función personalizada VBA .

Segundo paso: Para ejecutar la macro pulse F5 e instantáneamente Excel saca el Outlook con un borrador de correo electrónico para revisar similar a la imagen de abajo. Después, usted es bueno para enviarlo.

Más información: Cómo enviar correos masivos desde Outlook usando Excel (3 maneras)

Método 4: Envío automático de correo electrónico desde Excel a Outlook utilizando la función HYPERLINK

En HYPERLINK genera un enlace sobre el que se puede hacer clic en las celdas de Excel para traer Outlook como medio para enviar correos electrónicos automáticos desde Excel.

Paso 1: Escriba la siguiente fórmula en la celda H5 .

En HYPERLINK toma la función "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 como ubicación_del_enlace y "Haga clic aquí" como nombre_amigo .

Segundo paso: Hit INTRODUCE para pegar el enlace. A continuación, haz clic en el enlace.

Paso 3: Excel te lleva a Outlook Y ves todos los Outlook las entradas se rellenan con los datos asignados desde Excel. Haga clic en Enviar .

Paso 4: Arrastre el Asa de llenado para aplicar la fórmula a otras celdas.

Más información: Cómo enviar un correo electrónico automáticamente cuando se cumple una condición en Excel

Conclusión

Variantes de macros VBA y HYPERLINK puede ser útil al enviar correos electrónicos automáticos desde Excel a Outlook. Espero que encuentre su método preferido entre los descritos anteriormente. Comente, si tiene más preguntas o tiene algo que añadir.