Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Crear Macro en outlook para copiar archivos adjuntos

Estas en el tema de Crear Macro en outlook para copiar archivos adjuntos en el foro de Visual Basic clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 20/06/2013, 11:36
 
Fecha de Ingreso: junio-2013
Ubicación: Lima
Mensajes: 3
Antigüedad: 10 años, 10 meses
Puntos: 0
De acuerdo Crear Macro en outlook para copiar archivos adjuntos

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.
  #2 (permalink)  
Antiguo 30/06/2013, 22:57
 
Fecha de Ingreso: junio-2013
Ubicación: Lima
Mensajes: 3
Antigüedad: 10 años, 10 meses
Puntos: 0
Respuesta: Crear Macro en outlook para copiar archivos adjuntos

Buenas noches.. alguien que pueda ayudarme? o capaz estoy en el grupo equivocado?? gracias..

Etiquetas: adjuntos, form, macro, outlook, report
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:07.