Impresión por lotes de archivos PDF adjuntos en Outlook
Este artículo fue escrito por Sean Tsai, un experto en almacenamiento de datos y buen amigo de How-To Geek.
¿Alguna vez ha querido imprimir todos los archivos adjuntos que recibe en su casilla de correo electrónico de Outlook? Digamos que se suscribió a un servicio gratuito de correo electrónico de fax a PDF y desea que se impriman automáticamente como un fax antiguo..
Esta es una forma rápida de lograrlo si se siente cómodo con un poco de programación VB (macro).
Lo que mostramos aquí es crear una regla en Outlook y mover los correos electrónicos de fax entrantes a una subcarpeta separada. Al usar el código VB, creamos una macro para que usted ejecute un trabajo de impresión en cada correo electrónico en esa subcarpeta para que no tenga que abrir el correo electrónico e imprimir los archivos adjuntos uno por uno.
Paso 1
Cree una subcarpeta llamada "Impresiones por lotes" en "Buzón - Su nombre" en Outlook.
Paso 2
Cree una regla (en el menú Herramientas / Reglas y alertas) en Outlook que tenga este aspecto:
Coloque la dirección de correo electrónico de su proveedor de fax en el campo "[email protected]". En la línea de asunto, coloque el texto persistente que se envía desde el proveedor de fax cada vez (no ponga el texto que se modificará periódicamente). Los 3rd el campo "Impresiones por lotes" es la subcarpeta que acaba de crear en el primer paso.
Paso 3
Crear una macro VB. Primero abre el editor de VB yendo a Herramientas / Macro / Editor de Visual Basic. Deberías ver que el editor de VB se ve así:
Etapa 4
Desde la ventana de proyecto del lado izquierdo, haga clic derecho en el elemento Project1 e inserte un módulo llamado Module1:
Paso 5
Una vez que se crea el Module1, copie el código siguiente en la ventana del lado derecho como se muestra en la viñeta # 3.
Public Sub PrintAttachments () Dim Inbox As MAPIFolder Dim Item As MailItem Dim Atmt As Attachment Dim FileName As String Dim i As Integer Set Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) Para cada elemento en la bandeja de entrada. Artículos para cada contacto En el elemento. Enganches, todos los archivos adjuntos se guardan primero en la carpeta temporal C: \ Temp. Asegúrese de crear esta carpeta. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName ', cambie la carpeta del programa en consecuencia si Acrobat Reader no está instalado en la unidad C: Shell "" "C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h / p "" "+ FileName +" "" ", vbHide Next Item.Delete 'eliminar esta línea si no desea que el correo electrónico se elimine automáticamente Next Set Inbox = Nothing End Sub Tenga en cuenta que es posible que deba cambiar la línea de código que llama a Acrobat para que coincida con la ruta en su sistema.
Paso 6
Ahora la configuración está completa. Todos los correos electrónicos de su proveedor de fax se moverán a sus "Impresiones por lotes" cuando lleguen. Tenga en cuenta que en el ejemplo esperamos que todos los archivos adjuntos estén en formato PDF, por lo que utilizamos Acrobat acrord32.exe para imprimir todos los archivos adjuntos..
Usando la macro
Ahora, cuando desee imprimir todos los archivos adjuntos, simplemente vaya a la macro y ejecute la macro PrintAttachments y todos los archivos adjuntos se imprimirán de forma secuencial. El correo electrónico se eliminará y se moverá a la papelera de basura una vez que se haya impreso.
Nota: las impresiones se envían a su impresora predeterminada, por lo que debe asegurarse de que se haya configurado y seleccionado un controlador de impresora válido..
Espero que esto sea útil!
