保存特定的传入消息到硬盘

Question

具体怎么进来的邮件保存到本地硬盘驱动器编程 或 如何将Outlook文件夹保存到本地硬盘驱动器编程

一方或对我的作品

Answer 1

到保存电子邮件的最简单的方法是使用展望规则+简单VBA脚本

例

Option Explicit 
Public Sub Save_Example(Item As Outlook.MailItem) 
    Dim Path As String 
    Dim FileName As String 

    Path = "C:\Temp\" 

    If Item.Subject = "Hello" Then 
     FileName = "Bla Bla" & ".msg" 
     Item.SaveAs Path & FileName, olMsg 
    End If 

End Sub