¿Cómo validar que un archivo exista antes de adjuntarlo con VBA?

Para validar que un archivo existe antes de adjuntarlo con VBA, puedes usar la función `Dir`. Esta función te permite verificar si un archivo específico está presente en el sistema de archivos. Aquí te muestro un ejemplo de cómo puedes implementar esto en VBA:

Sub AdjuntarArchivoSiExiste()
    Dim rutaArchivo As String
    rutaArchivo = "C:rutaatuarchivo.txt" ' Cambia esta ruta al archivo que deseas verificar
    
    ' Verifica si el archivo existe
    If VerificarExisteArchivo(rutaArchivo) Then
        ' Si el archivo existe, procede a adjuntarlo o realizar cualquier otra acción necesaria
        MsgBox "El archivo existe y puede ser adjuntado."
        
        ' Aquí puedes agregar el código para adjuntar el archivo, por ejemplo:
        ' Dim OutApp As Object
        ' Dim OutMail As Object
        ' Set OutApp = CreateObject("Outlook.Application")
        ' Set OutMail = OutApp.CreateItem(0)
        ' On Error Resume Next
        ' With OutMail
        '     .To = "correo@ejemplo.com"
        '     .CC = ""
        '     .BCC = ""
        '     .Subject = "Asunto del correo"
        '     .Body = "Cuerpo del correo"
        '     .Attachments.Add rutaArchivo
        '     .Display ' o .Send para enviar directamente
        ' End With
        ' On Error GoTo 0
        ' Set OutMail = Nothing
        ' Set OutApp = Nothing
        
    Else
        MsgBox "El archivo no existe. No se puede adjuntar."
    End If
End Sub

Function VerificarExisteArchivo(ByVal rutaArchivo As String) As Boolean
    If Dir(rutaArchivo) <> "" Then
        VerificarExisteArchivo = True
    Else
        VerificarExisteArchivo = False
    End If
End Function

Descripción del código:

`rutaArchivo`: Aquí defines la ruta completa del archivo que deseas verificar.
`VerificarExisteArchivo`: Esta es una función que toma una ruta de archivo como argumento y devuelve `True` si el archivo existe, o `False` si no.
`Dir`: Esta función devuelve el nombre del archivo si existe, o una cadena vacía si no existe.

Este ejemplo también incluye un esqueleto para el envío de correos electrónicos con Outlook y adjuntar el archivo si existe. Asegúrate de cambiar `»C:rutaatuarchivo.txt»` a la ruta real del archivo que deseas verificar.