Text box & E-mail Query

Hi there, just joined this forum so it's nice to meet you.

There could be a simple answer to this but never mind, I want to create a text box within my from that only allows 160 characters to typed in. That's easy, I can just use the max-length property, but I want to have a caption that displays how many characters that person has left to type starting (obviously) with 160 and working down with every key depression. Any ideas/solutions?

The other thing that I wanted to ask was whether it is possible to send an e-mail to a pre-defined recipient. However, I don't want the e-mail editing window to pop-up as the body of the e-mail is contained within the textbox mentioned above. It would be ideal if the e-mail just got sent automaticly without the user being able to interupt or mess things up. I understand that this could involve problems such as the user being offline etc, but anyway, any thoughts? Thanks sorry if I ask a lot.

Rhys

Q1:

Private Sub Text1_Change()
Me.Caption = Text1.MaxLength - Len(Text1.Text)
End Sub

Q2:

Use the MAPI Control to send email.