Gracias nuevamente por la aydua amigo. Bueno al final logré hacerlo funcionar con otro código que encontré... un poco mas completo que el anterior.
Cita: 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
Ahora, todo funciona perfectamente, solo tengo dos dudas mas:
1.- Que puedo agregarle a esta macro, para evitar que me tome TODO lo que ve en los mensajes de correo como adjuntos? Es decir, si yo recibo un correo, que trae una imagen en la firma del mensaje, la macro toma esta imagen como si fuera un attachment, y lo guarda tambien en la carpeta especificada. Siendo que aunque en teoría entiendo que lo tome como adjunto, no lo es propiamente.
2.- Como se hace para que esta macro se ejecute cada que se reciba un correo nuevo? Porque hasta ahora, las pruebas funcionan de maravilla, pero yo tengo que ejecutar la macro manualmente. Puede ser que se ejecute automaticamente al recibir mail? O cada cierto tiempo??
Slds.