|
Apprendre comment imprimer les pièces jointes PDF à partir de Microsoft Outlook à l'aide de Visual Basic pour Applications ( VBA ) peut vous faire gagner du temps lorsque vous avez besoin d'imprimer de nombreuses pièces jointes PDF . VBA est un langage de programmation utilisé dans toutes les applications Microsoft Office pour automatiser des tâches telles que l'impression des fichiers . Dans Outlook, vous pouvez créer des procédures où le code VBA est ajouté et exécutée à l'aide de l'éditeur VB . Utilisez la bibliothèque " ShellExecute " pour exécuter la commande d'impression et d'imprimer un fichier PDF . Vous pouvez créer un couple de " For ... Boucles " pour rechercher les pièces jointes PDF dans votre boîte de réception et les imprimer. Instructions
1 Lancez Microsoft Outlook, cliquez sur le menu "Outils" et cliquez sur " Basic Editor Macro> visuel" d'ouvrir les fenêtres VB Editor. Cliquez sur le menu "Insertion " et cliquez sur "Module " pour ajouter un nouveau module de code VBA.
2 Copiez et collez le code suivant pour définir la fonction " ShellExecute " que vous allez utiliser pour imprimer le PDF fichiers :
public Declare ShellExecute Lib Alias " shell32.dll " de fonction " ShellExecuteA " _ ( ByVal hWnd As Long , ByVal lpOperation As String , ByVal comme corde, lpFile lpParameters _ByVal As String , ByVal lpDirectory As String , _ByVal nShowCmd As Long ) As Long
3 Ajoutez la fonction suivante pour appeler la fonction " ShellExecute " et imprimer le fichier PDF actuel :
fonction PrintFile ( pdfName Comme string) ShellExecute 0, "Imprimer" , pdfName , vbNullString , "", 1End Fonction
4 Copiez et collez le code suivant dans une boucle sur tous les articles de courrier et d'imprimer les pièces jointes PDF trouvés utiliser votre imprimante par défaut : .
PrintAttachments public Sub () MaBoîte As MAPIFolderDim mailItem Comme mailItemDim attchmt Comme AttachmentDim pdfName Comme StringSet MaBoîte = GetNamespace ( " MAPI " ) GetDefaultFolder ( olFolderInbox ) pour chaque mailItem En myInbox.ItemsFor chaque attchmt En mailItem.AttachmentsIf ( InStr (1, attchmt , "pdf ". , vbTextCompare ) <> 0) ThenpdfName = "C: \\ Temp \\ " & attchmt.fileNameattchmt.SaveAsFile pdfNameCall PrintFile ( pdfName ) fin IfNextNextSet MaBoîte = NothingEnd Sous
5 Appuyez sur " F5 " pour exécuter le code. Le code permettra de sauver toutes les pièces jointes PDF dans "C: \\ Temp " avant de les imprimer
.
|
