Propriedade MailItem.SaveSentMessageFolder (Outlook)

Retorna ou define um objeto Folder que representa a pasta na qual uma cópia da mensagem de email será salva após ser enviada. Leitura/gravação.

Sintaxe

expressão. SaveSentMessageFolder

expressão Uma variável que representa um objeto MailItem.

Exemplo

Este exemplo de Visual Basic for Applications (VBA) envia uma resposta a Dan Wilson e define a SaveMyPersonalItems pasta como a pasta na qual uma cópia do item será salva após ser enviada. Para executar este exemplo sem erros, verifique se há um item de correio aberto na janela ativa do inspetor e substitua 'Dan Wilson' por um nome de destinatário 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

Confira também

Objeto MailItem

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.