Macro Code to print message item and send

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have searched to find code to first print the currently open mail item and
then send it to recipient(s). Has anyone written such code and is willing to
share the language? Darned if I can figure out what is needed to accomplish
this. This is for Outlook 2003; new messages.

Thank you.
 
Sub DoIt()
On Error Resume Next
Application.ActiveInspector.CurrentItem.PrintOut
Application.ActiveInspector.CurrentItem.Send
End Sub
 
Back
Top