buenos dias amigos

espero que alguien me pueda ayudar estoy tratando de hacer una macro o mas bien para complementar una macro que tengo para que al momento que envia el correo junto con el archivo adjunto me pueda eliminar de la carpeta de enviados el mismo email enviado

sub envio_archivo()

strReportName = "C:\Users\Sergio\Documents\Preforma\Preforma.xlsm"

Dim objOutlook As Object

Dim objMail As Object

Dim objOutlookAttach As Object

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(olMailItem)

Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)

With objMail

'A quien va dirigido el correo

.To = "[email protected]"

'Se especifica el asunto

.Subject = "Preforma cd jardin"

'Se especifica lo que se quiere que diga el mensaje

.Body = "Estimado, adjunto listado de clientes capturados asta el dia de hoy"

'Se escriben el o los archivos a adjuntar en el mail

.Attachments.Add (strReportName)

'Se manda el mensaje

.Send

End With

'Se cierran todos los objetos utilizados

Set objMail = Nothing

Set objOutlook = Nothing

end sub

esto que envie lo que quiero es que en cuanto lo envie lo elimine de la carpeta de enviados

por su ayuda gracias

Buenas analiza el siguiente enlace

Eliminar Elemento Enviado en OutLook

Un saludo

Gracias amigo agradezco me ayuden más ya que trato de incorporar la macro pero me manda errores

Buenas noches amigos

espero que alguien me pueda ayudar estoy tratando de hacer una macro o mas bien para complementar una macro que tengo para que al momento que envia el correo junto con el archivo adjunto me pueda eliminar de la carpeta de enviados el mismo email enviado

sub envio_archivo()

strReportName = "C:\Prueba.xlsm"

Dim objOutlook As Object

Dim objMail As Object

Dim objOutlookAttach As Object

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(olMailItem)

Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)

With objMail

'A quien va dirigido el correo

.To = "[email protected]"

'Se especifica el asunto

.Subject = "nombre del archivo"

'Se especifica lo que se quiere que diga el mensaje

.Body = "Estimado, adjunto listado de clientes capturados asta el dia de hoy"

'Se escriben el o los archivos a adjuntar en el mail

.Attachments.Add (strReportName)

'Se manda el mensaje

.Send

End With

'Se cierran todos los objetos utilizados

Set objMail = Nothing

Set objOutlook = Nothing

end sub

esto que envie lo que quiero es que en cuanto lo envie lo elimine de la carpeta de enviados del Outlook.

No se si alguien me puede ayudar a empalmar la macro del amigo logróastur ya que en realidad soy nuevo y no se como empalmar pues me sale error a la hora de querer insertar la macro.