gracias por la respuesta, hasta el nombre del fichero adjunto ya habia llegado jejeje. El problema que tengo es como saber si en el nombre del fichero adjunto existen por algun lado las siglas ASR.  Estoy intentando hacerlo por @contains  pero no me funciona

            If doc.hasembedded Then
               
                Set rtitem =doc.getfirstitem("Body")
                Forall x In rtitem.EmbeddedObjects
                    Dim anexo As String
                    anexo=x.name                
                    If anexo ="" Then
                    ' nada no hay anexo
                    Else
                        existeASR = Evaluate (|@Contains(anexo;"ASR")|, doc)

                        If existeASR (0)=1 Then

                        'entonces como el adjunto contiene la siglas hay que guardarlo en la carpeta de la unidad D
                    End If
                End Forall