將消息保存到硬盤驅動器的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