Discussion :

[devdev]

Bonjour a tous,

Voilà mon problème est le suivant :

j'ai un certain nombre de mail avec des pièces jointes
Je voudrais imprimer les pièces jointes pdf de ces mails sélectionnés.
Peut on faire une macro qui le fait automatiquement.

J'ai essayé plein de bout de code mais je n'y arrive pas.

Merci de votre réponse svp.

[Oliv-]

Oui ca détruit les forets, mais on peut le faire.

Il faut exporter les pj dans un repertoire temporaire puis on peut utiliser la commande print (équivalent du clic droit dans explorateur)du programme associé aux pdf.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'en tête de module 
'ceci est un code de GEO
 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ 
    (ByVal hWnd As Long, ByVal lpszOp As String, _ 
    ByVal lpszFile As String, ByVal lpszParams As String, _ 
    ByVal lpszDir As String, ByVal fsShowCmd As Long) As Long 
 
'la macro
Sub printPDF()
Dim Res As Long
Dim chemin_de_MaPj As String
chemin_de_MaPj = "z:\test_champ.pdf"
Res = ShellExecute(0, "print", chemin_de_MaPj, "", "", 0)
End Sub

[devdev]

Merci de la réponse mais ce n'est pas ce que je souhaite obtenir.
En fait, je veux imprimer automatiquement toutes les pièces jointes pdf comtenu dans tous les mails que j'aurai sélectionné dans outlook.

[Oliv-]

Merci de la réponse mais ce n'est pas ce que je souhaite obtenir

Tu parles de la destruction des forets ? je t'en félicite

En fait, je veux imprimer automatiquement toutes les pièces jointes pdf comtenu dans tous les mails que j'aurai sélectionné dans outlook.

et bien pour l'impression tu as la solution, pour l'automatique sur une selection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub ImprimePDFdeTouteLaSelection()
'---------------------------------------------------------------------------------------
' Procedure : ImprimePDFdeTouteLaSelection
' Author    : Oliv'
' Date      : 26/11/2008
' Purpose   :
'---------------------------------------------------------------------------------------
'
    Dim MonOutlook As Outlook.Application
    Dim Mail As Object
    Dim LeMail As Outlook.MailItem
    Dim LesMails As Object
    Set MonOutlook = Outlook.Application
    Set LesMails = MonOutlook.ActiveExplorer.Selection
    For Each LeMail In LesMails
 
 
            Dim pj As Attachment
            For Each pj In LeMail.Attachments
                If Right(UCase(pj.FileName), 4) = ".PDF" Then
                    LeFichier = "c:\temp\ziptemp\" & pj.FileName
                    pj.SaveAsFile (LeFichier)
                    'là tu mets ta fonction pour imprimer
 
                   doevents
                    Kill LeFichier 'supprime le fichier
                End If
            Next pj
 
    Next LeMail
    Set LesMails = Nothing
    MsgBox "Opération terminée"
End Sub

tu mélanges le tout et ca devrait être bon