2012-07-25 130 views

回答

1

检查出MailItem.SaveAs方法。您指定路径和文件类型。

例:

Sub SaveEmail() 

Dim msg As Outlook.MailItem 

    ' assume an email is selected 
    Set msg = ActiveExplorer.Selection.Item(1) 

    ' save as text 
    msg.SaveAs "C:\MyEmail.txt", olTXT 

End Sub 

文件类型是一个OlSaveAsType恒定。在VBA编辑器中按F2并将其粘贴到搜索框中以获取可能的值列表。

+0

非常感谢,你怎样才能从电子邮件导出到Excel的特定行。我每天都会收到电子邮件。我想在excel中将特定的新数据行导出到列底(最后一行)。 – user206168 2013-12-30 17:19:53

相关问题