3Jul
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 cada archivo adjunto que recibe en su casilla de correo electrónico de Outlook? Digamos que está suscrito a un servicio gratuito de envío de fax a PDF y desea que se impriman automáticamente como una máquina de fax antigua.
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 pueda ejecutar un trabajo de impresión contra cada correo electrónico en esa subcarpeta, por lo que no tiene que abrir el correo electrónico e imprimir los archivos adjuntos uno por uno.
Paso 1
Cree una subcarpeta llamada "Batch Prints" en "Mailbox - YourName" en Outlook.
Paso 2
Cree una regla( desde el menú Herramientas / Reglas y alertas) en Outlook que se ve así:
Coloque la dirección de correo electrónico de su proveedor de fax en el campo "[email protected]".En la línea del asunto, coloque el texto persistente que se envía desde el proveedor del fax cada vez( no coloque el texto que se modificará periódicamente).El tercer campo "Batch Prints" es la subcarpeta que acaba de crear en el primer paso.
Paso 3
Crea una macro VB.Primero, abra el editor de VB yendo a Herramientas /Macro/ Editor de Visual Basic. Debería ver el editor de VB así:
Paso 4
Desde la ventana izquierda del proyecto, haga clic con el botón derecho en el elemento Project1 e inserte un módulo llamado Module1:
Paso 5
Una vez que se haya creado Module1, copie el código siguiente enventana en el lado derecho como se muestra en la viñeta # 3.
Public Sub PrintAttachments() Dim Inbox como MAPIFolder Dim Item como MailItem Dim Atmt como Attachment Dim FileName como String Dim i As Integer Establecer Inbox = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Batch Prints"") Para cada elemento en la bandeja de entrada. Artículos para cada Atmt En Item. Attachments ', todos los archivos adjuntos se guardan primero en la carpeta temporal C: \ Temp. Asegúrate de crear esta carpeta. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile FileName 'cambie la carpeta del programa según corresponda si Acrobat Reader no está instalado en la unidad C: Shell "" "C: \ Archivos de programa \ 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 SubTenga en cuenta que es posible que necesite cambiar la líneade 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 "Batch Prints" cuando entren. Tenga en cuenta que, en el ejemplo, esperamos que todos los archivos adjuntos estén en formato PDF, por lo que usaremos Acrobat acrord32.exe para imprimir cada archivo adjunto.
Uso de 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 secuencialmente. El correo electrónico se eliminará y se moverá al contenedor de basura una vez que se haya impreso.
Nota: las impresiones se enrutan 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!