3Jul
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).Het derde 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 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 naar devenster aan de rechterkant zoals weergegeven in de kogel # 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( "Batchafdrukken") Voor elk item in Inbox. Items voor elke Atmt In Item. Attachments 'alle bijlagen worden eerst opgeslagen in de tijdelijke map C: \ Temp. Zorg dat u deze map maakt. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile Bestandsnaam '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 nu het volgende item. Verwijder 'verwijder deze regel als u niet wilt dat de e-mail automatisch wordt verwijderd Volgende Set Inbox = Nothing End SubMerk op dat u mogelijk de regel moet wijzigenvan code die Acrobat oproept om overeen te komen met het pad op uw systeem.
Stap 6
Nu is de installatie voltooid. Alle e-mails van uw faxverkoper 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
Als u nu alle bijlagen wilt afdrukken, gaat u gewoon naar de macro en voert u de macro PrintAttachments uit en worden alle bijlagen sequentieel 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 er een geldige printerdriver is ingesteld en geselecteerd.
Ik hoop dat dit nuttig is!