Impresión por lotes de archivos adjuntos PDF en Outlook

Este artículo fue escrito por Sean Tsai, un experto en almacenamiento de datos y buen amigo de los How-To Geek

¿Alguna vez ha deseado imprimir todos los archivos adjuntos que recibe en su buzón de correo electrónico de Outlook? Supongamos que se suscribió a un servicio gratuito de fax por correo electrónico en formato PDF y desea que se impriman automáticamente como si se tratara de una máquina de fax anticuada.

He aquí una manera 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. Usando el código VB, creamos una macro para que usted pueda ejecutar un trabajo de impresión contra cada correo electrónico en esa subcarpeta, de modo que no tenga 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 tenga este aspecto:

Coloque la dirección de correo electrónico de su proveedor de fax en el campo “email@myfaxservice.com”. En la línea de asunto, coloque el texto persistente que se envía desde el proveedor de fax cada vez (no incluya el texto que se modificará periódicamente). El tercer campo “Impresiones por lotes” es la subcarpeta que acaba de crear en el primer paso.

Paso 3

Cree una macro VB. Primero abra el editor de VB yendo a Herramientas/Macro/Editor Básico Visual. Debería ver que el editor VB tiene este aspecto:

Paso 4

Desde la ventana izquierda de Proyecto, haga clic con el botón derecho del ratón en el elemento Proyecto1 e inserte un módulo llamado Módulo1:

Paso 5

Una vez creado el Módulo 1, copie el código de abajo en la ventana del lado derecho como se muestra en la viñeta #3.

Public Sub PrintAttachments() Dim Inbox como MAPIFolder Dim Item As MailItem Dim Atmt como archivo adjunto Dim FileName Como cadena Dim i As Integer Set Inbox = GetNamespace(“MAPI”).GetDefaultFolder(olFolderInbox).Parent.Folders.Item(“Batch Prints”) Para cada artículo de la Bandeja de entrada Para cada uno de los archivos adjuntos de la posición Todos los archivos adjuntos se guardan primero en la carpeta temporal C:Temp. Asegúrese de crear esta carpeta. FileName = “C:Temp” & Atmt.FileName

Publicaciones relacionadas:

Qué hacen las teclas de función en Microsoft Excel Cómo convertir un PDF a un documento de Microsoft Word Cómo crear plantillas personalizadas en Excel ¿Cómo se crean ranuras de letras espaciadas uniformemente para formularios en Microsoft Word? Cómo utilizar períodos en fechas en Excel ¿Por qué se necesita un servidor SMTP intermedio para enviar correo? Cómo añadir un borde a una página entera en Word Cómo cambiar el color de las líneas de la cuadrícula en Excel Cómo limitar la corrección ortográfica al diccionario principal sólo en Outlook Cómo seguir hipervínculos en Outlook 2013 sin mantener pulsada la tecla Ctrl Principiante: Cómo crear, administrar y compartir calendarios en Outlook 2013 Cómo modificar una firma para usarla en mensajes de correo electrónico de texto sin formato en Outlook 2013