Comment Imprimer un fichier PDF en pièce Jointe dans VBA Outlook

Comment Imprimer un fichier PDF en piece Jointe dans VBA Outlook

Apprendre a imprimer des pieces jointes au format PDF a partir de Microsoft Outlook a l'aide de Visual Basic pour Applications (VBA) peut vous faire economiser du temps lorsque vous avez besoin d'imprimer un grand nombre de pieces jointes au format PDF. VBA est un langage de programmation utilise dans toutes les applications Microsoft Office pour automatiser des taches telles que l'impression des fichiers. Dans Outlook, vous pouvez creer des procedures ou le code VBA est ajoute et executee a l'aide de l'Editeur de VB. Utiliser le "ShellExecute" bibliotheque " pour executer la commande d'impression et d'imprimer un fichier PDF. Vous pouvez creer un couple de '& #8230 Boucles " a la recherche de pieces jointes au format PDF dans votre dossier boîte de reception et les imprimer.

Apprendre a imprimer des pieces jointes au format PDF a partir de Microsoft Outlook a l'aide de Visual Basic pour Applications (VBA) peut vous faire economiser du temps lorsque vous avez besoin d'imprimer un grand nombre de pieces jointes au format PDF. VBA est un langage de programmation utilise dans toutes les applications Microsoft Office pour automatiser des taches telles que l'impression des fichiers. Dans Outlook, vous pouvez creer des procedures ou le code VBA est ajoute et executee a l'aide de l'Editeur de VB. Utiliser le 'ShellExecute' bibliotheque ' pour executer la commande d'impression et d'imprimer un fichier PDF. Vous pouvez creer un couple de '& #8230 Boucles ' a la recherche de pieces jointes au format PDF dans votre dossier boîte de reception et les imprimer.

• Lancez Microsoft Outlook, cliquez sur le menu 'Outils' et cliquez sur 'Macro > Visual Basic Editor' pour ouvrir l'Editeur de VB windows. Cliquez sur le menu 'Inserer' et cliquez sur 'Module' pour ajouter un nouveau code VBA module.
• Copiez et collez le code suivant pour definir la 'ShellExecute' la fonction que vous souhaitez utiliser pour imprimer les fichiers PDF:
  Public Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' (ByVal hWnd as Long, ByVal lpOperation as String, ByVal lpFile as String, ByVal lpParameters as String, ByVal lpDirectory Comme une Chaîne de caracteres, _ByVal nShowCmd Aussi Longtemps) Tant
• Ajoutez la fonction suivante appeler la ' ShellExecute fonction et imprimer le fichier PDF en cours:
  Fonction de printFile(pdfName Comme une Chaîne de caracteres)ShellExecute 0, 'Imprimer', pdfName, vbNullString, '', 1End Fonction
• Copier et coller le code suivant a boucle a travers tous les articles de courrier et d'imprimer n'importe quel fichier PDF en piece jointe trouve a l'aide de votre imprimante par defaut:
  Public Sub PrintAttachments()
  Dim myInbox Comme MAPIFolderDim mailItem Comme mailItemDim attchmt Comme AttachmentDim pdfName Comme StringSet myInbox = GetNamespace('MAPI').GetDefaultFolder(olFolderInbox)Pour Chaque mailItem Dans myInbox.ItemsFor Chaque attchmt Dans mailItem.AttachmentsIf (InStr(1, attchmt, '.pdf', vbTextCompare) <> 0) ThenpdfName = 'C:\Temp\' & amp attchmt.fileNameattchmt.SaveAsFile pdfNameCall printFile(pdfName)Fin IfNextNextSet myInbox = Rien
  End Sub
• Appuyez sur ' F5 ' pour executer le code. Le code va enregistrer toutes les pieces jointes au format PDF en 'C:\Temp' avant de les imprimer.