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

   
Vista:

Copiar archivos adjuntos a una ruta especifica con macro en outlook

Publicado por Giampier (2 intervenciones) el 01/07/2013 07:39:28
Buenos dias;
soy nuevo en este foro y espero estar en el grupo correcto, tengo una nesecidad 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 tambien eh encontrado la programacion pero nose como aplicarla en mi entorno.

Les comento un poco, aca trabajamos con archivos *.pst en mi caso tiene el nombre de Junio 2013 (cada mes varia el nombre segun 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 automaticamente, algo asi como una regla que actua en la bandeja de entrada.

El codigo que eh encontrado es este de aca, no entiendo mucho de programacion y quiero saber si alguien me puede ayudar re emplazando los datos que les eh dicho en esta programacion y obviando lo que no me sirva.[/COLOR]
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder