OL2003 & The Object Could Not Be found

[Michael Hudson]

I have a simple custom task form, which on opening adds
some data to the body of the task.

This works fine on the OL2000 & below products but not on OL03

CODE:

Function Item_Open()
End Function

Function Item_Close()
Randomize

mypos = InStr(1, Item.body, "#!#")
If mypos < 1 Then
item.body = item.body & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"Start Time: ......................... End Time: .........................." & vbrlf & _
vbcrlf & vbcrlf & "Date: .................................." & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"Please get the customer to complete the following details on job completion:" & vbcrlf & _
"Signature: Print Name:" & vbcrlf & vbcrlf & vbcrlf & _
"......................... ........................." & vbcrlf & _
vbcrlf & vbcrlf & "Engineers Name: ............................" & vbcrlf & vbcrlf & "Explanation of how " &_
"the issue was resolved: (Any parts used etc)" & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
vbcrlf & vbcrlf & "Added @ " & Now() & vbcrlf & "By: " & Item.owner & vbcrlf & _
"Unique Job ID:#!# " & Int((99999 * Rnd) + 1)
'Item.Update
End If
End Function

Any ideas?

Thanks!

 

[Ken Slovak - [MVP - Outlook]]

Is your code running at all? Is your form published?

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginners Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


I have a simple custom task form, which on opening adds
some data to the body of the task.

This works fine on the OL2000 & below products but not on OL03

CODE:

Function Item_Open()
End Function

Function Item_Close()
Randomize

mypos = InStr(1, Item.body, "#!#")
If mypos < 1 Then
item.body = item.body & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"Start Time: ......................... End Time: .........................." & vbrlf & _
vbcrlf & vbcrlf & "Date: .................................." & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"Please get the customer to complete the following details on job completion:" & vbcrlf & _
"Signature: Print Name:" & vbcrlf & vbcrlf & vbcrlf & _
"......................... ........................." & vbcrlf & _
vbcrlf & vbcrlf & "Engineers Name: ............................" & vbcrlf & vbcrlf & "Explanation of how " &_
"the issue was resolved: (Any parts used etc)" & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
vbcrlf & vbcrlf & "Added @ " & Now() & vbcrlf & "By: " & Item.owner & vbcrlf & _
"Unique Job ID:#!# " & Int((99999 * Rnd) + 1)
'Item.Update
End If
End Function

Any ideas?

Thanks!

 

[Mark]

I'm having a similar problem with OL2003. If I delete the form cache I
get Object Could Not be Found error. If I clear the form cache I get
"Failed to load the Expression Service...use Detect and Repair...etc"

Detect and repair does not fix the problem. If I open the form in design
view I can't edit the initial value for a field (greyed out).

No luck on TechNet.



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[Ken Slovak - [MVP - Outlook]]

The Expression Service shouldn't be involved in Outlook 2003 at all.
Please provide more details about your problem and please quote some
of the preceding thread. The interface you are using doesn't do that
and it makes it very hard to follow a thread that way.