Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Using VBScript to copy info to Notes field in Outlook Contact Form

Status
Not open for further replies.

silenttalk

Technical User
Oct 30, 2002
15
GB
We use a custom for in Outlook to store info on Clients that come to our exercise classes, the various user fields hold the venue, time, term payments etc.

I want to be able to hit a button and transfer the values of these fields to the notes object on the contact for (this I have renamed to clientnotes) I would like the text entered at the end of any existing text in the clientnotes field.

I seem to be stuck with the method / Property for this field I have used .text .value but it says it is not allowed.

This is my simple code


Dim paidammount, paymentmethod, ccno, ccstart, cexpire
Dim ccsecurity, issueno, ccname, venue, starttime
Dim term, coursestart, bookedon, clientnotes
Dim pastterminfo


Function Item_Open()

Dim objControls
Set objControls = Item.GetInspector.ModifiedFormPages("General").Controls
Set paidammount = objControls("paidammount")
Set paymentmethod = objControls("paymentmethod")
Set ccno = objControls("ccno")
Set ccstart = objControls("ccstart")
Set ccexpire = objControls("ccexpire")
Set ccsecurity = objControls("ccsecurity")
Set issueno = objControls("issueno")
Set ccname = objControls("ccname")
Set venue = objControls("venue")
Set starttime = objControls("starttime")
Set term = objControls("term")
Set coursestart = objControls("coursestart")
Set bookedon = objControls("bookedon")
Set clientnotes = objControls("clientnotes")

End Function


Sub cmdTransferTerm_Click

pastterminfo = venue.value & " " & term.value & " " & paymentmethod.text & " " & ccno.text & " " & paidammount.text
clientnotes.text = pastterminfo

End Sub

Has any one any ideas on this ?

Here's hoping
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top