Outlook 98 Hlp Desk Application 
Author Message
 Outlook 98 Hlp Desk Application

I am trying to develop a couple of applications based on the Outlook 98
Help Desk Application. I have copied and renamed the application to my
public folders area on Exchange server. I need to change the script to
allow the form to automatically go to the assigned task folder in the
application when assigned to a technician. I have tried adjusting the
script to reflect this. ( See Below). The request never makes it to the
assigned task folder and gives an error that says
"AssignedItem.UserProperties.find(...)." If anyone has tried adjusting
this forms VB Script any help would be appreciated.

'*************************************************************************

'* Procedure:   Submit_Click
'* Description:  When Submit is clicked, copy all fields into the
'*   Task item, and finally delete this item.
'*************************************************************************

Sub Submit_Click
    If item.userProperties.find("AssignedTo").Value = "" Then
        temp = MsgBox("Please enter a technician before trying to assign
a task.",0,"Create Task")
    else
 Assign = MsgBox ("This will create a task in the Assigned Tasks folder,
delete this item, and send mail to the technician indicating that they
have a task to complete",1,"Create Task")
 If Assign = 1 Then
  Set HelpDeskFolder = item.parent
  Set HelpDeskAppFolder = HelpDeskFolder.Parent
  Set TaskFolder = HelpDeskAppFolder.Folders("Assigned Clerical Tasks")
  Set AssignedItem = TaskFolder.Items.Add("IPM.Task.Assigned Clerical
Task")
  ' Populate the Assigned Task form with all the corresponding fields in
this item
  AssignedItem.userproperties.find("Computer Brand and Model").Value =
item.userProperties.find("Computer Model").Value
  AssignedItem.userproperties.find("Problem Type").Value =
item.userProperties.find("Problem Type").Value
  AssignedItem.userproperties.find("Phone").Value =
item.userProperties.find("Phone Number").Value
  AssignedItem.userproperties.find("Computer OS").Value =
item.userProperties.find("Operating System").Value
  AssignedItem.userproperties.find("Ticket ID").Value =
item.userProperties.find("TicketID").Value
  AssignedItem.Subject = item.userProperties.find("TicketID").Value & "
- " & item.Subject
  AssignedItem.userproperties.find("Description").Value = item.Body
  AssignedItem.userproperties.find("Technician Name").Value =
item.userProperties.find("AssignedTo").Value
  AssignedItem.userproperties.find("Received Date").Value = item.SentOn
  AssignedItem.userproperties.find("Computer Software").Value =
item.userproperties.find("Software").Value
  AssignedItem.userproperties.find("From User").Value = item.sendername
  AssignedItem.userproperties.find("User Location").Value =
Item.userproperties.find("Request Location").Value
  AssignedItem.userproperties.find("Task Priority").Value =
item.userproperties.find("Task Priority").Value
  AssignedItem.userproperties.find("AssignedOn").value =
item.userproperties.find("Start by").value

  ' if Task Priority is something other than normal, set the Importance
icon to !
  Select Case item.userproperties.find("Task Priority").Value

  Case "Normal"
    AssignedItem.Importance = 1
   Case Else
    AssignedItem.Importance = 2
  End Select

  AssignedItem.Save

  Set myItem = Application.CreateItem(0)
  myItem.Subject = "Assigned Clerical Task at " & Now()
  myItem.Body = "There is a Help Desk task for you at " & chr(13)

  On Error Resume Next
  myItem.To = item.userProperties.find("AssignedTo").Value

  Set myAttachments = myItem.Attachments
  myAttachments.Add AssignedItem, 4
  myItem.Send
  If err Then
   MsgBox ("The Mail did not send because the technician was not
recognized")
  End If

  Item.delete  ' after everything was submitted, delete this item

 End If
    end if
End Sub



Sun, 25 Feb 2001 03:00:00 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. Capturing the sendmail event from a VB application (Outlook 98)

2. References dropping out between Outlook 2000 and Outlook 98

3. Outlook 98 - Outlook Bar

4. Outlook 98 vs Outlook 2000

5. Building Apps MS Outlook 2000- Help Desk custom

6. Outlook 2000 Help Desk

7. Extending the Help Desk application

8. Flow Chart/Desk Check Application?

9. IE 5.5 and Outlook 98 Communication?

10. Color of Button with Outlook 98 Forms

11. Help! VBScript in Outlook 98 Form

12. Outlook 98 - Print Forms using Word and VBScripting

 

 
Powered by phpBB® Forum Software