移动，发送电子邮件到文件夹

Question

如果发送到特定地址，是否可以将已发送的电子邮件从已发送文件夹移动到另一个文件夹。 Outlook-2010 的 Outlook 规则编辑器只允许移动和选择将规则应用于已发送的邮件时复制。（虽然收到的消息只允许移动。）

Answer 1

MailItem class 的 SaveSentMessageFolder 属性允许设置一个 Folder 对象，该对象表示发送后将保存电子邮件副本的文件夹.因此，邮件将被放置到正确的文件夹中。

  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

移动，发送电子邮件到文件夹

Move, sent email to folder

email

rule-engine

outlook-2010