Как я могу программно отменить встречу Outlook с помощью asp.net VB?

Я могу программно создать приглашение на собрание, которое отправляется пользователю с помощью кода и отображается в почте Outlook, где пользователь может принять запрос, и если оно принято, встреча отображается в его календаре Outlook. но мне сложно понять, как программно отменить одно и то же событие.

Приведенный ниже код - это то, что я использую для отправки приглашения на собрание. Он работает должным образом и отправляет запрос получателю, и он может принять или отклонить его. В случае принятия, встреча записывается в их календарь.

 Dim smtpServer As String = ConfigurationManager.AppSettings("MailServer").ToString()
 Dim credentials As New NetworkCredential(ConfigurationManager.AppSettings("SMTPUser").ToString(), ConfigurationManager.AppSettings("SMTPPassword").ToString())

 Dim startTime1 As String = Convert.ToDateTime("10/30/2015 11:00 AM").ToString("yyyyMMddTHHmmss")
 Dim endTime1 As String = Convert.ToDateTime("10/30/2015 01:00 PM").ToString("yyyyMMddTHHmmss")
 Dim smtp As New SmtpClient(smtpServer)
 smtp.Credentials = credentials

 Dim msg As New MailMessage()
 Dim emailFrom As String = ConfigurationManager.AppSettings("EmailFrom").ToString()
 Dim emailTo As String = "[email protected]"
 msg.From = New MailAddress(emailFrom, "Scheduling System")
 msg.[To].Add(New MailAddress(emailTo))
 msg.Subject = "JD"

 Dim strBody As New StringBuilder()
 strBody.AppendLine("Appointment Confirmation")
 strBody.AppendLine("Subject: JD")
 strBody.AppendLine("1599")
 strBody.AppendLine("Location: Exam 1")
 strBody.AppendLine("Date: 10/30/2015")
 strBody.AppendLine("Time: 11:00AM - 1:00PM")

 msg.Body = strBody.ToString()

 Dim str As New StringBuilder()
 str.AppendLine("BEGIN:VCALENDAR")

 'PRODID: identifier for the product that created the Calendar object
 str.AppendLine("PRODID:-//CARS//Outlook MIMEDIR//EN")
 str.AppendLine("VERSION:2.0")
 str.AppendLine("METHOD:REQUEST")

 str.AppendLine("BEGIN:VEVENT")

 str.AppendLine(String.Format("DTSTART:{0:yyyyMMddTHHmmss}", startTime1))
 'TimeZoneInfo.ConvertTimeToUtc("BeginTime").ToString("yyyyMMddTHHmmssZ")));
 str.AppendLine(String.Format("DTSTAMP:{0:yyyyMMddTHHmmss}", DateTime.Now))
 str.AppendLine(String.Format("DTEND:{0:yyyyMMddTHHmmss}", endTime1))       
 'TimeZoneInfo.ConvertTimeToUtc("EndTime").ToString("yyyyMMddTHHmmssZ")));
 str.AppendLine(String.Format("LOCATION:{0}", "Exam 1"))

 ' UID should be unique.
 str.AppendLine(String.Format("UID:{0}", "jd101"))
 str.AppendLine(String.Format("DESCRIPTION:{0}", msg.Body))
 str.AppendLine(String.Format("X-ALT-DESC;FMTTYPE=text/html:{0}", msg.Body))
 str.AppendLine(String.Format("SUMMARY:{0}", msg.Subject))

 str.AppendLine("STATUS:CONFIRMED")
 str.AppendLine("BEGIN:VALARM")
 str.AppendLine("TRIGGER:-PT15M")
 str.AppendLine("ACTION:Accept")
 str.AppendLine("DESCRIPTION:Reminder")
 str.AppendLine("X-MICROSOFT-CDO-BUSYSTATUS:BUSY")
 str.AppendLine("END:VALARM")
 str.AppendLine("END:VEVENT")

 str.AppendLine(String.Format("ORGANIZER:MAILTO:{0}", msg.From.Address))
 str.AppendLine(String.Format("ATTENDEE;CN=""{0}"";RSVP=TRUE:mailto:{1}", msg.[To](0).DisplayName, msg.[To](0).Address))

 str.AppendLine("END:VCALENDAR")
 Dim ct As New System.Net.Mime.ContentType("text/calendar")
 ct.Parameters.Add("method", "REQUEST")
 ct.Parameters.Add("name", "meeting.ics")
 Dim avCal As AlternateView = AlternateView.CreateAlternateViewFromString(str.ToString(), ct)
 msg.AlternateViews.Add(avCal)
 smtp.Send(msg)

Приведенный ниже код - это то, что мне нужно ОТМЕНИТЬ существующее собрание. Он отправляет уведомление так же, как и приведенный выше код, но не отменяет / удаляет / удаляет собрание. Может кто-нибудь указать мне в правильном направлении, пожалуйста. Я просто хочу, чтобы событие было удалено из календаря Outlook при запуске этой части кода. Спасибо за любую помощь.

Dim smtpServer As String = ConfigurationManager.AppSettings("MailServer").ToString()
Dim credentials As New NetworkCredential(ConfigurationManager.AppSettings("SMTPUser").ToString(), ConfigurationManager.AppSettings("SMTPPassword").ToString())

Dim startTime1 As String = Convert.ToDateTime("10/30/2015 11:00 AM").ToString("yyyyMMddTHHmmss")
Dim endTime1 As String = Convert.ToDateTime("10/30/2015 01:00 PM").ToString("yyyyMMddTHHmmss")
Dim smtp As New SmtpClient(smtpServer)
smtp.Credentials = credentials

Dim msg As New MailMessage()
Dim emailFrom As String = ConfigurationManager.AppSettings("EmailFrom").ToString()
Dim emailTo As String = "[email protected]"
msg.From = New MailAddress(emailFrom, "Scheduling System")
msg.[To].Add(New MailAddress(emailTo))
msg.Subject = "JD"

Dim strBody As New StringBuilder()
strBody.AppendLine("Appointment Confirmation")
strBody.AppendLine("Subject: JD")
strBody.AppendLine("HRPO#: 1599")
strBody.AppendLine("Location: Exam 1")
strBody.AppendLine("Date: 10/30/2015")
strBody.AppendLine("Time: 11:00AM - 1:00PM")

msg.Body = strBody.ToString()

Dim str As New StringBuilder()
str.AppendLine("BEGIN:VCALENDAR")

'PRODID: identifier for the product that created the Calendar object
str.AppendLine("PRODID:-//CARS//Outlook MIMEDIR//EN")
str.AppendLine("VERSION:2.0")
str.AppendLine("METHOD:REQUEST")

str.AppendLine("BEGIN:VEVENT")

str.AppendLine(String.Format("DTSTART:{0:yyyyMMddTHHmmss}", startTime1))
'TimeZoneInfo.ConvertTimeToUtc("BeginTime").ToString("yyyyMMddTHHmmssZ")));
str.AppendLine(String.Format("DTSTAMP:{0:yyyyMMddTHHmmss}", DateTime.Now))
str.AppendLine(String.Format("DTEND:{0:yyyyMMddTHHmmss}", endTime1))
'TimeZoneInfo.ConvertTimeToUtc("EndTime").ToString("yyyyMMddTHHmmssZ")));
str.AppendLine(String.Format("LOCATION:{0}", "Exam 1"))

' UID should be unique.
str.AppendLine(String.Format("UID:{0}", "jd101"))
str.AppendLine(String.Format("DESCRIPTION:{0}", msg.Body))
str.AppendLine(String.Format("X-ALT-DESC;FMTTYPE=text/html:{0}", msg.Body))
str.AppendLine(String.Format("SUMMARY:{0}", msg.Subject))

str.AppendLine("STATUS:CANCELLED")
str.AppendLine("BEGIN:VALARM")
str.AppendLine("TRIGGER:-PT15M")
str.AppendLine("ACTION:Accept")
str.AppendLine("DESCRIPTION:Reminder")
str.AppendLine("X-MICROSOFT-CDO-BUSYSTATUS:BUSY")
str.AppendLine("END:VALARM")
str.AppendLine("END:VEVENT")

str.AppendLine(String.Format("ORGANIZER:MAILTO:{0}", msg.From.Address))
str.AppendLine(String.Format("ATTENDEE;CN=""{0}"";RSVP=TRUE:mailto:{1}", msg.[To](0).DisplayName, msg.[To](0).Address))

str.AppendLine("END:VCALENDAR")
Dim ct As New System.Net.Mime.ContentType("text/calendar")
ct.Parameters.Add("method", "CANCEL")
ct.Parameters.Add("name", "meeting.ics")
Dim avCal As AlternateView = AlternateView.CreateAlternateViewFromString(str.ToString(), ct)
msg.AlternateViews.Add(avCal)
smtp.Send(msg)

visual-studio .net asp.net outlook outlook-calendar
person Jeremy Dodt    schedule 30.10.2015    source источник
comment
Мне не удалось заставить работать статус X-MICROSOFT-CDO-BUSYSTATUS: BUSY между кодом BEGIN: VALARM / END: VALARM. Я поставил его перед str.AppendLine (BEGIN: VALARM), а затем он по умолчанию отобразил статус BUSY. Я использую его с Outlook 2013.   -  person thecoolmacdude    schedule 02.12.2015
comment
Отличная информация thecoolmacdude! Мы используем 2010 год, и он работает должным образом, но это полезно знать для будущих изменений / обновлений. В ходе своего исследования я обнаружил, что каждая версия Office обрабатывает вещи по-своему, и было даже много случаев, когда по соображениям безопасности указывалось, что это не будет работать с более новыми версиями. Еще раз спасибо за вклад.   -  person Jeremy Dodt    schedule 03.12.2015

Ответы (2)


arrow_upward
4
arrow_downward

ОТВЕТИЛ

Чтобы отменить собрание и удалить его из календаря Outlook, вам необходимо изменить метод с «ЗАПРОС» на «ОТМЕНА» для события, которое отправляет запрос на отмену.

msg.Body = strBody.ToString()

Dim str As New StringBuilder()
str.AppendLine("BEGIN:VCALENDAR")

'PRODID: identifier for the product that created the Calendar object
str.AppendLine("PRODID:-//CARS//Outlook MIMEDIR//EN")
str.AppendLine("VERSION:2.0")
'''ORIGINAL-CHANGE TO CANCEL'''
'str.AppendLine("METHOD:REQUEST")
'''NEW - CHANGE TO CANCEL'''
str.AppendLine("METHOD:CANCEL")
'''Everything else remains the same. Will work and remove meeting from calendar.'''
person Jeremy Dodt    schedule 11.11.2015

arrow_upward
0
arrow_downward

В настоящее время я использую этот код для отправки встречи в Outlook ..

StringBuilder OutlookBody = новый StringBuilder ();

string textvs = @ "НАЧАЛО: ВКАЛЕНДАРЬ

PRODID: - // Корпорация Microsoft // Outlook 10.0 MIMEDIR // EN

ВЕРСИЯ: 1.0

НАЧАТЬ: ВЕВЕНТ

МЕСТО: "+ Location + @"

DTSTART: "+ string.Format (" DTSTART: {0: yyyyMMddTHHmmssZ} ", начало) + @"

DTEND: "+ string.Format (" DTEND: {0: yyyyMMddTHHmmssZ} ", end) + @"

ОПИСАНИЕ; КОДИРОВАНИЕ = В ЦИТАТЕ-ПЕЧАТЬ: = "+ OutlookBody + @" = 0D = 0 РЕЗЮМЕ: "+ AppoitmentName + @"

ПРИОРИТЕТ: 3

КОНЕЦ: ВЕВЕНТ

КОНЕЦ: ВКАЛЕНДАРЬ ";

И работает нормально ..

Как я могу использовать тот же код для отмены / удаления встречи из Outlook.

person Deepak gupta    schedule 25.01.2017
comment
Добавьте МЕТОД: ОТМЕНА, чтобы отменить встречу. Вам также понадобится UID для ссылки. В исходном примере он показывает UID при отправке, используйте тот же UID при отмене. Я использую autoId (PK) в базе данных в качестве своего UID. В качестве функции безопасности вы не можете напрямую отменить встречу (точно так же, как вы не можете напрямую поместить ее в календарь пользователя), но запросите отмену, и пользователь может удалить ее из календаря. Надеюсь это поможет. - person Jeremy Dodt; 01.02.2017