通过

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。