Tabla de contenido
Este es un ejemplo simple de cómo enviar un correo electrónico desde Excel.
Haga clic aquí para ver un ejemplo más complejo: envíe la hoja de trabajo por correo electrónico como un libro de trabajo separado. Este ejemplo también trata de la protección con contraseña y otros problemas comunes.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = FalsoAtenuar la aplicación como objetoAtenuar OutMail como objeto'Crear variables inicialesEstablecer OutApp = CreateObject ("Outlook.Application")Establecer OutMail = OutApp.CreateItem (0)'Correo electrónicoEn caso de error, reanudar siguienteCon OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Asunto".Body = "Texto del cuerpo"'.Attachments.Add (FilePath)' Opcional si tiene un archivo adjunto.Monitor'.Send' Opcional para automatizar el envío de correo electrónico.Terminar conEn caso de error, vaya a 0Set OutMail = NadaSet OutApp = NadaApplication.ScreenUpdating = TrueEnd Sub |
