17. februar 2005 - 11:12
Der er
1 kommentar og
1 løsning
Oprettelser af aftaler i outlook gennem website
Hej Eksperter
Gennem en formular på et site, skal man kunne oprette aftaler i outlook.
Funktionaliteten skal ske gennem en Web Service, som trækker dataerne fra en formular ud og sender dem gennem en mail til aftalemodtageren.
Jeg har fundet ud af at lave en vcs-fil, som jeg kan vedhæfte mailen. Når modtageren så åbner filen, oprettes en kalenderaftale automatisk.
Mit spørgsmål lyder så:
Er det ikke muligt at sende en mail, som ikke behøver at blive åbnet af modtageren, men som outlooke behandler automatisk når den modtager den.
Jeg tror det har noget med iCal og vCal af gøre, men jeg kan ikke helt gennemskue hvordan det skal gøres, så lidt kode eksempler vil være super!
- KAHS
21. februar 2005 - 14:36
#1
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
