¿Cómo cambiar el nombre de un archivo adjunto en Outlook desde VBA?

Cambiar el nombre de un archivo adjunto en Outlook utilizando VBA implica algunas etapas clave. Tendrás que guardar el archivo adjunto con un nuevo nombre en el sistema de archivos y luego, si es necesario, volver a adjuntarlo al correo electrónico. Aquí te dejo un ejemplo básico de cómo podrías hacer esto:

Sub CambiarNombreAdjunto()
    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olMail As Outlook.MailItem
    Dim olAttachments As Outlook.Attachments
    Dim olAttachment As Outlook.Attachment
    Dim sOldName As String
    Dim sNewName As String
    Dim sFilePath As String
    Dim sNewFilePath As String
    Dim i As Integer
    
    ' Inicializar el objeto de aplicación Outlook
    Set olApp = Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    
    ' Seleccionar la carpeta de entrada (o cualquier otra carpeta necesaria)
    Set olFolder = olNs.GetDefaultFolder(olFolderInbox)
    
    ' Asegúrate de modificar este índice para seleccionar el correo adecuado
    Set olMail = olFolder.Items(1) ' Aquí puedes especificar el índice o buscar el correo específico
    
    Set olAttachments = olMail.Attachments
    
    ' Iterar sobre los archivos adjuntos
    For i = 1 To olAttachments.Count
        Set olAttachment = olAttachments(i)
        sOldName = olAttachment.FileName
        
        ' Definir la nueva ruta y el nuevo nombre
        sFilePath = "C:TuDirectorio" & sOldName ' Directorio donde se guardará primero el archivo