Question

是否有办法将已发送的电子邮件从已发送的文件夹移动到另一个文件夹（如果已将其发送到某个地址）。 Outlook-2010的Outlook规则编辑器仅允许移动和复制选择将规则应用于已发送的消息时。（收到的信息只允许移动。）

Answer 1

MailItem类的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

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

1 个答案: