自动保存附件的Outlook转换为CSV

我已经使用下面的代码来自动保存文件名中的某些文本的Excel文件到他们到达我的Outlook文件夹中的特定位置：

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String saveFolder = "c:\temp\" For Each objAtt In itm.Attachments If InStr(objAtt.DisplayName, ".xlsx") Then If InStr(objAtt.DisplayName, "Test") Then objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName End If End If Next End Sub 

有没有办法我也可以让Outlook以.csv格式保存文件，或者至less指示它打开Excel并自动执行任务？

谢谢

Answer 1

您可以自动化Excel来完成您的工作。 但是，您仍然需要将附件保存在磁盘上。 然后在Excel中，您可以打开保存的文件并将其保存为您需要的格式。

请参阅如何从Visual Basic中自动运行Microsoft Excel以快速入门。