Anexos em PDF de impressão em lote no Outlook
Este artigo foi escrito por Sean Tsai, especialista em data warehousing e bom amigo do How-To Geek
Você já quis imprimir todos os anexos recebidos em sua caixa de e-mail do Outlook? Digamos que você tenha se inscrito em um fax gratuito para o serviço de e-mail em PDF e queira que eles sejam impressos automaticamente, assim como uma máquina de fax antiga.
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 emails de fax recebidos para uma subpasta separada. Usando o código VB, criamos uma macro para você executar um trabalho de impressão em cada e-mail dessa subpasta, para que você não precise abrir o e-mail e imprimir os anexos um por um.
Passo 1
Crie uma subpasta denominada “Impressões em lote” em “Caixa de Correio - SeuNome” no Outlook.
Passo 2
Crie uma regra (no 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 toda vez (não coloque o texto que será alterado periodicamente). Os 3rd campo "Batch Prints" é a subpasta que você acabou de criar na primeira etapa.
etapa 3
Crie uma macro VB. Primeiro, abra o editor VB indo em Ferramentas / Macro / Editor do Visual Basic. Você deve ver o editor do VB assim:
Passo 4
Do lado esquerdo da janela Project, clique com o botão direito do mouse no item Project1 e insira um módulo chamado Module1:
Passo 5
Uma vez que o Módulo1 é criado, copie o código abaixo na janela do lado direito, como mostrado no item # 3..
Public Sub PrintAttachments () Dim caixa de entrada como MAPIFolder Dim Item como MailItem Dim Atmt como anexo Dim FileName como seqüência de caracteres Dim i como Integer Definir Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" Para cada item em Inbox.Items para cada Atmt em todos os anexos de Items.Attachments são salvos primeiro na pasta temporária C: \ Temp. Certifique-se de criar esta pasta. FileName = "C: \ Temp \" e 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 "" "+ Nome_do_arquivo +" "" ", vbAjuda Próximo Item.Delete 'remove esta linha se você não quiser que o email seja excluído automaticamente Próximo Definir Caixa de Entrada = Nada End Sub Observe que você pode precisar alterar a linha de código que chama o Acrobat para corresponder ao caminho em 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 eles chegarem. Observe que, no exemplo, esperamos que todos os anexos estejam no formato PDF, então usamos Acrobat acrord32.exe para imprimir todos os anexos.
Usando a macro
Agora, quando você quiser imprimir todos os anexos, simplesmente vá para a macro e execute a macro PrintAttachments e todos os anexos serão impressos seqüencialmente. O e-mail será excluído e movido para a lixeira depois de impresso.
Nota: as impressões são roteadas para a sua impressora padrão, portanto, você deve certificar-se de que um driver de impressora válido esteja configurado e selecionado.
Espero que isso seja útil!
