C/Visual C - adjuntar ficheros visual basic

Sub EnviarCorreoConAdjunto()

    Dim OutlookApp As Object

    Dim Correo As Object

    Dim RutaAdjunto As String

    ' Crear una instancia de Outlook '

    Set OutlookApp = CreateObject("Outlook.Application")

    Set Correo = OutlookApp.CreateItem(0) ' 0 representa un correo nuevo '

    ' Definir la ruta del archivo que deseas adjuntar '

    RutaAdjunto = "C:\ruta\del\archivo\tu_archivo.pdf" ' Cambia esto a la ruta de tu archivo '

    ' Configurar el correo '

    With Correo

        .To = "destinatario@ejemplo.com" ' Cambia esto al destinatario '

        .Subject = "Asunto del correo"

        .Body = "Este es el cuerpo del correo."

        .Attachments.Add RutaAdjunto ' Adjuntar el archivo '

        .Send ' Enviar el correo '

    End With

    ' Limpiar '

    Set Correo = Nothing

    Set OutlookApp = Nothing

End Sub