问使用asp.net将约会添加到outlook

EN

Private Sub AddToCalander()

        Try

        Dim olApp As Microsoft.Office.Interop.Outlook._Application = DirectCast(New Microsoft.Office.Interop.Outlook.Application(), Microsoft.Office.Interop.Outlook._Application)
        Dim mapiNS As Microsoft.Office.Interop.Outlook.NameSpace = olApp.GetNamespace("MAPI")

        Dim profile As String = ""
            mapiNS.Logon(profile, Nothing, Nothing, Nothing)
        Dim apt As Microsoft.Office.Interop.Outlook._AppointmentItem = DirectCast(olApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olAppointmentItem), Microsoft.Office.Interop.Outlook._AppointmentItem)

        apt.Subject = ddItineraryItems.SelectedItem.Text
            apt.Body = txtPItinerary_Desc.Text

            apt.Start = CDate(txtDateFromPopup.Text)
            apt.End = CDate(txtDateToPopup.Text)

        apt.BusyStatus = Microsoft.Office.Interop.Outlook.OlBusyStatus.olTentative
        apt.AllDayEvent = False
        apt.Location = dcmbDealer.SelectedItem.Text & "," & dcmbShowroom.SelectedItem.Text

        apt.Save()

        Catch ex As Exception
            AlertMessage.showError("Unable to add itinerary detail to outlook calendar")
            Exit Sub
        End Try 
     End Sub