CopyToApprover Subroutine

In preparation for sending the critique to the designated approver, the CopyToApprover subroutine creates a message in the Outbox with:

Set msgResponse = fldrOutbox.Messages.Add(ApprovalFormSubject,"","IPM.Post.ToApprover")

CopyToApprover then copies fields and their values from the IPM.Post.EnhancedLitCrit form to the IPM.Post.ToApprover form. It does this with the Add method of the CDO Messages collection object. For example, the following line adds the "Tech Level" rating given by a reviewer as the "Tech Level" field:

msgResponse.Fields.Add "Tech Level",vbString,msgTarget.Fields("Tech Level").Value

After all fields are added, the Update method of the Message object saves the message to the Microsoft Exchange Server information store:

msgResponse.Update True, True

This is necessary because the copying of fields into the message, as with all changes to a Message object, is not made permanent until you call either the Update method (with the first parameter, makePermanent, set to True) or the Send method on the Message object.