Hi,

Am using Outlook 2003 and have desgined and coded an Outlook Custom Form.

I have a Requestor (Request) form and an Approver (Response) form. When a
requestor submits the form, in sent items of the requestor's outlook am able
to find the approver's form (Response). He is able to approve his own form
too which is a serious flaw. I would appreciate if someone could help me on
this.

Sub submit_Click()
dim strAnswer
strAnswer = msgBox("Are you sure you wish to submit this Requester
form?",vbYesNo, "Submitting the Request")
if strAnswer = 6 then
if checkData Then
'A text on the form has the approver mail id
Item.UserProperties("Approver").Value = item.Recipients(1).name
item.send
end if
Else
msgbox "Data send cancelled by user"
end if
End Sub

Function Item_Send()
set LookupPage = Item.GetInspector.ModifiedFormPages
Item_Send = True
End Function

Thanks in advance.

Rahul...

See my answer to your other post. If you set DeleteAfterSubmit the sent
items never even go to Sent Items.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Rahul" <(E-Mail Removed)> wrote in message
news:93092A8B-68AF-4543-B508-(E-Mail Removed)...
> Hi,
>
> Am using Outlook 2003 and have desgined and coded an Outlook Custom Form.
>
> I have a Requestor (Request) form and an Approver (Response) form. When a
> requestor submits the form, in sent items of the requestor's outlook am
> able
> to find the approver's form (Response). He is able to approve his own form
> too which is a serious flaw. I would appreciate if someone could help me
> on
> this.
>
> Sub submit_Click()
> dim strAnswer
> strAnswer = msgBox("Are you sure you wish to submit this Requester
> form?",vbYesNo, "Submitting the Request")
> if strAnswer = 6 then
> if checkData Then
> 'A text on the form has the approver mail id
> Item.UserProperties("Approver").Value = item.Recipients(1).name
> item.send
> end if
> Else
> msgbox "Data send cancelled by user"
> end if
> End Sub
>
> Function Item_Send()
> set LookupPage = Item.GetInspector.ModifiedFormPages
> Item_Send = True
> End Function
>
> Thanks in advance.
>
> Rahul...
>