摘要： 1. Save attachements from multiple emails to a directory (Outlook):Public Sub SaveAttachments() Dim SaveToPath As String SaveToPath = "C:\temp\" Set myfolder = Application.ActiveExplorer.CurrentFolder... 阅读全文