fiber-optic megawatts

#
# 28 June 2010, Phillip Weisberg <fettuccini@qiroka.com>
# License: Creative Commons 3.0 Attribution 3.0 Unported
# Purpose: Demonstrates how to read/add items in a Microsoft Outlook calendar
#
# References:
#   Controlling the Outlook session using OLE: http://downloads.sybase.com/codexchange/powerbuilder/404/PowerBuilder_-_Controlling_the_Outlook_session_using_OLE.htm
#   Outlook Appointments with Ruby: http://www.artima.com/forums/flat.jsp?forum=123&amp;thread=111926
#   Automating Outlook with Ruby: Sending Email: http://rubyonwindows.blogspot.com/2007/07/automating-outlook-with-ruby-sending.html
#   win32ole Ruby Standard Library Documentation: http://www.ruby-doc.org/stdlib/libdoc/win32ole/rdoc/index.html
#
 
#------------------------------------------------------------------------------
# Requires
#------------------------------------------------------------------------------
 
require 'win32ole'
require 'date'
 
#------------------------------------------------------------------------------
# Struct Definitions
#------------------------------------------------------------------------------
 
Struct.new( "AppointmentInfo", :Subject, :Body, :Start, :End, :ReminderSet )
 
#------------------------------------------------------------------------------
# Instance Variables
#------------------------------------------------------------------------------
 
@outlookApplication = WIN32OLE.new( 'Outlook.Application' )
 
#------------------------------------------------------------------------------
# Methods
#------------------------------------------------------------------------------
 
# --- Creates a new appointment in Outlook ---
def CreateOutlookAppointment( appointmentInfo, categories )
  # Verify that the appointment ends after it starts (Note that the data of an all-day event appears to end before it starts)
  if ( appointmentInfo.End <= appointmentInfo.Start )
    puts "[createAppointment] Warning: Appointment creation aborted due to end date before start date."
    return
  end
 
   # Create the Outlook application item
   appointment			= @outlookApplication.CreateItem( 1 )		# 1 = Creates an appointment
   appointment.Subject		= appointmentInfo.Subject
   appointment.Body		= appointmentInfo.Body
   appointment.ReminderSet	= appointmentInfo.ReminderSet
   appointment.Start		= appointmentInfo.Start
   appointment.End		= appointmentInfo.End
   appointment.Categories	= categories
 
   appointment.Save
   puts "Created Appointment: [#{appointment.Subject}] at #{appointment.Start}"
 end
 
# --- Finds a listing of all appointments on the specified date from a list of existing appointments ---
def FindExistingAppointmentsForDate( existingAppointments, dateStart )
  appointmentsForDate = Array.new
  existingAppointments.each { |currAppointment|
    if ( currAppointment.Start.year == dateStart.year ) and ( currAppointment.Start.month == dateStart.month ) and ( currAppointment.Start.day == dateStart.day )
	    appointmentsForDate.push( currAppointment )
	  end
  }
 
  return appointmentsForDate
end
 
# --- Loads all of the existing calendar appointments into the array @existingAppointments ---
# --- TODO: Load recurrences as appointments (currently, they are ignored) ---
def LoadExistingAppointments
  namespace = @outlookApplication.GetNamespace( "MAPI" )
  ole_folder = namespace.GetDefaultFolder( 9 )  # 9 = Calendar
  numItems = ole_folder.Items.Count
 
  existingAppointments = Array.new
  for idx in ( 1 .. numItems )
    currItem = ole_folder.Items.Item( idx )
	  dateStart = Time.local( currItem.Start.split("/")[0], currItem.Start.split("/")[1], currItem.Start.split("/")[2].split(" ")[0],	currItem.Start.split(" ")[1].split(":")[0], currItem.Start.split(" ")[1].split(":")[1], currItem.Start.split(" ")[1].split(":")[2])
	  dateEnd = Time.local( currItem.End.split("/")[0], currItem.End.split("/")[1], currItem.End.split("/")[2].split(" ")[0],	currItem.End.split(" ")[1].split(":")[0], currItem.End.split(" ")[1].split(":")[1], currItem.End.split(" ")[1].split(":")[2])
	  tempAppointment = Struct::AppointmentInfo.new( currItem.Subject, "", dateStart, dateEnd, false );
	  existingAppointments.push( tempAppointment )
  end
 
  return existingAppointments
end
 
#------------------------------------------------------------------------------
# Main Program
#------------------------------------------------------------------------------
 
# --- Load all existing appointments and print the contents ---
puts "-----[All Existing Appointments]----------------------------------------"
existingAppointments = LoadExistingAppointments()
existingAppointments.each { |existingAppointment|
   puts "Existing Appointment: [#{existingAppointment.Subject}] at: #{existingAppointment.Start}"
}
puts "------------------------------------------------------------------------\n\n"
 
# --- Find all appointments for a specific day and print the contents ---
puts "----[Existing Appointments Today]---------------------------------------"
dateToday           = Time.now
appointmentsForDate = FindExistingAppointmentsForDate( existingAppointments, dateToday )
appointmentsForDate.each { |appointmentForDate|
   puts "Existing Appointment: [#{appointmentForDate.Subject}] at: #{appointmentForDate.Start}"
}
puts "------------------------------------------------------------------------\n\n"
 
# --- Add an hour long appointment to the Outlook calendar (starting from the current date/time) ---
startDate       = Time.now
endDate         = startDate + 3600  # endDate is one hour after the startDate
newAppointment  = Struct::AppointmentInfo.new( "Example Subject", "Example description", startDate, endDate, false );
CreateOutlookAppointment( newAppointment, "work, school" )
 
puts "DONE"