Описание файла VCS в формате HTML

Question

Мы создали файл vcs, используя следующий код.

            Dim mstream As New MemoryStream
            Dim writer As New StreamWriter(mstream)
            writer.AutoFlush = True

            GetvCalendarText(writer)
            Response.Clear()
            Response.AppendHeader("Content-Disposition", "attachment; filename=Event" &              eventID & ".vcs")
            Response.AppendHeader("Content-Length", mstream.Length.ToString)
            Response.ContentType = "application/download"
            Response.BinaryWrite(mstream.ToArray)
            Response.End()

• Метод GetCalendarText

      Dim body As String = <b>New event</b>
      writer.WriteLine("BEGIN:VCALENDAR{0}", vbCrLf)
      writer.WriteLine("VERSION:1.0{0}", vbCrLf)
      writer.WriteLine("BEGIN:VEVENT{0}", vbCrLf)
      writer.WriteLine("DTStart:{0}{1}", DateTime.Now.ToString("yyyyMMddTHHmm00Z"), vbCrLf)
      writer.WriteLine("DTEnd:{0}{1}", DateTime.Now.AddHours(2).ToString("yyyyMMddTHHmm00Z"), vbCrLf)
      writer.WriteLine("DESCRIPTION:{0}", body)
      writer.WriteLine("X-ALT-DESC;FMTTYPE=text/html:{0}", body)
      writer.WriteLine("SUMMARY;ENCODING=QUOTED-PRINTABLE:{0}{1}", Test event, vbCrLf)
      writer.WriteLine("PRIORITY:3{0}", vbCrLf)
      writer.WriteLine("END:VEVENT{0}", vbCrLf)
      writer.WriteLine("END:VCALENDAR{0}", vbCrLf)
  

Он генерирует файл vcs и при открытии файла открывает в Outlook 2010 тему, время начала и время окончания с правильными значениями.

Описание, которое мы дали, в формате html, но показано в виде простого текста.

Итак, как мы можем показать описание HTML как таковое.

Answer 1

Я пытался добавить описание html в формате vCalendar и не могу найти подходящий способ сделать это.

Наконец, мы изменили наш формат vCalendar на iCalendar, и это позволяет показывать html-описание.

Мы удалили строку описания, т.е. writer.WriteLine("DESCRIPTION:{0}", body)и теперь он показывает описание в формате HTML.

Следующие части также изменились.

Response.AppendHeader("Content-Disposition", "attachment; filename=Event" & eventID & ".ics")

а также

writer.WriteLine("VERSION:2.0{0}", vbCrLf)