Propiedad MailItem.SaveSentMessageFolder (Outlook)

Devuelve o establece un objeto Folder que representa la carpeta en la que se guardará una copia del mensaje de correo electrónico después de enviarlo. Lectura/escritura.

Sintaxis

expresión. SaveSentMessageFolder

expresión Variable que representa un objeto MailItem.

Ejemplo:

Este ejemplo de Visual Basic para Aplicaciones (VBA) envía una respuesta a Dan Wilson y establece la SaveMyPersonalItems carpeta como la carpeta en la que se guardará una copia del elemento después de enviarse. Para ejecutar este ejemplo sin errores, asegúrese de que haya un elemento de correo abierto en la ventana activa del inspector y sustituya "Dan Wilson" por un nombre de destinatario válido.

Sub SetSentFolder() 
 
 Dim myItem As Outlook.MailITem 
 
 Dim myResponse As Outlook.MailITem 
 
 Dim mpfInbox As Outlook.Folder 
 
 Dim mpf As Outlook.Folder 
 
 
 
 Set mpfInbox = Application.Session.GetDefaultFolder(olFolderInbox) 
 
 Set mpf = mpfInbox.Folders.Add("SaveMyPersonalItems") 
 
 Set myItem = Application.ActiveInspector.CurrentItem 
 
 Set myResponse = myItem.Reply 
 
 myResponse.Display 
 
 myResponse.To = "Dan Wilson" 
 
 Set myResponse.SaveSentMessageFolder = mpf 
 
 myResponse.Send 
 
End Sub

Consulte también

Objeto MailItem

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.