Batch PDF-bijlagen afdrukken in Outlook
Dit artikel is geschreven door Sean Tsai, expert in data warehousing en goede vriend van de How-To Geek
Heb je ooit alle bijlagen die je ontvangt in je Outlook e-mailbox willen afdrukken? Stel dat u bent geabonneerd op een gratis fax naar PDF e-mailservice en u wilt dat ze automatisch worden afgedrukt, net als een ouderwetse faxmachine.
Hier is een snelle manier om dat te bereiken als u vertrouwd bent met een klein beetje VB (macro) -programmering.
Wat we hier laten zien is om een regel in Outlook te maken en de binnenkomende fax-e-mails naar een aparte submap te verplaatsen. Met behulp van VB-code maken we een macro waarmee u een afdruktaak kunt uitvoeren voor elke e-mail in die submap, zodat u de e-mail niet hoeft te openen om de bijlagen één voor één af te drukken..
Stap 1
Maak een submap met de naam "Batch Prints" onder "Mailbox - YourName" in Outlook.
Stap 2
Maak een regel (vanuit menu Extra / Regels en waarschuwingen) in Outlook die er als volgt uitziet:
Plaats het e-mailadres van uw faxleverancier in het veld "[email protected]". Plaats in de onderwerpregel de permanente tekst die elke keer door de faxverkoper wordt verzonden (plaats de tekst niet die regelmatig wordt gewijzigd). De 3rd veld "Batchafdrukken" is de submap die u zojuist in de eerste stap hebt gemaakt.
Stap 3
Maak een VB-macro. Breng eerst de VB-editor naar voren door naar Tools / Macro / Visual Basic Editor te gaan. Je zou moeten zien dat de VB-editor er zo uitziet:
Stap 4
Klik vanuit het projectvenster aan de linkerkant met de rechtermuisknop op het item Project1 en voeg een module in met de naam Module1:
Stap 5
Nadat de Module1 is gemaakt, kopieert u de onderstaande code in het venster aan de rechterkant zoals weergegeven in Opsomming # 3.
Public Sub PrintAttachments () Dim inbox als MAPIFolder Dim Item als MailItem Dim Atmt als bijlage Dim FileName As String Dim i As Integer Set Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch-afdrukken" ) Voor elk item in Inbox. Items voor elke Atmt In Item. Alle bijlagen van bijlagen worden eerst opgeslagen in de tijdelijke map C: \ Temp. Zorg dat u deze map maakt. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName 'wijzig de programmamap dienovereenkomstig als Acrobat Reader niet is geïnstalleerd op station C: Shell "" "C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h / p "" "+ Bestandsnaam +" "" ", vb Verberg de volgende regel. Verwijder 'verwijder deze regel als u niet wilt dat de e-mail automatisch wordt verwijderd Volgende Set Inbox = Nothing End Sub Houd er rekening mee dat u mogelijk de regel met code die Acrobat gebruikt, moet aanpassen om overeen te komen met het pad op uw systeem.
Stap 6
Nu is de installatie voltooid. Alle e-mails van uw faxleverancier worden verplaatst naar uw "Batch-afdrukken" wanneer ze binnenkomen. Let op: in het voorbeeld verwachten we dat alle bijlagen in PDF-indeling zijn, dus gebruiken we Acrobat acrord32.exe om elke bijlage af te drukken.
De macro gebruiken
Wanneer u nu alle bijlagen wilt afdrukken, gaat u gewoon naar de macro en voert u de macro PrintAttachments uit en worden alle bijlagen achter elkaar afgedrukt. E-mail wordt verwijderd en naar de prullenbak verplaatst zodra deze is afgedrukt.
Opmerking: de afdrukken worden naar uw standaardprinter gestuurd, dus u moet ervoor zorgen dat een geldige printerdriver is ingesteld en geselecteerd.
Ik hoop dat dit nuttig is!
