Whatever message this page gives is out now! Go check it out!
<!--- The EventID field is a hidden field managed by this application. ---> <cfparam name="form.eventID" default="0"> <!--- If the form was submitted, populate an event structure from it. ---> <cfif isDefined("Form.Submit")> <cfscript> sEvent=StructNew(); sEvent.AllDayEvent="false"; sEvent.Subject=Form.subject; if (IsDefined("Form.allDay")) { sEvent.AllDayEvent="true"; sEvent.StartTime=createDateTime(Year(Form.date), Month(Form.date), Day(Form.date), 8, 0, 0); } else { sEvent.StartTime=createDateTime(Year(Form.date), Month(Form.date), Day(Form.date), Hour(Form.startTime), Minute(Form.startTime), 0); sEvent.EndTime=createDateTime(Year(Form.date), Month(Form.date), Day(Form.date), Hour(Form.endTime), Minute(Form.endTime), 0); } sEvent.Location=Form.location; sEvent.RequiredAttendees=Form.requiredAttendees; sEvent.OptionalAttendees=Form.optionalAttendees; //sEvent.Resources=Form.resources; if (Form.reminder NEQ "") { sEvent.Reminder=Form.reminder; } else { sEvent.Reminder=0; } sEvent.Importance=Form.importance; sEvent.Sensitivity=Form.sensitivity; sEvent.message=Form.Message; </cfscript> <!--- If the form is being submitted for the first time, create an event. ---> <cfif form.eventID EQ 0> <!--- Create the event in Exchange ---> <cfexchangecalendar action="create" username ="#user1#" password="#password1#" server="#exchangeServerIP#" event="#sEvent#" result="theUID"> <!--- Display the new event UID and set form.eventID to it. ---> <cfif isDefined("theUID")> <cfoutput>Event Added. UID is #theUID#</cfoutput> <cfset Form.eventID = theUID > </cfif> <cfelse> <!--- The form is being resubmitted with new data; update the event. ---> <cfexchangecalendar action="modify" username ="#user1#" password="#password1#" server="#exchangeServerIP#" event="#sEvent#" uid="#Form.eventID#"> <cfoutput>Event ID #Form.eventID# Updated.</cfoutput> </cfif> </cfif> <!--- A self-submitting form for the event information ---> <cfform format="xml" preservedata="true" style="width:500" height="600"> <cfinput type="text" label="Subject" name="subject" style="width:435"> <br /> <cfinput type="checkbox" label="All Day Event" name="allDay"> <cfinput type="datefield" label="Date" name="date" validate="date" style="width:100"> <cfinput type="text" label="Start Time" name="startTime" validate="time" style="width:100"> <cfinput type="text" label="End Time" name="endTime" validate="time" style="width:100"><br /> <cfinput type="text" label="Location" name="location" style="width:435"><br /> <cfinput type="text" label="Required Attendees" name="requiredAttendees" style="width:435"><br /> <cfinput type="text" label="Optional Attendees" name="optionalAttendees" style="width:435"><br /> <cfinput type="text" label="Resources" name="resources" style="width:435"><br /> <cfinput type="text" label="Reminder (minutes)" validate="integer" name="reminder" style="width:200"> <cfselect name="importance" label="Importance" style="width:100"> <option value="normal">Normal</option> <option value="high">High</option> <option value="low">Low</option> </cfselect> <cfselect name="sensitivity" label="Sensitivity" style="width:100"> <option value="normal">Normal</option> <option value="company-confidential">Confidential</option> <option value="personal">Personal</option> <option value="private">Private</option> </cfselect> <cfinput type="textarea" label="Message" name="message" style="width:435; height:100"> <cfinput type="hidden" name="eventID" value="#Form.EventID#"> <cfinput type="Submit" name="submit" value="Submit" > </cfform> |
<cfset changeValues.IsRead="true"> <!--- Open the connection. ---> <cfexchangeConnection action="open" username ="#user1#" password="#password1#" server="#exchangeServerIP#" connection="conn1"> <!--- Get the mail in the Inbox that is at least two weeks old. ---> <cfexchangemail action="get" name="oldMail" connection="conn1"> <cfexchangefilter name="timeSent" from="01/01/2000" to="#DateAdd("d","-14", Now())#"> </cfexchangemail> <!--- Loop through the resulting oldMail query and set the IsRead indicator to true. ---> <cfloop query="oldMail"> <cfexchangemail action="set" connection="conn1" message="#changeValues#" uid="#oldMail.uid#"> </cfloop> <!--- Close the connection. ---> <cfexchangeConnection action="close" connection="conn1"> |
<cfexchangemail action="move" connection="con1" folder="Inbox/Unread"
destinationfolder="Inbox/Sheep">
<cfexchangefilter name="subject" value="Rams and Ewes">
</cfexchangemail>