macro en outlook 2010

[thelma]

Hola ojala q alguien me pueda ayudar, necesito una macro que me guarde un archivo adjunto de Outlook,

pero que sea de un dominio especifico ej. @ssss.com y que sea guarde cuando reciba el mail, osea que no lo tenga q ejecutar yo q se ejecute automaticamente cuando me llegue dicho mail de dicho dominio,

ya tengo un Scrip

Este es mi codigo, y la verdad es que lo encontre, ya qu no se programas , espero q puedan ayudarme....

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

Dim strInter As String

'Abajo pongo el nombre o parte del nombre que necesito

strInter = "fte_registro"

GetAttachments_exit:

Set Atmt = Nothing

Set Item = Nothing

Set ns = Nothing

Set ns = GetNamespace("MAPI")

Set Inbox = ns.GetDefaultFolder(olFolderInbox)

i = 0

For Each Item In Inbox.Items

For Each Atmt In Item.Attachments

'Esta linea comprueba si el archivo adjunto (Atmt), contiene el nombre o parte del nombre definido arriba (strInter),

'si lo contiene lo guarda.

If InStr(1, Atmt, strInter) Then

FileName = "C:\adjuntos\" & _

Format(Item.CreationTime, "dd-mm-yyyy-hh_nn_ss_") & Atmt.FileName

Atmt.SaveAsFile FileName

i = i + 1

End If

Next Atmt

Next Item

If i > 0 Then

MsgBox "Se han guardado " & i & " archivos adjuntos." _

& vbCrLf & "se encuentran en la sig ruta: C:\adjuntos" _

& vbCrLf & vbCrLf & "Ten un buen dia.", vbInformation, "Finished!"

Else

MsgBox "No se ha guardado ningun archivo adjunto.", vbInformation, _

"Finished!"

End If

End Sub

Saludos!!