M
Mahesh
Hi,
well i have developed a custom form for a workflow
application using outlook 2000.
the application works jst fine on Service pack 1.
The moment i installed Service pack 3 of Office 2000, the
application stops working.
The following is the flow of the application.
1.The initiator request for a leave to his superiour.
2.The superior either accepts the request or reject it.
The application works jst fine till the initiator sends
the request to the approvar / superior.
But once superior gets the request, i have provided a
custom button on a form to accept/reject the request and
send one copy to the initiator and another copy of the
same form to a "Static ID" for storage purpose.
To make one more copy ( Object ) of the form, i am using
following code in outlook :
Set MyFolder = Application.GetNameSpace
("MAPI").GetDefaultFolder(6)
Set MyItem = MyFolder.Items.Add("IPM.Note.Leave Request")
Set ItmTRDesk = Application.CreateItem(0)
With MyItem
.To = Item.UserProperties("From")
.UserProperties("Name") = Item.UserProperties("Name")
.UserProperties("Empno")=Item.UserProperties("Empno")
.UserProperties("Designation")=Item.UserProperties
("Designation")
.UserProperties("Dept")=Item.UserProperties("Dept")
.UserProperties("Level")=Item.UserProperties("Level")
.UserProperties("TelNo")=Item.UserProperties("TelNo")
.send
Item.close 1
end with
After installing the Service pack 3, now if i click on the
Send command button, noting happens, no error jst nothing.
Please help, thanks.
well i have developed a custom form for a workflow
application using outlook 2000.
the application works jst fine on Service pack 1.
The moment i installed Service pack 3 of Office 2000, the
application stops working.
The following is the flow of the application.
1.The initiator request for a leave to his superiour.
2.The superior either accepts the request or reject it.
The application works jst fine till the initiator sends
the request to the approvar / superior.
But once superior gets the request, i have provided a
custom button on a form to accept/reject the request and
send one copy to the initiator and another copy of the
same form to a "Static ID" for storage purpose.
To make one more copy ( Object ) of the form, i am using
following code in outlook :
Set MyFolder = Application.GetNameSpace
("MAPI").GetDefaultFolder(6)
Set MyItem = MyFolder.Items.Add("IPM.Note.Leave Request")
Set ItmTRDesk = Application.CreateItem(0)
With MyItem
.To = Item.UserProperties("From")
.UserProperties("Name") = Item.UserProperties("Name")
.UserProperties("Empno")=Item.UserProperties("Empno")
.UserProperties("Designation")=Item.UserProperties
("Designation")
.UserProperties("Dept")=Item.UserProperties("Dept")
.UserProperties("Level")=Item.UserProperties("Level")
.UserProperties("TelNo")=Item.UserProperties("TelNo")
.send
Item.close 1
end with
After installing the Service pack 3, now if i click on the
Send command button, noting happens, no error jst nothing.
Please help, thanks.