S
sverne
Server is Exchange 5.5 and Outlook 2000 clients. 2000 Clients able to
use public folder form (typw = Post) without any problems. I upgraded
one client PC to Office 2003 and now Outlook reports "MS Office
Outlook: Unable to save this item" when I click on my form button to
save newly created custom form.
I need this form to work with both 2000 and 2003 clients.
Client selects public folder (not using Favorites), and then clicks on
New Post to this folder. Correct form appears. Save button calls:
sub ButnSave_Click()
if item.userproperties.find("contact name") = "" then
msgbox "Contact Name Too Short",,"Error"
exit sub
end if
if item.userproperties.find("contact company") = "" then
msgbox "Company Too Short",,"Error"
exit sub
end if
if item.userproperties.find("contact company") = "Selection" then
msgbox "Pick a real Company name",,"Error"
exit sub
end if
if item.userproperties.find("ShortDescription") = "" then
msgbox "Short Case Description Too Short",,"Error"
exit sub
end if
if item.userproperties.find("assigned to") = "" then
msgbox "Must assign incident to someone",,"Error"
exit sub
end if
if item.userproperties.find("Closed") <> 0 then
if item.userproperties.find("Date Closed") = #1/1/4501# then
item.userproperties.find("Date Closed") = Now()
msgbox "Complete Date set to TODAY, Please verify this is
correct and Save again",,"Error"
exit sub
end if
end if
item.close(0)
End Sub
Script debugger comes up and complains about the item.close(0) line
with no real great error message. Any ideas?
use public folder form (typw = Post) without any problems. I upgraded
one client PC to Office 2003 and now Outlook reports "MS Office
Outlook: Unable to save this item" when I click on my form button to
save newly created custom form.
I need this form to work with both 2000 and 2003 clients.
Client selects public folder (not using Favorites), and then clicks on
New Post to this folder. Correct form appears. Save button calls:
sub ButnSave_Click()
if item.userproperties.find("contact name") = "" then
msgbox "Contact Name Too Short",,"Error"
exit sub
end if
if item.userproperties.find("contact company") = "" then
msgbox "Company Too Short",,"Error"
exit sub
end if
if item.userproperties.find("contact company") = "Selection" then
msgbox "Pick a real Company name",,"Error"
exit sub
end if
if item.userproperties.find("ShortDescription") = "" then
msgbox "Short Case Description Too Short",,"Error"
exit sub
end if
if item.userproperties.find("assigned to") = "" then
msgbox "Must assign incident to someone",,"Error"
exit sub
end if
if item.userproperties.find("Closed") <> 0 then
if item.userproperties.find("Date Closed") = #1/1/4501# then
item.userproperties.find("Date Closed") = Now()
msgbox "Complete Date set to TODAY, Please verify this is
correct and Save again",,"Error"
exit sub
end if
end if
item.close(0)
End Sub
Script debugger comes up and complains about the item.close(0) line
with no real great error message. Any ideas?