Свойство MailItem.SaveSentMessageFolder (Outlook)
Возвращает или задает объект Folder , представляющий папку, в которой будет сохранена копия сообщения электронной почты после отправки. Для чтения и записи.
Синтаксис
выражение. SaveSentMessageFolder
Выражение Переменная, представляющая объект MailItem .
Пример
Этот пример Visual Basic для приложений (VBA) отправляет ответ Дэну Уилсону и задает 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.