|
- Subject: Re: need macro to print 2 copies and send an open message
- Author: Sue Mosher [MVP-Outlook]
- Date: 14 May 2008
- References: 1
Sub PrintMeTwice()
Dim msg as Outlook.MailItem
On Error Resume Next
Set msg = Application.ActiveInspector.CurrentItem
msg.PrintOut
msg.PrintOut
msg.Send
End Sub
"rr" <nospam@rochester.rr.com> wrote in message news:482b4aac$0$30486$4c368faf@roadrunner.com...
Dim msg as Outlook.MailItem
On Error Resume Next
Set msg = Application.ActiveInspector.CurrentItem
msg.PrintOut
msg.PrintOut
msg.Send
End Sub
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54
"rr" <nospam@rochester.rr.com> wrote in message news:482b4aac$0$30486$4c368faf@roadrunner.com...
> We use Outlook to process mail orders. Several times a day, I have an open
> message which when done editing, I need to print two copies for packing
> lists and then send the message. I have been doing this manually, but I'd
> like to have a vba macro to do that operation.
>
> Thanks for your help.
>
>
> message which when done editing, I need to print two copies for packing
> lists and then send the message. I have been doing this manually, but I'd
> like to have a vba macro to do that operation.
>
> Thanks for your help.
>
>
| 14 May 2008 | need macro to print 2 copies and send an open message | .rr |
| 14 May 2008 |  Re: need macro to print 2 copies and send an open message | .Sue Mosher [MVP-Outlook] |
All times are in (US) Eastern Daylight Time (GMT -4:00)