Download kalenderpost til Outlook

Jeg tror du finder svaret her: http://activedeveloper.dk/artikler/default.asp?articleid=120

Hey Moskjaer.

Jep - det var sådan noget jeg ledte efter... Men! Jeg kan ikke helt få det til at virke, da jeg ikke er vildt skarp indenfor VB scripts... Kan jeg ikke gøre sådan her:


           
<% strSQL = "Select * from calendar where id = "&request.form("id")&""       
Set rs_cal = Conn.Execute(strSQL) %>                       
                           
<script language="VBScript">
strSubject = <%=rs_cal("headline")%>
strLocation = <%= rs_cal("destination") %>
strContents = <%= rs_Cal("contents") %>


Sub NewAppointment(strSubject, strLocation, strContents)
  Set App = CreateObject("Outlook.Application")
  Set MyNameSpace = App.GetNamespace("MAPI")
  MyNameSpace.Logon

  Set AppointmentFolder = MyNameSpace.GetDefaultFolder(9)
  Set AppointmentItem = AppointmentFolder.Items.Add

  AppointmentItem.Subject = strSubject
  AppointmentItem.Location = strLocation
  AppointmentItem.Body = strContents
  AppointmentItem.Start = "<%=Date & " 12:00"%>"
  AppointmentItem.Duration = 60
  AppointmentItem.Save

  Msgbox Chr(34) & strSubject & Chr(34) & " er nu føjet til din OutLook kalender, den <%=FormatDateTime(Now, vbLongDate)%>"
End Sub

Takker - point givet...

Hej Erik. Har du fået det til at virke?