Oprettelser af aftaler i outlook gennem website

Jeg har oprettet scriptet

Dim text As String
text = "BEGIN:VCALENDAR" + vbCrLf
text &= "PRODID:-//Microsoft Corporation//Outlook MIMEDIR//EN" + vbCrLf
text &= "VERSION:1.0" + vbCrLf
text &= "METHOD:REQUEST" + vbCrLf
text &= "BEGIN:VEVENT" + vbCrLf
text &= "DTSTART: 20050215T070000Z" + vbCrLf
text &= "DTEND: 20050215T080000Z" + vbCrLf
text &= "LOCATION: gfhg" + vbCrLf
text &= "CATEGORIES: Business" + vbCrLf
text &= "DESCRIPTION:gfgf" + vbCrLf
text &= "SUMMARY:gfhgh(9)" + vbCrLf
text &= "PRIORITY:3" + vbCrLf
text &= "END:VEVENT" + vbCrLf
text &= "End : VCALENDAR()"

SmtpMail.SmtpServer = "sbs.o-mega.local"

opgaveMail.Headers.Add("Reply-To", "replay@mail.dk")
opgaveMail.Headers.Add("From", "from@mail.dk")
opgaveMail.Headers.Add("To", "to@mail.dk")
opgaveMail.Headers.Add("Subject", "Kalenderaftale")
opgaveMail.Headers.Add("Content-class", "urn:content-classes:calendarmessage")
opgaveMail.Headers.Add("MIME-Version", "1.0")
opgaveMail.Headers.Add("Content-Type", "text/calendar;" + vbCrLf + "method=REQUEST;" + vbCrLf + "name=" + """" + "meeting.ics" + """")

opgaveMail.Body = text

SmtpMail.Send(opgaveMail)

... men det virker ikke

Lukker