Voilà, je cherche à imprimer via une macro VBA la première page uniquement du mail sélectionné.
J'avoue que j'ai du mal avec l'absence de l'enregistreur de macro...
Pour le moment j'arrive juste à ouvrir le mail sélectionné, ou l'imprimer en entier.. existe-t-il des paramètres (from:= et to:=) comme pour les printOut de Excel ??
Merci de votre aide!
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 Sub printMail() Dim n As Long, i As Long Dim item As Object, fitem As Object Set Inbox = ActiveExplorer.CurrentFolder If Inbox.Name <> "Boîte de réception" Then Exit Sub End If n = ActiveExplorer.Selection.Count If n = 0 Then Exit Sub For i = 1 To n Set item = ActiveExplorer.Selection.item(1) 'pour imprimer item.PrintOut 'pour l'afficher item.Display Next i End Sub
Partager