Vb.net VCS文件的html描述

我们使用以下代码创建了一个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)
  

  Dim body As String=新事件
  writer.WriteLine（“开始：VCALENDAR{0}”，vbCrLf）
  writer.WriteLine（“版本：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（“说明：{0}”，正文）
  writer.WriteLine（“X-ALT-DESC；FMTTYPE=text/html:{0}”，正文）
  WriteLine（“SUMMARY；ENCODING=QUOTED-PRINTABLE:{0}{1}”，测试事件，vbCrLf）
  writer.WriteLine（“优先级：3{0}”，vbCrLf）
  writer.WriteLine（“END:VEVENT{0}”，vbCrLf）
  writer.WriteLine（“结束：VCALENDAR{0}”，vbCrLf）
  

它正在生成vcs文件，打开该文件后，它将在Outlook 2010中以正确的主题、开始时间和结束时间值打开

我们给出的描述是html格式的，但显示为纯文本

---

因此，我们如何才能显示html描述。

我试图以vCalendar格式添加html描述，但找不到任何合适的方法来实现这一点

最后将vCalendar格式更改为iCalendar，并允许显示html描述

我们删除了描述行ie

writer.WriteLine（“描述：{0}”，body）

现在它显示html格式的描述

以下部分也发生了变化

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

及

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