impression d'un mail en pdf avec mise en page

**jehnkira** · 09/12/2012, 19h40

Bonjour,
Sous Outlook 2007, quand je suis sur un message, je voudrais pourvoir en cliquant sur un bouton imprimer :
- Modifier mon imprimante par défaut pour mettre l'imprimante pdf creator,
- Imprimer mon mail en pdf en spécifiant un texte à mettre dans en entete en haut à droite du mail (Impression / Style impression / Mise en page / entete) avec PDF CREATOR
- Remettre mon imprimante par défaut de départ
- Supprimer le texte de l'entete pour qu'il n'apparaisse pas dans les prochaines impressions

Pour lancer l'impression, j'ai trouvé des bouts de code mais pour la mise en page, je seche. Si des idées pour le changement d'imprimantes, je suis preneuse.

Quelqu'un aurait t'il une idée?

Merci d'avance

**Oliv-** · 11/12/2012, 11h16

Salut,
Je ne pense pas que l'on puisse programmer les options d'impression tel que l'entête et le pdp même avec OL2007.

Je vois plusieurs solutions quand même :

- tu exportes ton Email en HTML (attention aux pj incorporées) tu trouveras un code sur le lien de ma signature

voir article (R15280), puis tu l'ouvres avec IE par automation et là tu programmes ton impression avec tes paramètres.

- tu peux faire le même genre de chose avec WORD.

- Une alternative est de modifier le CORPS DE TON Email pour y indiquer tes informations puis tu imprimes

voici un exemple pour ajouter les cci

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
Sub ImprimeCCI()
'by Oliv 09/02/2007
Dim oMessage As MailItem
If Application.ActiveInspector Is Nothing Then
    GoTo Fin
    End If
    Set oMessage = ActiveInspector.CurrentItem
If oMessage.BodyFormat = olFormatHTML And _
    oMessage.Bcc <> "" Then
        ListeCCI = oMessage.Bcc
 
        ListeCCI = "<BODY><B>CCI:</B>" & ListeCCI & "<br>"
        oMessage.HTMLBody = Replace(oMessage.HTMLBody, "<BODY>", ListeCCI)
'pour sauvegarder les modifications décommenter la ligne ci-dessous
        'oMessage.Save
    End If
    If oMessage.BodyFormat = olFormatPlain And _
   oMessage.Bcc <> "" Then
        ListeCCI = oMessage.Bcc
         ListeCCI = "CCI:" & ListeCCI & Chr(10)
        oMessage.Body = ListePJ & oMessage.Body
'pour sauvegarder les modifications décommenter la ligne ci-dessous
       ' oMessage.Save
    End If
 
Fin:
ListeCCI = ""
Set oMessage = Nothing
End Sub

impression d'un mail en pdf avec mise en page

VBA Outlook

Discussions similaires

Partager

Partager