Macro para enviar correos con archivo adjunto de Excel desde Outlook.

Enviar archivos adjuntos de Excel en Outlook 2010 por medio de una Macro.

La siguiente Macro sirve para enviar como archivo adjunto el libro activo de Excel por medio de Outlook.

Sub Enviar_Correo()

ActiveWorkbook.SendMail _

Recipients:=" ecap@ecapmexico.net", _

Subject:= "Se ha creado el envío de prueba"

.
End Sub

La primera línea indica que el Libro activo se va a enviar por correo.
La segunda línea, pide asignar el destinatario, en este caso es ecap@ecapmexico.net
En la tercera debemos escribir el asunto.

Si ejecutamos la macro aparece el siguiente cuadro. Por seguridad, Outlook muestra este mensaje donde pregunta si permitimos el envío del correo.

Este tipo de macros, entre otras cosas, se utilizan para informar a un destinatario la realización de cierto informe, formato, reporte, etc. por parte de uno o varios usuarios.


Error '1004' en tiempo de ejecución al momento de dar clic en Denegar.

Cuando damos clic en Denegar se produce un Error y Visual Basic envía el siguiente mensaje:

Para evitar que la macro nos mande un error debemos utilizar el siguiente código: "On Error Resume Next"

Sub Enviar_Correo()

On Error Resume Next
ActiveWorkbook.SendMail _

Recipients:=" ecap@ecapmexico.net", _

Subject:= "Se ha creado el envío de prueba"

End Sub

Esta y muchas otras macros las podrás aprender en nuestro curso de Macros para Administración, Contabilidad y Finanzas.

CONTÁCTANOS: atencioneCAP@ECAPMEXICO.NET
TELÉFONO EN GUADALAJARA:              0133 36322719