S
shaz_rutherford
I have got a holiday form which automatically sends an automated reply
back to the sender using a voting button in outlook 2000. I want to
send the response if accepted to another person automatically, do I
need to change the coding in the code window.
This is what is in the code window. Using a cc button it sends the
request to the cc: and the to:, but I want the request to go to one
person and when it is accepted I want it to fire back to the recipient
and add another contact for the reply.
Function Item_CustomAction(ByVal Action, ByVal NewItem)
select case Action.Name
case "Approve"
item.userproperties.find("Approved") = true
Actions.Item("Approve").Enabled = False
Actions.Item("Deny").Enabled = False
NewItem.Body = "Your request from " & (item.userproperties.find("Days
Off From")) & " to " & (item.userproperties.find("Days Off To")) & "for
" & (item.userproperties.find("Totaldays"))& " days leave has been
approved."
case "Deny"
item.userproperties.find("Denied") = true
Actions.Item("Approve").Enabled = False
Actions.Item("Deny").Enabled = False
NewItem.Body = "Your request from " & (item.userproperties.find("Days
Off From")) & " to " & (item.userproperties.find("Days Off To")) & "for
" & (item.userproperties.find("Totaldays"))& " days leave has been
denied."
end select
item.close(0)
Item_CustomAction = true
End Function
back to the sender using a voting button in outlook 2000. I want to
send the response if accepted to another person automatically, do I
need to change the coding in the code window.
This is what is in the code window. Using a cc button it sends the
request to the cc: and the to:, but I want the request to go to one
person and when it is accepted I want it to fire back to the recipient
and add another contact for the reply.
Function Item_CustomAction(ByVal Action, ByVal NewItem)
select case Action.Name
case "Approve"
item.userproperties.find("Approved") = true
Actions.Item("Approve").Enabled = False
Actions.Item("Deny").Enabled = False
NewItem.Body = "Your request from " & (item.userproperties.find("Days
Off From")) & " to " & (item.userproperties.find("Days Off To")) & "for
" & (item.userproperties.find("Totaldays"))& " days leave has been
approved."
case "Deny"
item.userproperties.find("Denied") = true
Actions.Item("Approve").Enabled = False
Actions.Item("Deny").Enabled = False
NewItem.Body = "Your request from " & (item.userproperties.find("Days
Off From")) & " to " & (item.userproperties.find("Days Off To")) & "for
" & (item.userproperties.find("Totaldays"))& " days leave has been
denied."
end select
item.close(0)
Item_CustomAction = true
End Function