Pregunta: | 67966 - COPIAR ARCHIVOS ADJUNTOS A UNA RUTA ESPECIFICA CON MACRO EN |
Autor: | Giampier Arellano Buleje |
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: eports" & _ 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: eports." _ & 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. |