Printing the first page in msOutlook

Hello,

I’m relatively new to the site, seems like a really good place for IT junkies so I hope to (in time) contribute here.

For the time being I’m looking for a macro on Outlook (VBA) to print the first page of an email.

I want my office to save paper and users only want to see the first page on email printouts.

I’m stuck on the coding part (it’s never been my fort?)

public sub print()

dim obj as Object

set obj = application.activeexplorer.selection(1)

obj.display
obj.printout

end sub

Please help me with this code or ideas for a new code.