Pass value of outlook text box to word

[psbrown]

I am new to programming and am trying to create a custom report of an outlook form. I have used an example from Sue Moshers book to start me off.
I have created a custom form and a word template. I am trying to pass the contents of a text box on the outlook form to a bookmarked field on the word doc.


A sample of one of the offending lines is:

objDoc.FormFields("MtgDist&quot.Result = _
MtgDist

This does not give any error messages it just does not pass anything.


The whole code is included below with the lines that do not work prefixed with **. Any help would be appreciated.

Private Sub AddMtgData(objDoc)
Dim strValue
objDoc.FormFields("Proj&quot.Result = _
Item.UserProperties("Proj&quot.Value
objDoc.FormFields("ProjPhase&quot.Result = _
Item.UserProperties("Proj. Phase&quot.Value
objDoc.FormFields("MtgType&quot.Result = _
Item.UserProperties("Mtg. Type&quot.Value
objDoc.FormFields("MtgSeq&quot.Result = _
Item.UserProperties("Mtg. Seq.&quot.Value
objDoc.FormFields("MtgDisp&quot.Result = _
Item.UserProperties("Disp&quot.Value
ConvertOLDate(DueDate)
objDoc.FormFields("MtgDate&quot.Result = _
DueDate
** objDoc.FormFields("MtgSubj&quot.Result = _
Subject
** objDoc.FormFields("MtgDist&quot.Result = _
MtgDist
** objDoc.FormFields("MtgAttend&quot.Result = _
MtgAttend
** objDoc.FormFields("MtgApol&quot.Result = _
MtgApol
objDoc.FormFields("MtgNotes&quot.Result = _
Replace(Item.Body, vbCrLf, " &quot