Sub NewEmail(Item As MailItem)
MsgBox ("New email received: " & Item.Subject) 'just for testing.....
Item.GetInspector.Wordeditor.Printout Range:=wdPrintFromTo, From:="1", To:="1"
End Sub
Just the line I had... and the printout line. The message works (so the sub gets called when a new email...
Thanks Michael, but I tried it, it doesn't work.
I found this at msdn:
PrintOut
Prints the Outlook item using all default settings.The PrintOut method is the only Outlook method that can be used for printing.
So I'm afraid it's not possible to print only the first page.
I want to print the first page of every new email of a certain kind. I know how to make a rule to make the selection, but I'm completely blank what to put in the VBA script. Any ideas?
I got the selection working, with a rule which runs this script. But the printing part.... dunno....
Sub...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.