Cambiar el nombre al archivo adjunto al enviar un correo
Publicado por Roberto (5 intervenciones) el 19/11/2020 17:47:01
Buen día.
Tengo el siguiente código en una macro para enviar un correo con un un archivo adjunto.
Funciona bien y el archivo lo adjunta con el nombre que tiene el documento fisicamente. Mi pregunta es ¿existe alguna manera que que yo le cambie el nombre al documento adjunto? es decir, que si el archivo de llama DOCUMENTO.docm, al adjuntarlo se llame MyDocumento.docm.
Tengo el siguiente código en una macro para enviar un correo con un un archivo adjunto.
Funciona bien y el archivo lo adjunta con el nombre que tiene el documento fisicamente. Mi pregunta es ¿existe alguna manera que que yo le cambie el nombre al documento adjunto? es decir, que si el archivo de llama DOCUMENTO.docm, al adjuntarlo se llame MyDocumento.docm.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Set objMail = objOutlook.CreateItem(olMailItem)
RutaTemporal = VBA.Environ("temp") & "\"
NombreArchivo = RutaTemporal & "DOCUMENTO.docm"
ActiveDocument.SaveAs NombreArchivo.....With objMail
.To = Correo
.Subject = Asunto
.body = Msg
.Attachments.Add NombreArchivo
.SendValora esta pregunta
0