Batch Print PDF Attachments in Outlook

Este artigo foi escrito por Sean Tsai, um especialista em armazenagem de dados e um bom amigo do How-To Geek

. Você já quis imprimir todos os anexos que você receber na caixa de email do Outlook? Digamos que você se inscreveu em um fax gratuito para o serviço de e-mail PDF e deseja que eles sejam impressos automaticamente, assim como uma máquina de fax antiquada.

Aqui está uma maneira rápida de conseguir isso se você estiver confortável com um pouco de programação VB( macro).

O que mostramos aqui é criar uma regra no Outlook e mover os e-mails de fax recebidos para uma subpasta separada. Usando o código VB, criamos uma macro para que você execute um trabalho de impressão em todos os e-mails dessa subpasta para que não seja necessário abrir o e-mail e imprimir os anexos um a um.

Passo 1

Crie uma subpasta chamada "Batch Prints" em "Mailbox - YourName" no Outlook.

Etapa 2

Crie uma regra( do menu Ferramentas / Regras e Alertas) no Outlook que se parece com isso:

Coloque o endereço de e-mail do seu fornecedor de fax no campo "[email protected]".Na linha de assunto, coloque o texto persistente que é enviado do fornecedor de fax sempre que possível( não coloque o texto que será alterado periodicamente).O terceiro campo "Batch Prints" é a subpasta que você acabou de criar na primeira etapa.

Passo 3

Crie uma macro VB.Primeiro, coloque o editor VB, indo ao Editor de ferramentas /Macro/ Visual Basic. Você deve ver o editor do VB como este:

Passo 4

Na janela do lado esquerdo do projeto, clique com o botão direito do mouse no item Project1 e insira um módulo chamado Module1:

Etapa 5

Uma vez que o Module1 foi criado, copie o código abaixo nojanela no lado direito como mostrado na bala # 3.

Public Sub PrintAttachments() Dim Inbox como MAPIFolder Dim Item como MailItem Dim Atmt como anexo Dim FileName como String Dim i As Integer Definir Inbox = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Batch Prints") Para cada item na caixa de entrada. Artigos para cada Atmt em Item. Attachments 'todos os anexos são salvos pela primeira vez na pasta temporária C: \ Temp. Certifique-se de criar esta pasta. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile FileName ', altere a pasta do programa de acordo se o Acrobat Reader não estiver instalado na unidade C: Shell "" "C: \ Arquivos de Programas \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe" "/ h /P "" "+ FileName +" "" ", vbComo próximo Item. Delete 'remover esta linha se você não quiser que o email seja excluído automaticamente Próximo Set Inbox = Nothing End Sub

Observe que você precisará alterar a linhado código que chama o Acrobat para combinar o caminho no seu sistema.

Passo 6

Agora a configuração está completa. Todos os e-mails do seu fornecedor de fax serão movidos para o seu "Batch Prints" quando entrarem. Por favor, note, no exemplo, esperamos que todos os anexos estejam em formato PDF, então usamos Acrobat acrord32.exe para imprimir todos os anexos.

Usando a Macro

Agora, quando você deseja imprimir todos os anexos, simplesmente vá para a macro e execute a macro PrintAttachments e todos os anexos serão impressos sequencialmente. O e-mail será excluído e transferido para o lixeira uma vez que ele tenha sido impresso.

Nota: as impressões são encaminhadas para sua impressora padrão, pelo que você precisa ter certeza de que um driver de impressora válido esteja configurado e selecionado.

Espero que isso seja útil!