![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
![]()
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! |
Ads |
#2
|
|||
|
|||
![]()
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! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Outlook program, outlook form, local webpage form & Excel | Junoon | Outlook and VBA | 1 | April 3rd 06 07:45 AM |
modify outlook form-appointment form | blanc | Outlook and VBA | 1 | March 24th 06 04:20 PM |
OL2003 - can you auto-fill a singel new contact form with online form data | TimR | Outlook - Using Contacts | 1 | February 15th 06 02:43 PM |
Outlook opens Form as Email message, not Form | [email protected] | Outlook - General Queries | 2 | January 26th 06 10:54 PM |
I send an Outlook custom form, but a std. form displays? | Sue Mosher [MVP-Outlook] | Outlook - Using Forms | 0 | January 20th 06 08:41 PM |