Переместить, отправить письмо в папку

Question

Есть ли способ переместить отправленные письма из отправленной папки в другую папку, если она отправлена ​​на определенный адрес. Редактор правил Outlook для Outlook-2010 позволяет перемещать и копировать при выборе применения правила к отправляемым сообщениям. (в то время как полученные сообщения допускают только перемещение.)

Answer 1

Свойство SaveSentMessageFolder класса MailItem позволяет установить объект папки, который представляет папку, в которой будет сохранена копия сообщения электронной почты после отправки. Таким образом, сообщение будет помещено в нужную папку.

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 = "Eugene Astafiev" 
    Set myResponse.SaveSentMessageFolder = mpf 
    myResponse.Send 
    End Sub