Sending an Outlook VCalendar Appointment in a CDO Message (Email)

Hi there,

I am currently developing an application and need some URGENT help with this code! I am prepared to give away 500pts for an answer to this question! (I would have given more but EE have a restriciton of 500 max!)

I am wanting to send an Outlook appointment (Vcalendar format) via a CDO.Message in an ASP page. I don't want to send the details as a .VCS attachment as I want the appointment to automatically come up in the client's Outlook software as an appoinment with the appropriate ACCEPT and DECLINE buttons.

My code so far is this (however in Outlook all it comes up as is a plain-text email with Vcalendar parameters as text):

==============================================================
<%

Dim port, address, iMsg

mailaddr = "myserver"
mailport = "25"

Set iMsg = CreateObject("CDO.Message")

With iMsg
    .To = "bob@myserver.com"
    .From = "me@myserver.com"
    .Subject = "Calendar Appointment"
.Textbody = "BEGIN:VCALENDAR" + _
"PRODID:-//Microsoft Corporation//Outlook 11.0 MIMEDIR//EN" + _
"VERSION:2.0" + _
"METHOD:REQUEST" + _
"BEGIN:VEVENT" + _
"ATTENDEE;ROLE=REQ-PARTICIPANT;RSVP=TRUE:MAILTO:bob@myserver.com" + _
"ORGANIZER:MAILTO:bob@myserver.com" + _
"DTSTART:20050906T083000Z" + _
"DTEND:20050906T090000Z" + _
"LOCATION:asdf" + _
"TRANSP:OPAQUE" + _
"SEQUENCE:0" + _
"UID:040000008200E00074C5B7101A82E00800000000703EA29F21B3C5010000000000000000100"  + _
"000002F53F1D2CC9AFE47A6BBE30F9028C1AB"  + _
"DTSTAMP:20050906T082904Z"  + _
"DESCRIPTION:When: Tuesday\, 6 September 2005 8:30 p.m.-9:00 p.m."  + _
"(GMT+12:00) Auckland\, Wellington.\nWhere:" + _
"asdf\n\n*~*~*~*~*~*~*~*~*~*\n\n\n"  + _
"SUMMARY:Nothing much to say here" + _
"PRIORITY:5" + _
"X-MICROSOFT-CDO-IMPORTANCE:1" + _
"CLASS:PUBLIC" + _
"END:VEVENT" + _
"END:VCALENDAR"

    .Configuration.Fields.Item("urn:schemas:mailheader:content-id")= "calendar_message"
    .Configuration.Fields.Item("urn:schemas:mailheader:content-type")= "text/vcalendar"
    .Configuration.Fields.Item("urn:schemas:mailheader:content-transfer-encoding")= "UTF-8"

    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= mailaddr
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= mailport
    .Configuration.Fields.Update
    .Send

End With

Set iMsg = Nothing

%>

==============================================================


All I get when I receive the message is just  BEGIN:VCALENDAR PRODID:-//Microsoft Corporation//Outlook 11.0 MIMEDIR//EN VERSION:2.0........etc

So basicallly what I am trying to do is emulate the outlook function where you create an appointment and then send invitations to people....I am wanting to automatically send these invitations from an ASP script using the above code.

Thanks in advance for any help!

Regards,
MatthewStart Free Trial