Свойство MailItem.SaveSentMessageFolder (Outlook)

Статья
04/07/2023

Возвращает или задает объект 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

См. также

Объект MailItem

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через