Discussion :

[The Saint]

Bonjour
Je cherche un coup de main pour une macro sur Outlook afin d ajuster en automatique la mise en page d'e-mail.
Si vous avez une idée de code.
Merci
The saint

[Oliv-]

Le plus efficace c est d exporter le mail et d utiliser Word pour faire la mise en page.
Côtes Outlook c'est très limité

[The Saint]

Merci Olivier, bonne idée mais en fait je cherchais ça afin d'imprimer un grand nombre d'emails...

The saint

[Oliv-]

Raison de plus.


Outlook ne dispose que d'1 seule méthode pour imprimer c'est PrintOut
l'impression se fait sur l'imprimante par défaut.

Il faut enregistrer le mail (.saveas) au format olDoc, puis l'ouvrir par automation avec WORD, si c'est un Email au format brut il faut le convertir en HTML avant.

[The Saint]

En fait c'est toi qui a raison... par ce biais c'est nettement mieux.
Manuellement ok.
Par contre pour l'automatisé là suis perdu...
Je vais regardé sur le tuto...

[Oliv-]

Voici un exemple :

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
   'partie OUTLOOK         
           If msg.BodyFormat <> olFormatHTML Then
                msg.BodyFormat = olFormatHTML
           End If
 
           msg.SaveAs RepertoireTemp & "\" & MSG_Name_Out, OlSaveAsType.olDoc
 
          Set WordApp = CreateObject("Word.application")
 
           'PARTIE AUTOMATION WORD
          Dim WdDoc As Object    'Word.Document
          Set WdDoc = WordApp.Documents.Open(RepertoireTemp_MSG & MSG_Name_Out)
          DoEvents
          WordApp.Visible = True
 
         With WdDoc.PageSetup
        .TopMargin = WordApp.CentimetersToPoints(1)
        .BottomMargin = WordApp.CentimetersToPoints(1)
        .LeftMargin = WordApp.CentimetersToPoints(1)
        .RightMargin = WordApp.CentimetersToPoints(1)
        .Gutter = WordApp.CentimetersToPoints(0)
        .HeaderDistance = WordApp.CentimetersToPoints(1.25)
        .FooterDistance = WordApp.CentimetersToPoints(0.8)
        .PageWidth = WordApp.CentimetersToPoints(21)
        .PageHeight = WordApp.CentimetersToPoints(29.7)
        End With
 
          WordApp.ActivePrinter = "PDF24 PDF"
         WordApp.PrintOut FileName:="", Range:=wdPrintAllDocument, item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0