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

最后发布: 2015-08-18 13:47:28


问题

如果将已发送的电子邮件发送到某个地址,是否可以将已发送的电子邮件从已发送的文件夹移动到另一个文件夹。 当选择将规则应用于已发送的邮件时,Outlook-2010的Outlook规则编辑器仅允许移动并复制。 (虽然收到的消息仅允许移动。)

email outlook-2010 rule-engine
回答

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