Outlook 2003 form design

Hi,

I currently have two voting buttons approve and deny which i have setup
on the actions tab of form design and i need them to when pressed to
open a new email including all of the relevent information in email
subject and body below is my code:

Function Item_CustomAction(ByVal Action, ByVal NewItem)

const olMailItem = 0

select case Action.Name
case "Approval"
Set NewItem = Application.CreateItem(olmailitem)
item.userproperties.find("Approve") = true
Actions.Item("Approve").Enabled = True
Actions.Item("Deny").Enabled = True
NewItem.subject = "Holiday Request Approved"
NewItem.Body = "Your request from"
&(item.userproperties.find("HolidayStart"))_
& " to " & (item.userproperties.find("HolidayEnd"))_
& "for" & (item.userproperties.find("totaldays"))_
& " days leave has been approved."

NewItem.display

case "Deny"
Set NewItem = Application.CreateItem(olmailitem)
item.userproperties.find("Deny") = true
Actions.Item("Approve").Enabled = True
Actions.Item("Deny").Enabled = True
NewItem.subject "Holiday Request Denied"
NewItem.Body = "Your request from " &
(item.userproperties.find("HolidayStart"))_
& " to " & (item.userproperties.find("HolidayEnd"))_
& "for" & (item.userproperties.find("Totaldays"))_
& " days leave has been denied."

NewItem.display

end select

item.close(0)

Item_CustomAction = true

end function

basically when publishing my form and running the form the approve and
deny don't open a new email but instead just default to the
instructions on the actions tab.

this is very urgent and i would be very grateful for any help!

Maybe a dumb question, but does other code on the form run? Have you checked the Size and Message Class fields to see if it's one-offing?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"stanhope4" wrote in message oups.com...
Outlook 2003 form design

Hi,

I currently have two voting buttons approve and deny which i have setup
on the actions tab of form design and i need them to when pressed to
open a new email including all of the relevent information in email
subject and body below is my code:

Function Item_CustomAction(ByVal Action, ByVal NewItem)

const olMailItem = 0

select case Action.Name
case "Approval"
Set NewItem = Application.CreateItem(olmailitem)
item.userproperties.find("Approve") = true
Actions.Item("Approve").Enabled = True
Actions.Item("Deny").Enabled = True
NewItem.subject = "Holiday Request Approved"
NewItem.Body = "Your request from"
&(item.userproperties.find("HolidayStart"))_
& " to " & (item.userproperties.find("HolidayEnd"))_
& "for" & (item.userproperties.find("totaldays"))_
& " days leave has been approved."

NewItem.display

case "Deny"
Set NewItem = Application.CreateItem(olmailitem)
item.userproperties.find("Deny") = true
Actions.Item("Approve").Enabled = True
Actions.Item("Deny").Enabled = True
NewItem.subject "Holiday Request Denied"
NewItem.Body = "Your request from " &
(item.userproperties.find("HolidayStart"))_
& " to " & (item.userproperties.find("HolidayEnd"))_
& "for" & (item.userproperties.find("Totaldays"))_
& " days leave has been denied."

NewItem.display

end select

item.close(0)

Item_CustomAction = true

end function

basically when publishing my form and running the form the approve and
deny don't open a new email but instead just default to the
instructions on the actions tab.

this is very urgent and i would be very grateful for any help!