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

Question

是一种将发送的电子邮件从已发送的文件夹移动到另一个文件夹的方法，如果它已发送到某个地址。用于Outlook-2010的 Outlook规则编辑器只有在选择将规则应用于已发送的邮件时才允许移动和复制。(而接收到的消息只允许移动。)

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