Ci-dessous, vous apprendrez à joindre automatiquement un fichier PDF précédemment créé via l'imprimante PDF en tant que pièce jointe à un e-mail dans Outlook. Après l'impression du PDF, un e-mail Outlook s'ouvre automatiquement avec le PDF en pièce jointe.

L'exemple de script VB suivant est très simple. Le script VB peut être appelé à partir du shell de commande (console Windows DOS).

    Option Explicit
    Dim fn
    Dim ol, ns, newMail
    Const olMailItem = 0
    Rem -- Check that there is the right number of arguments
    If WScript.Arguments.Count <> 1 Then
    Msgbox "Wrong arguments"
    Wscript.Quit
    End If
    Rem -- Get the file name from the command line
    fn = WScript.Arguments.Item(0)
    Rem -- Get access to the Outlook application
    Set ol = WScript.CreateObject("Outlook.Application")
    Set ns = ol.getNamespace("MAPI")
    Rem -- Create the new mail
    Set newMail = ol.CreateItem(olMailItem)
    Rem -- Attach the file
    newMail.Attachments.Add fn
    Rem -- Display the new message
    newMail.Display
    Rem -- Clean up
    Set newMail = Nothing
    Set ns = Nothing
    Set ol = Nothing
    

Enregistrez le code dans un fichier script à:

C:\Programme\7-PDF\PDF Printer\EmailOnSuccess.vbs

Vous pouvez maintenant laisser l'imprimante exécuter le script lorsque le fichier PDF est créé avec succès. Ajoutez les deux lignes de code suivantes à un fichier de configuration. Dans cet exemple, nous pouvons les placer dans global.ini.

RunOnSuccess=cscript.exe "C:\Programme\7-PDF\PDF Printer\EmailOnSuccess.vbs" "%1"
RunOnSuccessMode=Normal

Par conséquent, le script est exécuté après la création réussie de l'imprimante PDF et le transfert du nouveau document PDF au script VB en tant que paramètres.

Vous pouvez facilement modifier ce script pour supprimer le fichier PDF après l'avoir joint à un e-mail si vous ne souhaitez pas enregistrer le PDF dans le système après l'avoir envoyé.

LiveZilla Live Chat Software
Top