¿Cómo usar una macro para enviar el documento Word generado por correo automáticamente?

Para enviar un documento de Word automáticamente por correo electrónico utilizando una macro en VBA (Visual Basic for Applications), puedes seguir los pasos a continuación. Este ejemplo asume que estás utilizando Outlook como tu cliente de correo electrónico.

Sub EnviarDocumentoPorCorreo()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim Documento As Document
    Dim RutaDocumento As String
    
    ' Asegúrate de guardar el documento antes de enviarlo
    Set Documento = ActiveDocument
    Documento.Save
    RutaDocumento = Documento.FullName
    
    ' Crea una instancia de Outlook
    On Error Resume Next
    Set OutlookApp = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then
        Set OutlookApp = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0

    ' Crea y envía el correo
    Set OutlookMail = OutlookApp.CreateItem(0)
    With OutlookMail
        .To = "destinatario@example.com" ' Cambia esto al destinatario deseado
        .Subject = "Asunto del Correo"
        .Body = "Este es un correo enviado automáticamente desde Word."
        .Attachments.Add RutaDocumento
        ' Envía el correo (sin mostrarlo primero)
        .Send
    End With

    ' Limpieza
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
    Set Documento = Nothing
    
    MsgBox "El documento ha sido enviado por correo electrónico."
End Sub

Abrir el Editor de VBA:

Abre Microsoft Word.
Presiona `ALT + F11` para abrir el Editor de VBA.

Insertar un Módulo Nuevo:

En el Editor de VBA, ve a `Insertar` > `Módulo` para crear un nuevo módulo.

Escribir el Código de VBA:

Copia y pega el siguiente código en el módulo. Este código crea un correo electrónico y adjunta el documento de Word activo.

Personalización:

Cambia `»destinatario@example.com»` al correo electrónico del destinatario.
Modifica el campo `.Subject` y `.Body` según sea necesario para tu correo electrónico.

Ejecutar la Macro:

Cierra el Editor de VBA y vuelve a Word.
Presiona `ALT + F8`, selecciona `EnviarDocumentoPorCorreo` y haz clic en “Ejecutar” para enviar el documento por correo electrónico.

Notas Importantes:

Seguridad: Asegúrate de que las macros están habilitadas en Word, ya que son necesarias para ejecutar este script.
Permisos de Outlook: Este script requiere que Outlook esté instalado y configurado correctamente en tu computadora, y puede pedir permiso para enviar correos electrónicos en tu nombre.
Errores de Ejecución: Si encuentras errores, verifica que Outlook esté abierto y que el documento de Word esté guardado.

Este método automatiza el envío de un documento Word por correo utilizando una macro. Asegúrate de probarlo y ajustarlo según tus necesidades y entorno.