outlook form help!!



Outlook 2003 form design


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"
& " to " & (item.userproperties.find("HolidayEnd"))_
& "for" & (item.userproperties.find("totaldays"))_
& " days leave has been approved."


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 " &
& " to " & (item.userproperties.find("HolidayEnd"))_
& "for" & (item.userproperties.find("Totaldays"))_
& " days leave has been denied."


end select


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!

Sue Mosher [MVP-Outlook]

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

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question