El uso de scripts de VBA en Excel no requiere ningún conocimiento de programación. VBA lo ayuda a realizar muchas tareas avanzadas, como crear un informe de hoja de cálculo que contenga toda la información de la PC, enviar correos electrónicos directamente desde una hoja de cálculo ...
Para enviar correos electrónicos desde Microsoft Excel solo necesita unos pocos scripts simples. No tenga miedo de agregar esta función a su hoja de cálculo si realmente desea aprovechar al máximo el software de oficina de Excel.
Hay muchas razones por las que desea enviar un correo electrónico directamente a Microsoft Excel. Por ejemplo, sus empleados actualizan documentos y hojas de cálculo semanalmente, y desea recibir notificaciones por correo electrónico cuando se complete esa acción o, a veces, desea enviar por correo electrónico a todos los contactos en el mismo libro de trabajo. en ...
Debes haber pensado en usar un script de correo electrónico de Excel complicado, pero en realidad es muy simple. Este artículo lo guiará para aprovechar una característica que ha estado disponible durante mucho tiempo en Excel VBA, llamada Collaboration Data Objects (CDO) .
CDO es un componente de mensajería utilizado en Windows desde las primeras versiones. Solía llamarse CDONTS. Después del nacimiento de Windows 2000 y XP, "CDO para Windows 2000" lo reemplazó. Este componente está incluido en la instalación de VBA en Microsoft Word o Excel y está disponible para su uso en cualquier momento.
Usar este componente para enviar correos electrónicos en productos de Windows con VBA es extremadamente fácil. Por ejemplo, este artículo usa CDO en Excel para enviar correos electrónicos que contienen resultados en una celda.
Primero, vaya a la pestaña Desarrollador Excel > haga clic en Insertar en el panel Controles , luego seleccione un botón de comando.
Arrástrelo a esta hoja de trabajo, luego cree una nueva macro haciendo clic en Macros en la cinta Desarrollador.
Cuando hace clic en el botón Crear , se abre el editor de VBA.
Agregue una referencia a la biblioteca de CDO navegando a Herramientas> Referencias en el editor.
Desplácese hacia abajo en la lista hasta que vea Microsoft CDO para la Biblioteca de Windows 2000 . Marque la casilla de verificación y haga clic en Aceptar .
Cuando haga clic en Aceptar , anote el nombre de la función donde se pega el script, porque lo necesitará más adelante.
Para hacer esto, primero debe crear objetos relacionados con el correo electrónico y configurar todos los campos de entrega de correo electrónico necesarios.
Recuerde que muchos campos pueden o no, pero se requieren desde y hasta.
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
strSubject = "Resultados de la hoja de cálculo de Excel"
strFrom = "rdube02@gmail.com"
strTo = "rdube02@gmail.com"
strCc = ""
strBcc = ""
strBody = "Los resultados totales para este trimestre son:" & Str (Sheet1 .Células (2, 1))
Lo interesante es que puede crear cualquier cadena deseada para personalizar todo el mensaje de correo electrónico y asignarle la variable strBody.
Unir los contenidos de un mensaje de correo electrónico utilizando cadenas e insertar datos de cualquier hoja de cálculo de Microsoft Excel directamente en el correo electrónico (como se muestra arriba).
El siguiente fragmento de código es donde configura CDO para usar cualquier servidor SMTP externo para enviar correos electrónicos.
Este ejemplo no configura SSL a través de Gmail, CDO puede reemplazar SSL pero está fuera del alcance de este artículo. Si necesita usar SSL, el código avanzado en Github puede ayudarlo.
Establecer CDO_Mail = CreateObject ("CDO.Message")
en caso de error GoTo Error_Handling
Establecer CDO_Config = CreateObject ("CDO.Configuration")
CDO_Config.Load -1
Establecer SMTP_Config = CDO_Config.Fields
Con SMTP_Config
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp. gmail.com "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1
.Item (" http://schemas.microsoft.com/cdo/configuration/sendusername ") =" email@website.com "
.Item (" http://schemas.microsoft.com/cdo/configuration/sendpassword ") =" contraseña "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = Verdadero
.Actualizar
Finalizar con
Con CDO_Mail
Set .Configuration = CDO_Config
Finalizar con
Ahora ha configurado su servidor SMTP para enviar correos electrónicos. Todo lo que tiene que hacer es completar los campos apropiados para el objeto CDO_Mail y emitir el comando Enviar .
Aquí se explica cómo hacerlo:
CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
Si Err.Description <> "" Entonces MsgBox Err.Description
Ninguna de las ventanas emergentes o alertas de seguridad aparecen como suele ver al usar el objeto de correo electrónico de Outlook.
CDO simplemente pone los componentes de correo electrónico uno al lado del otro y usa los detalles de conexión del servidor para permitir el envío de información. Esta es la forma más fácil de combinar correos electrónicos en scripts de Microsoft Word o Excel VBA.
Para conectar el botón de comando a este script, acceda al editor de código y haga clic en Sheet1 para ver el código VBA de esa hoja de trabajo.
Escriba el nombre de la función donde pegó el script anterior.
Esta es la información que recibe en la bandeja de entrada.
Nota : Si recibe el mensaje de error El transporte no se pudo conectar al servidor , asegúrese de haber ingresado el nombre de usuario, la contraseña, el servidor SMTP y el número de puerto correctos en la línea de código que aparece en Con SMTP_Config .
Enviar correos electrónicos desde Excel con un solo botón es realmente seguro y conveniente. Si desea utilizar esta función con frecuencia, puede automatizarla.
Para hacer esto, necesita cambiar la macro. Vaya al Editor de Visual Basic, copie y pegue todo el código recopilado. A continuación, seleccione ThisWorkbook de la jerarquía del proyecto .
Desde los dos campos desplegables en la parte superior de la ventana de código, seleccione Libro de trabajo y haga clic en Abrir en el menú Métodos . Pegue la secuencia de comandos de correo electrónico anterior en Private Sub Workbook_Open () . Esta acción ejecutará la macro cada vez que abra el archivo de Excel.
A continuación, abra el Programador de tareas . Utilizará esta herramienta para pedirle a Windows que abra automáticamente las hojas de cálculo a intervalos específicos. En ese momento, su macro se activará y enviará por correo electrónico.
Seleccione Crear tarea básica ... en el menú Acción y siga las instrucciones hasta llegar a la pantalla Acción.
Seleccione Iniciar un programa y haga clic en Siguiente .
Use el botón Examinar para buscar la ubicación de Microsoft Excel en la computadora o copie y pegue la ruta en el campo Programa / secuencia de comandos .
Luego ingrese la ruta al documento de Microsoft Excel en el campo Agregar argumentos .
Instrucciones completas y el horario que se realizará.
Debe probar esta función programando la acción en los próximos minutos y luego revisando la tarea después de ver que funciona de manera efectiva.
Nota : Es posible que deba ajustar la configuración del Centro de confianza para asegurarse de que la macro se ejecute de la siguiente manera:
Abra la hoja de cálculo y navegue hasta Archivo> Opciones> Centro de confianza .
Aquí, haga clic en Configuración del Centro de confianza . En la siguiente pantalla, seleccione Nunca mostrar información sobre contenido bloqueado .
Microsoft Excel es una herramienta extremadamente poderosa, pero aprender a usarlo a veces puede ser un desafío para muchos. Si desea dominar este software, necesita saber cómo usar VBA. No es facil
Sin embargo, con un poco de experiencia en VBA, puede automatizar tareas básicas en Microsoft Excel y tener más tiempo para enfocarse en tareas más importantes.
Espero que el artículo te sea útil. ¡Te deseo éxito!
¿Tiene problemas con el Error H de Microsoft Teams durante las actualizaciones? Descubra cómo solucionar el Error H de Microsoft Teams, sus causas comunes y soluciones rápidas para restablecer una colaboración fluida. Actualizado con las últimas soluciones.
¿Tienes problemas con el llavero de errores de Microsoft Teams para Mac? Descubre soluciones paso a paso y probadas para macOS y recupera una colaboración fluida. ¡Soluciones rápidas en el interior!
¿Cansado de que el error 1200 de Microsoft Teams bloquee tus llamadas? Descubre soluciones rápidas y paso a paso para iOS y Android y vuelve a trabajar en equipo sin problemas rápidamente, ¡sin necesidad de conocimientos técnicos!
¿Frustrado porque tu grabación de Microsoft Teams falló? Descubre las razones más comunes, como problemas de permisos, límites de almacenamiento y fallos de red, además de soluciones paso a paso para evitar futuros fallos y grabar siempre de forma impecable.
¿Frustrado porque las salas de reuniones no aparecen en tu reunión de Teams? Descubre las principales razones por las que no puedes verlas en Teams y sigue nuestras soluciones paso a paso para que funcionen correctamente en minutos. ¡Ideal tanto para organizadores como para participantes!
¿Tienes problemas con un error de red de Microsoft Teams en una red Wi-Fi pública? Obtén soluciones instantáneas como ajustes de VPN, comprobaciones de puertos y borrado de caché para restaurar llamadas y reuniones sin problemas. Guía paso a paso para una solución rápida.
¿Perdiste archivos importantes en Microsoft Teams? Descubre la ubicación exacta de la Papelera de reciclaje de Microsoft Teams y sigue nuestros pasos comprobados para recuperar archivos eliminados de forma rápida y sencilla, ¡sin necesidad de conocimientos técnicos!
Descubre cómo configurar el estado "Fuera de oficina" en Microsoft Teams con sencillos pasos para escritorio, móvil y sincronización con Outlook. Mantén la profesionalidad mientras estás fuera: ¡configuración rápida en minutos!
Descubre exactamente dónde encontrar el código QR de Microsoft Teams para iniciar sesión móvil ultrarrápido. Guía paso a paso con imágenes para conectarte en segundos, ¡sin necesidad de contraseñas!
¿Tienes problemas con el error al unirte a una reunión de Microsoft Teams? Descubre pasos comprobados para solucionarlo mediante enlaces directos. Soluciones rápidas para unirte sin problemas, ¡sin necesidad de conocimientos técnicos!
