1
lanzamiento Microsoft Outlook, haga clic en el menú " Herramientas" y haga clic en "Editor Macro> Visual Basic " para abrir la ventana Editor VB . Haga clic en el menú " Insertar" y haga clic en " módulos" para añadir un nuevo módulo de código VBA.
2
Copia y pega el código siguiente para definir la función " ShellExecute " que va a utilizar para imprimir el PDF archivos :
Public Declare Function ShellExecute Lib " shell32.dll " Alias " ShellExecuteA " _ ( ByVal hWnd As Long , lpOperation ByVal As String , ByVal como secuencia, lpFile lpParameters _ByVal As String , lpDirectory ByVal As String , _ByVal nShowCmd As Long ) As Long
3
Añada la siguiente función para llamar a la función " ShellExecute " e imprimir el archivo PDF actual :
Función PrintFile ( pdfName Como string) ShellExecute 0 , "Imprimir" , pdfName , vbNullString , "", 1End Función
4
Copia y pega el código siguiente para recorrer todos los elementos de correo e imprimir los archivos adjuntos PDF contenidos uso de la impresora por defecto: .
PrintAttachments Public Sub () myInbox As MAPIFolderDim MailItem Como mailItemDim attchmt Como AttachmentDim pdfName Como StringSet myInbox = GetNamespace ( " MAPI ") GetDefaultFolder ( olFolderInbox ) para cada MailItem En myInbox.ItemsFor Cada attchmt En mailItem.AttachmentsIf ( InStr ( 1 , attchmt , "pdf ". , vbTextCompare ) < > 0 ) ThenpdfName = "C : \\ temp \\ " & attchmt.fileNameattchmt.SaveAsFile pdfNameCall PrintFile ( pdfName ) Fin IfNextNextSet myInbox = NothingEnd Sub
5
Press "F5 " para ejecutar el código. El código se guardará todos los archivos adjuntos PDF en "C: \\ Temp" antes de imprimirlas
.