Set Flag Follow-Up Date in Outlook

[baldwingrand]

I would like to be able to set a follow-up date in Outlook based on what a user enters in a form. Does anyone know what the code is to do this? What I need is:

-code to specify a follow-up date
-code to make follow-up date based on what a user enters in the form

The text field in the form that should capture the date is "txtFollowUpDate"- I've dim'd a variable for that. Below is a code snippet...


<%
vPriority = stripquotes(upload.form("rbPriority"))
vFollowUp = stripquotes(upload.form("cbFollowUp"))
vFollowUpDate = stripquotes(upload.form("txtFollowUpDate")

With Flds
.Item("http://schemas.microsoft.com/cdo/" &_
"configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/" &_
"configuration/smtpserver") = "localhost"
.Item("http://schemas.microsoft.com/cdo/" &_
"configuration/smtpserverport") = 25
.Update
End With

With iMsg
Set .Configuration = iConf

'Set message follow-up flag
If vFollowUp <> "" Then
.Fields.Item("urn:schemas:mailheader:X-Message-Flag") = "Follow Up"
End If

'Set email importance
If vPriority = "High Priority" Then
'Outlook 2003:
.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High" .Fields.Item("urn:schemas:mailheader:X-Priority") = 2

'Outlook Express:
.Fields.Item("urn:schemas:httpmail:importance") = 2
End If

.Fields.Update

.To = sTo
.From = "test@test.com"
.Subject = upload.form("txtSubject")
.HTMLBody = .HTMLBody & "Text"
.Send
End With

set iMsg = Nothing
set iConf = Nothing
set Flds = Nothing

%>

<form>

input name="rbPriority" type="radio" class="popBox" id="rbPriority" value="High Priority">High

<input name="rbPriority" type="radio" class="popBox" id="rbPriority" value="Normal Priority">Normal

<input type="checkbox" name="cbFollowUp" id="cbFollowUp">

<!--User specified the follow-up date-->
<input type="text" name="txtFollowUpDate" id="txtFollowUpDate">

</form>