Bijlagen uit meerdere berichten opslaan (Outlook 2010)

[estut]

Ergens vond ik een script in VBA (zie onder dit bericht), om uit meerdere emailberichten (Outlook 2010) alle bijlagen op te slaan in een map. Vervolgens kan je met het instellen van een regel dit script laten draaien. Op zich duidelijk. Maar, het functioneert (nog) niet goed, ondanks dat ik m.i. alles goed heb ingesteld.
Mijn vraag is nu: zijn er evt andere methodes om, behalve met zo'n script, dit gedaan te krijgen?
Vast dank voor het meedenken.
Groet Eric

Script:
Sub SaveToFolder(MyMail As MailItem)
Dim strID As String
Dim objNS As Outlook.NameSpace
Dim objMail As Outlook.MailItem
Dim objAtt As Outlook.Attachment
Dim c As Integer
Dim save_name As String
'Place path to sav to on next line. Note that you must include the
'final backslash
Const save_path As String = "C:\bijlagen\"

strID = MyMail.EntryID
Set objNS = Application.GetNamespace("MAPI")
Set objMail = objNS.GetItemFromID(strID)

If objMail.Attachments.Count > 0 Then
For c = 1 To objMail.Attachments.Count
Set objAtt = objMail.Attachments(c)
save_name = Left(objAtt.FileName, Len(objAtt.FileName) - 4)
'save_name = save_name & Format(objMail.ReceivedTime, "_mm-dd-yyyy_hhmm")
save_name = save_name & Right(objAtt.FileName, 4)
objAtt.SaveAsFile save_path & save_name

Next
End If

Set objAtt = Nothing
Set objMail = Nothing
Set objNS = Nothing
End Sub