Saving attachment to local folder

[oliverliu2]

Dears,

I wrote a VBA in Outlook (2007) for saving the attachment to local folder (D:\). Unfortunately, the VBA is not working after Outlook is updated to 2010. Does anyone help to check the VBA code?

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "D:\Testing\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub