using Outlook2013TodoAddIn.Forms;
using System;
using System.Collections.Generic;
using System.Collections.Specialized;
using System.Drawing;
using System.Drawing.Drawing2D;
using System.Linq;
using System.Windows.Forms;
using Outlook = Microsoft.Office.Interop.Outlook;
namespace Outlook2013TodoAddIn
{
/// User control to hold the calendar, etc...
///
public partial class AppointmentsControl : UserControl
{
#region "Properties"
///
/// Number of days (including today) to retrieve appointments from in the future
///
public decimal NumDays { get; set; }
///
/// Gets/sets whether mail notifications are enabled or not
///
public bool MailAlertsEnabled { get; set; }
///
/// Gets/sets whether to show past appointments in the current day or not
///
public bool ShowPastAppointments { get; set; }
///
/// Gets/sets a list of all stores/accounts to retrieve information from
///
public StringCollection Accounts { get; set; }
///
/// Gets/sets whether to show friendly group headers (yesterday, today, tomorrow)
///
public bool ShowFriendlyGroupHeaders { get; set; }
///
/// Gets/sets whether to show localized day names next to the days
///
public bool ShowDayNames { get; set; }
///
/// Gets/sets the selected calendar date
///
public DateTime SelectedDate
{
get { return this.apptCalendar.SelectedDate; }
set { this.apptCalendar.SelectedDate = value; }
}
///
/// Gets/sets whether to show the tasks list
///
public bool ShowTasks { get; set; }
///
/// Gets/sets the first day of the week for the calendar
///
public System.DayOfWeek FirstDayOfWeek { get; set; }
#endregion "Properties"
#region "Methods"
///
/// Default constructor
///
public AppointmentsControl()
{
InitializeComponent();
if (Properties.Settings.Default.SplitterDistance >= this.splitContainer1.Panel1MinSize && Properties.Settings.Default.SplitterDistance <= this.splitContainer1.Height - this.splitContainer1.Panel2MinSize)
{
// This is to avoid the bug "SplitterDistance must be between Panel1MinSize and Width - Panel2MinSize."
this.splitContainer1.SplitterDistance = Properties.Settings.Default.SplitterDistance;
// TODO: This doesn't work, need to fix (race condition?)
// TODO: Another event is fired after controls are added...
}
}
///
/// Respond to calendar changes
///
/// Sender
/// DateRangeEventArgs
private void apptCalendar_SelectedDateChanged(object sender, EventArgs e)
{
this.RetrieveData();
}
///
/// Retrieves appointments and tasks if configured
///
public void RetrieveData()
{
this.apptCalendar.FirstDayOfWeek = this.FirstDayOfWeek;
this.RetrieveAppointments();
if (this.ShowTasks)
{
this.splitContainer1.Panel2Collapsed = false;
}
else
{
this.splitContainer1.Panel2Collapsed = true;
}
}
///
/// Retrieves tasks for all selected stores
///
private void RetrieveTasks()
{
List tasks = new List();
foreach (Outlook.Store store in Globals.ThisAddIn.Application.Session.Stores)
{
if (Properties.Settings.Default.Accounts != null && Properties.Settings.Default.Accounts.Contains(store.DisplayName))
{
Outlook.Folder todoFolder = store.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderToDo) as Outlook.Folder;
tasks.AddRange(this.RetrieveTasksForFolder(todoFolder));
// TODO: Shared calendars?
}
}
// We need to sort them because they may come from different accounts already ordered
// tasks.Sort(CompareTasks);
//Outlook.Folder todoFolder =
// Globals.ThisAddIn.Application.Session.GetDefaultFolder(
// Outlook.OlDefaultFolders.olFolderToDo)
// as Outlook.Folder;
//this.RetrieveTasksForFolder(todoFolder);
}
///
/// Retrieves to-do tasks for the folder on the specified store
///
/// Outlook folder
private List RetrieveTasksForFolder(Outlook.Folder todoFolder)
{
List tasks = new List();
foreach (object item in todoFolder.Items)
{
if (item is Outlook.MailItem)
{
Outlook.MailItem mail = item as Outlook.MailItem;
//mail.Categories
//mail.TaskCompletedDate;
MessageBox.Show(String.Format("Mail Task: {0}, Due: {1}", mail.TaskSubject, mail.TaskDueDate.ToShortDateString()));
}
else if (item is Outlook.ContactItem)
{
Outlook.ContactItem contact = item as Outlook.ContactItem;
//contact.Categories
//contact.TaskCompletedDate
MessageBox.Show(String.Format("Contact Task: {0}, Due: {1}", contact.TaskSubject, contact.TaskDueDate.ToShortDateString()));
}
else if (item is Outlook.TaskItem)
{
Outlook.TaskItem task = item as Outlook.TaskItem;
//task.Categories
//task.DateCompleted
MessageBox.Show(String.Format("Task Task: {0}, Due: {1}", task.Subject, task.DueDate.ToShortDateString()));
}
else
{
MessageBox.Show("Unknown type");
}
}
return tasks;
}
///
/// Retrieve all appointments for the current configurations for all selected stores
///
private void RetrieveAppointments()
{
List appts = new List();
foreach (Outlook.Store store in Globals.ThisAddIn.Application.Session.Stores)
{
if (Properties.Settings.Default.Accounts != null && Properties.Settings.Default.Accounts.Contains(store.DisplayName))
{
Outlook.Folder calFolder = store.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar) as Outlook.Folder;
appts.AddRange(this.RetrieveAppointmentsForFolder(calFolder));
// TODO: Shared calendars?
}
}
// We need to sort them because they may come from different accounts already ordered
appts.Sort(CompareAppointments);
// Get the Outlook folder for the calendar to retrieve the appointments
//Outlook.Folder calFolder =
// Globals.ThisAddIn.Application.Session.GetDefaultFolder(
// Outlook.OlDefaultFolders.olFolderCalendar)
// as Outlook.Folder;
//List appts = this.RetrieveAppointmentsForFolder(calFolder);
// Highlight dates with appointments in the current calendar
this.apptCalendar.BoldedDates = appts.Select(a => a.Start.Date).Distinct().ToArray();
// Now display the actual appointments below the calendar
DateTime startRange = this.apptCalendar.SelectedDate;
if (!this.ShowPastAppointments && startRange.Date == DateTime.Today)
{
startRange = startRange.Add(DateTime.Now.TimeOfDay);
}
DateTime endRange = startRange.AddDays((int)this.NumDays);
// Get items in range
var lstItems = appts.Where(a => a.Start >= startRange && a.Start <= endRange);
int sameDay = -1; // startRange.Day;
List lstCol = new List();
ListViewGroup grp = null;
lstItems.ToList().ForEach(i =>
{
if (i.Start.Day != sameDay)
{
string groupHeaderText = i.Start.ToShortDateString();
if (this.ShowFriendlyGroupHeaders)
{
int daysDiff = (int)(i.Start.Date - DateTime.Today).TotalDays;
switch (daysDiff)
{
case -1:
groupHeaderText = Constants.Yesterday + ": " + groupHeaderText;
break;
case 0:
groupHeaderText = Constants.Today + ": " + groupHeaderText;
break;
case 1:
groupHeaderText = Constants.Tomorrow + ": " + groupHeaderText;
break;
default:
break;
}
}
if (this.ShowDayNames)
{
groupHeaderText += " (" + i.Start.ToString("dddd") + ")";
}
grp = new ListViewGroup(groupHeaderText, HorizontalAlignment.Left);
this.lstAppointments.Groups.Add(grp); // TODO: Style it?
sameDay = i.Start.Day;
};
string loc = "-"; // TODO: If no second line is specified, the tile is stretched to only one line
if (!String.IsNullOrEmpty(i.Location)) loc = i.Location;
ListViewItem current = new ListViewItem(new string[] { String.Format("{0} {1}", i.Start.ToShortTimeString(), i.Subject), loc });
current.SubItems.Add(i.Subject);
// current.Font = new Font(this.Font, FontStyle.Bold);
// current.UseItemStyleForSubItems = false;
current.ToolTipText = String.Format("{0} - {1} {2}", i.Start.ToShortTimeString(), i.End.ToShortTimeString(), i.Subject);
current.Tag = i;
current.Group = grp;
switch (i.BusyStatus)
{
case Outlook.OlBusyStatus.olBusy:
current.ForeColor = Color.Purple;
break;
case Outlook.OlBusyStatus.olFree:
break;
case Outlook.OlBusyStatus.olOutOfOffice:
current.ForeColor = Color.Brown;
break;
case Outlook.OlBusyStatus.olTentative:
break;
case Outlook.OlBusyStatus.olWorkingElsewhere:
break;
default:
break;
}
lstCol.Add(current);
});
this.lstAppointments.Items.Clear();
this.lstAppointments.Items.AddRange(lstCol.ToArray());
this.apptCalendar.UpdateCalendar();
}
///
/// Comparer method to sort appointments based on start date/time
///
/// First appointment
/// Second appointment
///
private static int CompareAppointments(Outlook.AppointmentItem x, Outlook.AppointmentItem y)
{
return x.Start.CompareTo(y.Start);
}
///
/// Retrieve all appointments for the current configurations for a specific folder
///
/// Outlook folder
/// List of appointments
private List RetrieveAppointmentsForFolder(Outlook.Folder calFolder)
{
int selectedMonth = this.apptCalendar.SelectedDate.Month;
int selectedYear = this.apptCalendar.SelectedDate.Year;
// To get all the appointments for the current month (so it displays nicely bolded even for past events)
DateTime start = new DateTime(selectedYear, selectedMonth, 1); // MM-01-YYYY
DateTime end = start.AddMonths(1).AddDays(-1); // Last day of the month
end = end.AddDays((int)this.NumDays); // So we get appointments for the "possible" first days of the next month
// Get all the appointments
Outlook.Items rangeAppts = GetAppointmentsInRange(calFolder, start, end);
// Get a more manageable list
List appts = new List();
if (rangeAppts != null)
{
foreach (Outlook.AppointmentItem appt in rangeAppts)
{
appts.Add(appt);
}
}
return appts;
}
///
/// Get recurring appointments in a date range.
///
/// Outlook folder
/// Start time
/// End time
/// Outlook.Items
private Outlook.Items GetAppointmentsInRange(Outlook.Folder folder, DateTime startTime, DateTime endTime)
{
string filter = "[Start] >= '"
+ startTime.ToString("g")
+ "' AND [End] <= '"
+ endTime.ToString("g") + "'";
try
{
Outlook.Items calItems = folder.Items;
calItems.IncludeRecurrences = true;
calItems.Sort("[Start]", Type.Missing);
Outlook.Items restrictItems = calItems.Restrict(filter);
if (restrictItems.Count > 0)
{
return restrictItems;
}
else
{
return null;
}
}
catch { return null; }
}
///
/// Open the appointment, having in mind it might be a recurring event
///
/// Sender
/// EventArgs
private void lstAppointments_DoubleClick(object sender, EventArgs e)
{
if (this.lstAppointments.SelectedIndices.Count != 0)
{
Outlook.AppointmentItem appt = this.lstAppointments.SelectedItems[0].Tag as Outlook.AppointmentItem;
if (appt != null)
{
if (appt.IsRecurring)
{
FormRecurringOpen f = new FormRecurringOpen();
if (f.ShowDialog() == DialogResult.OK)
{
if (f.OpenRecurring)
{
// Open up the master appointment in a new window
// If we open the current instance then there is an error: "This item is no longer valid because it has been closed"
// One workaround is to refresh the appointments list to get new instances...
Outlook.AppointmentItem masterAppt = appt.Parent; // Get the master appointment item
masterAppt.Display(true); // Will modify ALL instances
}
else
{
// Open up the appointment in a new window
appt.Display(true); // Modal yes/no
}
}
}
else
{
// Open up the appointment in a new window
appt.Display(true); // Modal yes/no
}
// At the end, synchronously "refresh" appointments in case they have changed
this.RetrieveAppointments();
}
}
}
///
/// Creates a new mail item to reply all recipients of an appointment (except the current user)
///
/// Sender
/// EventArgs
private void mnuItemReplyAllEmail_Click(object sender, EventArgs e)
{
if (this.lstAppointments.SelectedIndices.Count != 0)
{
Outlook.AppointmentItem appt = this.lstAppointments.SelectedItems[0].Tag as Outlook.AppointmentItem;
if (appt != null)
{
Outlook.MailItem mail = Globals.ThisAddIn.Application.CreateItem(Outlook.OlItemType.olMailItem) as Outlook.MailItem;
string curUserAddress = OutlookHelper.GetEmailAddress(Globals.ThisAddIn.Application.Session.CurrentUser);
foreach (Outlook.Recipient rcpt in appt.Recipients)
{
string smtpAddress = OutlookHelper.GetEmailAddress(rcpt);
if (curUserAddress != smtpAddress)
{
mail.Recipients.Add(smtpAddress);
}
}
mail.Body = Environment.NewLine + Environment.NewLine + appt.Body;
mail.Subject = Constants.SubjectRE + ": " + appt.Subject;
mail.Display();
}
}
}
///
/// Switch to the calendar view when double-clicking a date
///
/// Sender
/// EventArgs
private void apptCalendar_CellDoubleClick(object sender, EventArgs e)
{
// Clicking in days outside of the current month will cause the calendar to refresh to that day
// reposition all days and select the wrong one
Outlook.Folder f = Globals.ThisAddIn.Application.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar) as Outlook.Folder;
Globals.ThisAddIn.Application.ActiveExplorer().CurrentFolder = f;
Outlook.CalendarView cv = (Outlook.CalendarView)(Globals.ThisAddIn.Application.ActiveExplorer().CurrentView);
cv.CalendarViewMode = Outlook.OlCalendarViewMode.olCalendarViewDay;
cv.GoToDate(this.apptCalendar.SelectedDate);
}
///
/// New method to show the configuration form
///
/// Sender
/// EventArgs
private void apptCalendar_ConfigurationButtonClicked(object sender, EventArgs e)
{
using (FormConfiguration cfg = new FormConfiguration())
{
if (cfg.ShowDialog() == DialogResult.OK)
{
this.NumDays = cfg.NumDays;
this.MailAlertsEnabled = cfg.MailAlertsEnabled;
this.ShowPastAppointments = cfg.ShowPastAppointments;
this.Accounts = cfg.Accounts;
this.ShowFriendlyGroupHeaders = cfg.ShowFriendlyGroupHeaders;
this.ShowDayNames = cfg.ShowDayNames;
this.ShowTasks = cfg.ShowTasks;
this.FirstDayOfWeek = cfg.FirstDayOfWeek;
this.RetrieveData();
}
}
}
///
/// Method to custom draw the list items
///
/// Sender
/// DrawListViewItemEventArgs
private void lstAppointments_DrawItem(object sender, DrawListViewItemEventArgs e)
{
e.DrawBackground(); // To avoid repainting (making font "grow")
Outlook.AppointmentItem appt = e.Item.Tag as Outlook.AppointmentItem;
// Color catColor = Color.Empty;
List catColors = new List();
Font itemFont = this.Font;
if (!String.IsNullOrEmpty(appt.Categories))
{
string[] allCats = appt.Categories.Split(new char[] { ',' });
if (allCats != null && allCats.Length != 0)
{
List cs = allCats.Select(cat => cat.Trim()).ToList();
cs.ForEach(cat =>
{
Outlook.Category c = Globals.ThisAddIn.Application.Session.Categories[cat] as Outlook.Category;
if (c != null)
{
catColors.Add(TranslateCategoryColor(c.Color));
}
});
}
}
int startRectangleWidth = 65;
int categoriesRectangleWidth = 55;
int horizontalSpacing = 5;
Rectangle totalRectangle = e.Bounds;
Rectangle startRectangle = totalRectangle; startRectangle.Width = startRectangleWidth;
Rectangle statusRectangle = totalRectangle; statusRectangle.Width = horizontalSpacing * 2; statusRectangle.Offset(startRectangleWidth + horizontalSpacing, 0);
Rectangle subjectRectangle = totalRectangle; subjectRectangle.Height = this.FontHeight; subjectRectangle.Offset(startRectangleWidth + horizontalSpacing * 4, 0);
Rectangle categoriesRectangle = totalRectangle; categoriesRectangle.Width = categoriesRectangleWidth; categoriesRectangle.Height = this.FontHeight; categoriesRectangle.Offset(10, this.FontHeight);
Rectangle locationRectangle = totalRectangle; locationRectangle.Height = this.FontHeight; locationRectangle.Offset(startRectangleWidth + horizontalSpacing * 4, this.FontHeight);
bool selected = e.State.HasFlag(ListViewItemStates.Selected);
Color back = Color.Empty;
if (selected) back = Color.LightCyan;
using (Brush br = new SolidBrush(back))
e.Graphics.FillRectangle(br, totalRectangle);
StringFormat rightFormat = new StringFormat();
rightFormat.Alignment = StringAlignment.Far;
rightFormat.LineAlignment = StringAlignment.Near;
StringFormat leftFormat = new StringFormat();
leftFormat.Alignment = StringAlignment.Near;
leftFormat.LineAlignment = StringAlignment.Near;
Brush colorBrush = new SolidBrush(this.ForeColor);
e.Graphics.DrawString(appt.Start.ToShortTimeString(), this.Font, colorBrush, startRectangle, rightFormat);
Color statusColor = Color.LightBlue;
Brush statusBrush = new SolidBrush(Color.Transparent);
switch (appt.BusyStatus)
{
case Outlook.OlBusyStatus.olBusy:
statusBrush = new SolidBrush(statusColor);
break;
case Outlook.OlBusyStatus.olFree:
break;
case Outlook.OlBusyStatus.olOutOfOffice:
statusBrush = new SolidBrush(Color.Purple); // TODO: Figure this out
break;
case Outlook.OlBusyStatus.olTentative:
statusBrush = new HatchBrush(HatchStyle.BackwardDiagonal, statusColor, this.BackColor);
break;
case Outlook.OlBusyStatus.olWorkingElsewhere:
statusBrush = new HatchBrush(HatchStyle.DottedDiamond, statusColor, this.BackColor);
break;
default:
break;
}
// Let's draw the status with a custom brush
e.Graphics.FillRectangle(statusBrush, statusRectangle);
e.Graphics.DrawRectangle(new Pen(statusColor), statusRectangle);
if (catColors.Count != 0)
{
int catWidth = categoriesRectangle.Width / catColors.Count;
Rectangle catRect = categoriesRectangle;
catColors.ForEach(cc =>
{
e.Graphics.FillRectangle(new SolidBrush(cc), catRect);
catRect.Width = catWidth; catRect.Offset(catWidth, 0);
});
}
//e.Graphics.FillRectangle(new SolidBrush(catColor), subjectRectangle);
e.Graphics.DrawString(appt.Subject, new Font(this.Font, FontStyle.Bold), colorBrush, subjectRectangle, leftFormat);
//e.Graphics.FillRectangle(new SolidBrush(catColor), locationRectangle);
e.Graphics.DrawString(appt.Location, this.Font, colorBrush, locationRectangle, leftFormat);
}
private Color TranslateCategoryColor(Outlook.OlCategoryColor col)
{
Color result = Color.Black;
switch (col)
{
case Outlook.OlCategoryColor.olCategoryColorNone:
// Nothing
break;
case Outlook.OlCategoryColor.olCategoryColorRed:
result = Color.Red;
break;
case Outlook.OlCategoryColor.olCategoryColorOrange:
result = Color.Orange;
break;
case Outlook.OlCategoryColor.olCategoryColorPeach:
result = Color.PeachPuff;
break;
case Outlook.OlCategoryColor.olCategoryColorYellow:
result = Color.Yellow;
break;
case Outlook.OlCategoryColor.olCategoryColorGreen:
result = Color.Green;
break;
case Outlook.OlCategoryColor.olCategoryColorTeal:
result = Color.Teal;
break;
case Outlook.OlCategoryColor.olCategoryColorOlive:
result = Color.Olive;
break;
case Outlook.OlCategoryColor.olCategoryColorBlue:
result = Color.Blue;
break;
case Outlook.OlCategoryColor.olCategoryColorPurple:
result = Color.Purple;
break;
case Outlook.OlCategoryColor.olCategoryColorMaroon:
result = Color.Maroon;
break;
case Outlook.OlCategoryColor.olCategoryColorSteel:
result = Color.LightSteelBlue;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkSteel:
result = Color.SteelBlue;
break;
case Outlook.OlCategoryColor.olCategoryColorGray:
result = Color.Gray;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkGray:
result = Color.DarkGray;
break;
case Outlook.OlCategoryColor.olCategoryColorBlack:
result = Color.Black;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkRed:
result = Color.DarkRed;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkOrange:
result = Color.DarkOrange;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkPeach:
result = Color.DarkSalmon;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkYellow:
result = Color.DarkGoldenrod;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkGreen:
result = Color.DarkGreen;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkTeal:
result = Color.DarkCyan;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkOlive:
result = Color.DarkOliveGreen;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkBlue:
result = Color.DarkBlue;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkPurple:
result = Color.DarkViolet;
break;
case Outlook.OlCategoryColor.olCategoryColorDarkMaroon:
result = Color.DarkKhaki;
break;
default:
break;
}
return result;
}
///
/// Save the splitter distance to restore upon reloading the plugin
///
/// Sender
/// SplitterEventArgs
private void splitContainer1_SplitterMoved(object sender, SplitterEventArgs e)
{
Properties.Settings.Default.SplitterDistance = this.splitContainer1.SplitterDistance;
}
#endregion "Methods"
}
}