S
Scott
I have been using a custom form that has script to handle
the Item_Send Event.
Function Item_Send()
'Assign the RTB contents to the appropriate fields.
LoadRTBFields 'puts textRTF in fields
LoadRTBs 're-writes text to RichTextBoxes
blnForward = True
Set MyControls = Item.GetInspector.ModifiedFormPages
("Primary Report").Controls
Set thisField = MyControls("Subject")
If thisField.Value = "" Then
MyControls("Subject").Value = "Event Report for "
& ThisEvent.Plant
End If
'These events are not trapped by LHC
'Finally, if this was sent before then it COULD be an
update. Otherwise it is just getting forwarded.
Item.UserProperties("WasSent").Value = True
End Function
Before the Outlook update if the send was initiated and
there was no subject I added it. Now it gives me the
msgbox and empties the rich text boxes and aborts the
send. So the data typed into the text boxes is lost! Why
does it empty the rich text boxes? And why isn't MY
Item_Send being fired?
Thank you for looking at this.
Scott
the Item_Send Event.
Function Item_Send()
'Assign the RTB contents to the appropriate fields.
LoadRTBFields 'puts textRTF in fields
LoadRTBs 're-writes text to RichTextBoxes
blnForward = True
Set MyControls = Item.GetInspector.ModifiedFormPages
("Primary Report").Controls
Set thisField = MyControls("Subject")
If thisField.Value = "" Then
MyControls("Subject").Value = "Event Report for "
& ThisEvent.Plant
End If
'These events are not trapped by LHC
'Finally, if this was sent before then it COULD be an
update. Otherwise it is just getting forwarded.
Item.UserProperties("WasSent").Value = True
End Function
Before the Outlook update if the send was initiated and
there was no subject I added it. Now it gives me the
msgbox and empties the rich text boxes and aborts the
send. So the data typed into the text boxes is lost! Why
does it empty the rich text boxes? And why isn't MY
Item_Send being fired?
Thank you for looking at this.
Scott