Discussion :

[babybell]

Bonjour

Est-il possible que d'Excel, après avoir envoyé un mail par macro, celui-ci s'imprime directement ? J'ai fait ce code

Code :

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

1
2
3
4
5
6
7
8
9
Set appoutlook = CreateObject("outlook.application")
Set Message = appoutlook.CreateItem(olMailItem)
With Message
    .Subject = "LC "
    .Body = "Bonjour "
    .Recipients.Add ("titi@toto.com")
    .Send
    .PrintOut
    End With

mais cela ne fonctionne pas.
Quelqu'un pourrait-il m'aider ?

merci beaucoup

[SilkyRoad]

bonjour


Imprime avant d'envoyer le message :

Code :

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

1
2
    .PrintOut
    .Send

bonne soirée
michel

[babybell]

Merci beaucoup, j'essaierai demain.

Bonne soirée à toi aussi

[babybell]

OK, c'est bon, ça fonctionne. Merci encore et bonne journée