MailItem.SaveSentMessageFolder 属性 (Outlook)

返回或设置一个 Folder 对象，该对象表示发送后将保存电子邮件副本的文件夹。 读/写。

语法

expression。 SaveSentMessageFolder

expression 表示 MailItem 对象的变量。

示例

此Visual Basic for Applications (VBA) 示例向 Dan Wilson 发送答复，并将文件夹SaveMyPersonalItems设置为发送项目副本后将保存在其中的文件夹。 若要运行该示例而不出现错误，请确保在活动检查器窗口中已打开一封邮件，并且将"Dan Wilson"替换为有效的收件人名。

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

另请参阅

MailItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。