Results 1 to 2 of 2

Thread: Exchange Public Folder script

Threaded View

  1. #1

    Thread Starter
    Junior Member El-Phantasmo's Avatar
    Join Date
    Sep 2002
    Posts
    30

    Exchange Public Folder script

    Ok I have a script running on a public folder, set to run at scheduled times.
    I have an object but I have no clue what kind of object it is because NOTHING WORKS

    Code:
    Public Sub Folder_OnTimer
    	Dim objInfoStore
    	Dim objFolder
    	Dim objMessages
    	Dim objTimeCard	
    	Dim objSession
    	Dim objItem 
      Dim iItem
    
    	WriteResponse "Starting Calendar script" & Date
    
    
    	Set objSession = EventDetails.Session
    	Set objInfoStore = objSession.InfoStores("Public Folders")
    	If Err.Number <> 0 Then
    		 WriteResponse "Could not access Public Folders Information Store."
    		Exit Sub
    	End If
    
    	WriteResponse "Getting folder " & Date
    	Set objFolder = objSession.GetFolder(EventDetails.FolderID,objInfoStore.ID)
    	If Err.Number <> 0 Then
    		 WriteResponse "Could not access current folder."
    		Exit Sub
    	End If
    
    	Set objMessages = objFolder.Messages
    
    	For Each objItem in objMessages
    		WriteResponse objItem.Subject
        WriteResponse "  stuff:" & objItem.End '' FAILS
    	Next
    End Sub
    What is 'objItem' in this case?!
    I can do objItem.Type and it returns 'IPM.Appointment'
    SO I would Assume its an appointment object.
    but none of the appt object properties works!?

    Any ideas?

    Note: This script is NOT run from Outlook. It is a script in the exchange public folder, run from the Microsoft Event Service.
    Last edited by El-Phantasmo; Apr 1st, 2004 at 08:44 AM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width