将消息保存到硬盘驱动器的Outlook 2007

Question

我需要使用outllok 2007将消息保存到硬盘驱动器，我需要将最新的消息转存到.msg格式的文件夹中，是否可以帮助？

ty！

pd。使用vba！ C：

Answer 1

Sub saveIt() 
    Dim m As MailItem 
    Set m = Application.ActiveExplorer.CurrentFolder.Items.GetLast 
    m.SaveAs "c:\temp\" & m.Subject & ".msg", olMSG 
End Sub