ASP CLASSIC旧应用实现Outlook日历邀请失败求助

一、修正ICS文件内容 #

你的ICS文件存在多处格式错误，这是客户端无法识别的核心原因：

• UID格式错误：UID:{9A7BC596-7C70-4329-9425-52486FC83D85} i 末尾多余了空格和"i"，UID必须唯一且无多余字符，修正为：

  UID:{9A7BC596-7C70-4329-9425-52486FC83D85}
  

• 日期格式错误：ICS要求日期为YYYYMMDD格式，你的DTSTART/DTEND用了DD/MM/YYYY，修正为：

  DTSTART;TZID=Europe/Rome:20241109T123600
  DTEND;TZID=Europe/Rome:20241109T173600
  

• ORGANIZER属性错误：组织者的角色应为CHAIR，参与状态应为ACCEPTED，修正为：

  ORGANIZER;PARTSTAT=ACCEPTED;ROLE=CHAIR:mailto:sender@mailserver.com
  

• DESCRIPTION属性错误：ALTREP需要关联URI，纯文本描述直接写即可，修正为：

  DESCRIPTION:Proviamo
  

• 时区DTSTART错误：夏令时/标准时间的DTSTART应使用本地时间（不带Z），且对应正确的切换日期（3月最后一个周日、10月最后一个周日），修正时区段为：

  BEGIN:VTIMEZONE
  TZID:Europe/Rome
  BEGIN:DAYLIGHT
  TZOFFSETFROM:+0100
  TZOFFSETTO:+0200
  TZNAME:CEST
  DTSTART:20240331T020000
  RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=-1SU
  END:DAYLIGHT
  BEGIN:STANDARD
  TZOFFSETFROM:+0200
  TZOFFSETTO:+0100
  TZNAME:CET
  DTSTART:20241027T030000
  RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU
  END:STANDARD
  END:VTIMEZONE
  

修正后的完整ICS内容：

BEGIN:VCALENDAR
PRODID:-//Microsoft Corporation//Outlook 9.0 MIMEDIR//EN
VERSION:2.0
METHOD:REQUEST
BEGIN:VTIMEZONE
TZID:Europe/Rome
BEGIN:DAYLIGHT
TZOFFSETFROM:+0100
TZOFFSETTO:+0200
TZNAME:CEST
DTSTART:20240331T020000
RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=-1SU
END:DAYLIGHT
BEGIN:STANDARD
TZOFFSETFROM:+0200
TZOFFSETTO:+0100
TZNAME:CET
DTSTART:20241027T030000
RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU
END:STANDARD
END:VTIMEZONE
BEGIN:VEVENT
CREATED:20241108T000000Z
LAST-MODIFIED:20241108T000000Z
DTSTAMP:20241108T180800Z
UID:{9A7BC596-7C70-4329-9425-52486FC83D85}
SUMMARY:Calendar: OGGETTO
ORGANIZER;PARTSTAT=ACCEPTED;ROLE=CHAIR:mailto:sender@mailserver.com
ATTENDEE;RSVP=TRUE;PARTSTAT=NEEDS-ACTION;ROLE=REQ-PARTICIPANT:mailto:receiver@mailserver.com
DTSTART;TZID=Europe/Rome:20241109T123600
DTEND;TZID=Europe/Rome:20241109T173600
PRIORITY:3
TRANSP:OPAQUE
LOCATION:LUOGO MEETING
DESCRIPTION:Proviamo
BEGIN:VALARM
TRIGGER:PT30M
ACTION:DISPLAY
DESCRIPTION:Reminder
END:VALARM
END:VEVENT
END:VCALENDAR

二、修正CDO.Message代码 #

你的CDO代码存在MIME结构配置错误，需调整如下：

1. 不要同时设置HTMLBody和添加ICS附件，直接将ICS内容作为邮件的纯文本主体
2. 设置邮件头字段后必须调用Fields.Update()生效
3. 正确配置Content-Type和相关属性

修正后的代码：

Dim objMail
Set objMail = Server.CreateObject("CDO.Message")

objMail.From = eMail_Sender
objMail.To = eMail_Dest
objMail.Cc = ""
objMail.Bcc = ""
objMail.Subject = trim(Obj_Calendar)

' 配置邮件内容为text/calendar
objMail.Body = Modello_Invito
objMail.BodyPart.ContentMediaType = "text/calendar"
objMail.BodyPart.Charset = "UTF-8"

' 设置关键邮件头字段
objMail.Fields("urn:schemas:mailheader:content-class") = "urn:content-classes:calendarmessage"
objMail.Fields("urn:schemas:mailheader:content-type") = "text/calendar; method=REQUEST; charset=UTF-8"
objMail.Fields("urn:schemas:mailheader:content-transfer-encoding") = "8bit"
' 必须调用Update使字段生效
objMail.Fields.Update()

' 发送邮件（需确保CDO配置了正确的SMTP服务器）
objMail.Send()

Set objMail = Nothing

额外注意事项 #

• 确保SMTP服务器允许发送text/calendar类型的邮件，部分服务器可能需要额外配置
• UID必须全局唯一，建议每次生成邀请时使用新的GUID，避免重复邀请导致客户端识别异常
• 测试时使用Outlook客户端直接接收，部分web邮件客户端可能对ICS的解析要求更严格

内容的提问来源于stack exchange，提问作者Valentino