L
lseat
Hi,
I'm a complete beginner with outlook forms and VB. I've put together a form with a series of input fields, and the values from these get put into the message field when the email is sent. Also there are a series of checks to to make sure all of the fields are complete and there is an attachment attached.
This all works fine, except if I leave a field blank and a warning message pops up and I click OK and go back to the field, I can enter text fine, but the delete and backspace keys do not work, in that field, or any other field that I've created. If I click in the message field and then back again, the ability to delete returns.
any ideas?
here's the gist of the code:
Function Item_Send()
If Item.Attachments.Count = 0 Then
Item_Send = False
ans = MsgBox("Please attach the master document.")
exit function
End If
If UserProperties.Find("Client").Value = "" Then
Item_Send = False
ans = MsgBox("Please enter the client’s name.")
exit function
End If
'Set the HTMLBody of the item.
Item.HTMLBody = "<HTML><BODY><Font face=Arial size=5 color=#999999><b>Job Release</b></Font><br/><Font face=Verdana size=2><b>Client: </b>" & UserProperties.Find("Client").Value &_
"<br/><br/><b>Other Comments: </b><br/>" & item.HTMLBody &_
"</Font></BODY></HTML>"
End Function
Any help would be greatly appreciated.
Also, when the message is received it does not open in the Reading Pane, giving a message "This item contains active content that cannot be displayed in the Reading Pane. Open the item to read its contents." I haven't looked into this yet, but some help in the right direction would be great.
thanks in advance.
I'm a complete beginner with outlook forms and VB. I've put together a form with a series of input fields, and the values from these get put into the message field when the email is sent. Also there are a series of checks to to make sure all of the fields are complete and there is an attachment attached.
This all works fine, except if I leave a field blank and a warning message pops up and I click OK and go back to the field, I can enter text fine, but the delete and backspace keys do not work, in that field, or any other field that I've created. If I click in the message field and then back again, the ability to delete returns.
any ideas?
here's the gist of the code:
Function Item_Send()
If Item.Attachments.Count = 0 Then
Item_Send = False
ans = MsgBox("Please attach the master document.")
exit function
End If
If UserProperties.Find("Client").Value = "" Then
Item_Send = False
ans = MsgBox("Please enter the client’s name.")
exit function
End If
'Set the HTMLBody of the item.
Item.HTMLBody = "<HTML><BODY><Font face=Arial size=5 color=#999999><b>Job Release</b></Font><br/><Font face=Verdana size=2><b>Client: </b>" & UserProperties.Find("Client").Value &_
"<br/><br/><b>Other Comments: </b><br/>" & item.HTMLBody &_
"</Font></BODY></HTML>"
End Function
Any help would be greatly appreciated.
Also, when the message is received it does not open in the Reading Pane, giving a message "This item contains active content that cannot be displayed in the Reading Pane. Open the item to read its contents." I haven't looked into this yet, but some help in the right direction would be great.
thanks in advance.