×
מיכ×ל (מיקי) ×בידן®
Hi,
I'm not too familiar with Outlook VBA but what I'm looking for is a simple
event macro to be fired upon each mail sent.
A ask pop-up window should ask if I want to print - or not and if the answer
is YES - the whole(!) message will be printed INCL. the TO recipients, and if
possible alse the resolved BCC recipients.
I managed to write a simple code which works fine BUT the TO, CC and BCC
recipients do not print.
Thanks in advance to everone who would be kind to present a complete
Event-Macro for my request.
This is what I wrote ( the msgboxes are for testing purposes only):
====================================
'Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'' Print message upon sendig
'On Error Resume Next
'Dim objRecipient As Recipients
MsgBox Item.objRecipient, 65588
MsgBox Item.Subject, 65588
MsgBox Item.Body, 65588
CancelPrint = MsgBox("Do you want to print the present outgoing Mail ?",
65588) vbNo
If CancelPrint Then End
Item.PrintOut
End Sub
===========
Thanks, Micky
I'm not too familiar with Outlook VBA but what I'm looking for is a simple
event macro to be fired upon each mail sent.
A ask pop-up window should ask if I want to print - or not and if the answer
is YES - the whole(!) message will be printed INCL. the TO recipients, and if
possible alse the resolved BCC recipients.
I managed to write a simple code which works fine BUT the TO, CC and BCC
recipients do not print.
Thanks in advance to everone who would be kind to present a complete
Event-Macro for my request.
This is what I wrote ( the msgboxes are for testing purposes only):
====================================
'Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'' Print message upon sendig
'On Error Resume Next
'Dim objRecipient As Recipients
MsgBox Item.objRecipient, 65588
MsgBox Item.Subject, 65588
MsgBox Item.Body, 65588
CancelPrint = MsgBox("Do you want to print the present outgoing Mail ?",
65588) vbNo
If CancelPrint Then End
Item.PrintOut
End Sub
===========
Thanks, Micky