如何以編程方式從Outlook保存附件？

Question

每天，我都會在上午8點收到一封附有.xlsx附件的電子郵件。我需要我的outlook 2010將此附件保存到我的桌面上的文件夾中。我怎樣才能做到這一點 ？

Answer 1

點擊Alt + F11 - >打開一個新的模塊 - >

Public Sub saveAttachtoDisk (myItem As Outlook.MailItem) 
Dim myAttachment As Outlook.Attachment 
Dim saveFolder As String 
'change xxx to your folder's name 
saveFolder = 「c:xxx」 
For Each myAttachment In myItem.Attachments 
myAttachment.SaveAsFile saveFolder & 「\」 & myAttachment.DisplayName 
Set myAttachment = Nothing 
Next 
End Sub 

然後創建一個新的規則，以這個腳本適用於您的受助