Discussion :

[aramice]

Bonjour,

Je souhaite développer une macro pour Outlook qui effectuerait les étapes suivantes :
Pour un mail sélectionné :
Etape 1 : convertir ce mail en format *.pdf
Etape 2 : convertir les pièces jointes de ce mail au format *.pdf (pour les pièces jointes au format *.doc ou *.ppt)
Etape 3 : assembler ces différents documents *.pdf en un seul : mail.pdf + PieceJointe1.pdf + PieceJointe2.pdf …

J’utilise Microsoft Office Outlook 2003, Adobe Acrobat 6.0 Professional, le tout fonctionnant avec Windows 2000.

Pour l’étape 1, j’ai bien trouvé des exemples permettant de faire ceci en utilisant la fonction FileToPdf de la bibliothèque ACRODISTXLib, mais ces exemples sont applicables à Excel ou Access.
Mon problème est que je n’arrive pas à faire fonctionner le code de ces exemples pour une application à Outlook car, d’une part la méthode PrintOut de Outlook ne prend pas d’arguments et d’autre part la propriété ActivePrinter ne semble pas exister dans Outlook.
Auriez-vous des pistes pour m’aider pour cette étape SVP, merci d’avance.

Pour les étapes 2 et 3, ces questions n’ont probablement par leur place dans cette section du Forum j’en conviens, mais aurriez-vous des pistes à explorer pour que je démarre dans la bonne direction car j’ai trouvé pas mal de documents sur le site de Adobe, mais je suis un peu perdu avec toutes les infos disponibles.

Merci d’avance de votre aide.

[Oliv-]

Salut,
Effectivement tu résumes bien le pb.

Outlook ne permet d'imprimer que sur l'imprimante par défaut.
en plus si c'est du html cela dépend je pense de la version de IE installée sur ton poste et si le document contient des tableaux larges, l'impression peut être tronquée à droite.

Voici ce que je préconise.
Dans un dossier temporaire, tu enregistres les PJ.

L'idéal est de remplacer dans le htmlbody le cid des pj incorporées par l'emplacement de la pj dans le dossier temporaire (pour imprimer les images)

Puis tu enregistres le mail en HTML

Ensuite tu ouvres ce fichier avec IE ou WORD pour l'imprimer vers ton imprimante PDF, la même chose avec les pj soit ,avec leur programme adhoc ou alors avec la commande print du clic droit

et tu fusionnes

Tout cela en vba bien sûr

Code :

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

1
2
3
4
5
6
7
8
9
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 As String, ByVal nShowCmd As Long) As Long
Private 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

[aramice]

Merci Oliv pour ces infos.
J'ai deux petites questions cependant :
- que signifie "cid" dans "remplacer dans le htmlbody le cid des pj", je ne connais pas l'abréviation.
- la fusion des documents *.pdf créés est-elle donc bien possible en VBA ?
Merci d'avance.

[Oliv-]

Quand tu regardes la source d'un mail comportant une image incorporée

tu trouves un truc du genre
src="cid:68EB13F1-DE26-40D1-A322-04BD4D04FE47"
qui désigne le lien interne vers l'image.

[aramice]

Ok, merci je vais essayer de cette manière.

[Myssa27]

Bonjour,
J'ai exactement le même problème. As tu résolu le tien ?
Amicalement.
Samy