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 = "HTMLBODYFont face=Arial size=5 color=#999999bJob Release/b/Fontbr/Font face=Verdana size=2bClient: /b" & UserProperties.Find("Client").Value &_
"br/br/bOther Comments: /bbr/" & 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.