I have created some custom forms within outlook and am now looking to add
some features. One of the features I have been able to add is a checkbox
that once clicked will stamp a time and user name into a textbox field. I am
now trying to modify the below script/code to have the checkbox fill in the
CC line with the appropriate email addresses. So far this is not working and
I am at a loss, please help!
Sub CheckBox1_Click()
Dim objNS
Dim objPage
Dim objControl
Set objNS = Application.GetNamespace("MAPI")
Set objPage = Item.GetInspector.ModifiedFormPages("Order Tracking")
Set objControl = objPage.Controls("TextBox15")
objControl.Text = Now()
Set objControl = objPage.Controls("TextBox16")
objControl.Text = objNS.CurrentUser
Set objControl = Nothing
Set objPage = Nothing
Set objNS = Nothing
End Sub