Office - Copiar archivos adjuntos a una ruta especifica con macro en outlook

Buenos dias;
soy nuevo en este foro y espero estar en el grupo correcto, tengo una necesidad y por ello que recuro a ustedes para que me ayuden.

En el trabajo quiero que de un destinatario en especifico me copie los adjuntos a una ruta especifica, eh encontrado que eso se hace por medio de una macro en outlook la cual también eh encontrado la programación pero no se como aplicarla en mi entorno.

Les comento un poco, acá trabajamos con archivos *.pst en mi caso tiene el nombre de Junio 2013 (cada mes varia el nombre según corresponda), los correos llegan a la bandeja de entrada que lleva ese mimos nombre "Bandeja de entrada", yo quiero copiar los adjunto a una ruta por ejm. "c:\datos".

aparte quiero que la macro se ejecute automáticamente, algo asi como una regla que actúa en la bandeja de entrada.

El código que eh encontrado es este de aca, no entiendo mucho de programación y quiero saber si alguien me puede ayudar re emplazando los datos que les eh dicho en esta programación y obviando lo que no me sirva.

Sub GetAttachments()

Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer
Dim SubFolder As MAPIFolder

GetAttachments_exit:
Set Atmt = Nothing
Set Item = Nothing
Set ns = Nothing
Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
Set SubFolder = Inbox.Folders("Prueba")
i = 0

If SubFolder.Items.Count = 0 Then
MsgBox "There are no messages in Prueba folder.", vbInformation, _
"Nothing Found"

Exit Sub
End If

If SubFolder.Items.Count > 0 Then
For Each Item In SubFolder.Items
For Each Atmt In Item.Attachments
FileName = "C:\reports\" & _
Format(Item.CreationTime, "dd mm yyyy_hh nn_") & Atmt.FileName
Atmt.SaveAsFile FileName
i = i + 1
Next Atmt
Next Item
End If

If i > 0 Then
MsgBox "I found " & i & " attached files." _
& vbCrLf & "I have saved them into the C:\reports." _
& vbCrLf & vbCrLf & "Have a nice day.", vbInformation, "Finished!"
Else
MsgBox "I didn't find any attached files in your mail.", vbInformation, _
"Finished!"

End If

End Sub

Muchas gracias ante todo.