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
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.