Antes que nada, gracias por responder amigo. Bueno, como dije en mi post inicial, la programación y yo no nos llevamos para nada bien.
No entendí muy bien el segundo punto que mencionas, pero mira, mi código está asi:
Cita: Sub Attachments()
Dim oApp As Application
Dim oNS As NameSpace
Dim oMsg As Object
Dim oAttachments As Outlook.Attachments
Dim strControl
Set oApp = New Outlook.Application
Set oNS = oApp.GetNamespace("MAPI")
Set oFolder = oNS.GetDefaultFolder(olFolderInbox)
strControl = 0
For Each oMsg In oFolder.Items
With oMsg
If .SenderName = "Edgar silva ortega" Then
strControl = strControl + 1
oMsg.Attachments.Item(1).SaveAsFile "C:\reports"
.Delete
End If
End With
Next
End Sub
Seguramente algo está mal, y agradeceré me lo hagas saber. Ya que al ejecutar la macro, me aparece el siguiente error:
"Se ha producido el error '-2147024891 (80070005)' en tiempo de ejecución:
No se puede guardar los datos adjuntos. No tiene el permiso necesario para realizar esta operación". Y bueno, no hace nada...
Espero puedas seguir orientandome, y disculpa si no entendí bien y mi pregunta es repetitiva..
Slds.