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.

I have no idea why the delete and backspace keys do not work for you when
the cursor is within one of your custom fields. See if you can replicate
that behavior on another PC.

As for not displaying in the Reading Pane - that is a limitation of custom
forms - no way around it I'm afraid.

--
Eric Legault [MVP - Outlook]
MCDBA, MCTS (Messaging & Collaboration, SharePoint Infrastructure, MOSS 2007
& WSS 3.0 Application Development)
Collaborative Innovations
- Try Picture Attachments Wizard For Microsoft Outlook -
Web: http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault


"lseat" wrote in message
...
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.