Практическое руководство. Удаление встреч
Обновлен: Ноябрь 2007
Применение |
---|
Сведения, приведенные в данном разделе, относятся только к указанным проектам Visual Studio Tools for Office и версиям Microsoft Office. Тип проекта
Версия Microsoft Office
Дополнительные сведения см. в разделе Доступность функций по типам приложений и проектов. |
В данном примере выполняется удаление одного экземпляра повторяющейся встречи. В этом примере предполагается, что экземпляр повторяющейся встречи назначен на 8:00 28 июня 2006 года.
Пример
Private Sub ThisAddIn_Startup(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Startup
Dim calendar As Outlook.MAPIFolder = _
Application.Session.GetDefaultFolder( _
Outlook.OlDefaultFolders.olFolderCalendar)
Dim calendarItems As Outlook.Items = calendar.Items
Dim item As Outlook.AppointmentItem = TryCast( _
calendarItems("Test Appointment"), Outlook.AppointmentItem)
Dim pattern As Outlook.RecurrencePattern = _
item.GetRecurrencePattern()
Dim itemDelete As Outlook.AppointmentItem = _
pattern.GetOccurrence(New Date(2006, 6, 28, 8, 0, 0))
If itemDelete IsNot Nothing Then
itemDelete.Delete()
End If
End Sub
private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
Outlook.MAPIFolder calendar =
Application.Session.GetDefaultFolder(
Outlook.OlDefaultFolders.olFolderCalendar);
Outlook.Items calendarItems = calendar.Items;
Outlook.AppointmentItem item =
calendarItems["Test Appointment"] as Outlook.AppointmentItem;
Outlook.RecurrencePattern pattern =
item.GetRecurrencePattern();
Outlook.AppointmentItem itemDelete = pattern.
GetOccurrence(new DateTime(2006,6,28,8,0,0));
if (itemDelete != null)
{
itemDelete.Delete();
}
}
См. также
Задачи
Практическое руководство. Создание встреч
Практическое руководство. Создание календаря пользователя
Практическое руководство. Создание приглашения на собрание