从ASP.NET Web Apps发送Outlook 2007会议请求 [英] Sending Outlook 2007 Meeting Request from ASP.NET Web Apps

问题描述

我一直在尝试从自定义ASP.NET Web应用程序发送Outlook会议请求。我们在一个Exchange服务器环境中 - 我尝试了许多不起作用的方法......例如：

Imports Outlook = Microsoft.Office.Interop.Outlook

Imports Outlook = Microsoft.Office.Interop.Outlook

私人小型会议（）

Dim arrivald As Date = CALLArrival.SelectedDate.ToShortDateString& " " &安培; ddlarrivaltime.SelectedItem.Text& " " &安培; ddlarrivalpm.SelectedItem.Text

昏暗离开As Date = CALLDeparture.SelectedDate.ToShortDateString& " " &安培; ddlDEPARTURETime.SelectedItem.Text& " " &安培; ddlDeparturePM.SelectedItem.Text

' Dim usern As String = User.Identity.Name（）

'Dim oApp As Outlook.Application = New Outlook.Application

<字体颜色= "＃3366FF">"昏暗APPT作为Outlook._AppointmentItem = oApp.CreateItem（Outlook.OlItemType.olAppointmentItem）

'Appt.MeetingStatus = Outlook.OlMeetingStatus.olMeeting

'appt.Location ="操作"

'appt.Start =到达

'appt.End =离开

'Dim recipRequired As Outlook.Recipient = appt.Recipients.Add（ [e-mail] ）

<字体大小= 2> <字体颜色= "＃3366FF">" recipRequired.Type = Outlook.OlMeetingRecipientType.olRequired

'appt.Recipients.ResolveAll（）

'appt.Send（）

'appt.Display（False）

'End Sub

任何帮助将不胜感激 - 我是不太确定要使这个工作的方向！

推荐答案

您好，

您可以使用以下代码生成日历。

You can use below code for generating calendar.

Public Sub ICal（）

Public Sub ICal()

&NBSP; &NBSP; &NBSP; &NBSP; Dim filepath As String = ConfigurationManager.AppSettings（" FilePath"）

  &NBSP; &NBSP; &NBSP; Dim schLocation As String =" Travel"

  &NBSP; &NBSP; &NBSP; Dim schSubject As String ="商务访问讨论"

  &NBSP; &NBSP; &NBSP; Dim schBeginDate As DateTime = Convert.ToDateTime（" 7/3/2008 10:00:00 PM"）

  &NBSP; &NBSP; &NBSP; Dim schEndDate As DateTime = Convert.ToDateTime（" 7/3/2008 11:00:00 PM"）

  &NBSP; &NBSP; &NBSP; Dim schDescription As String =" Description"

  &NBSP; &NBSP; &NBSP;暗淡内容作为字符串（）= {" BEGIN：VCALENDAR"，" PRODID： - //弗洛Inc.//FloSoft//EN"，" BEGIN：VEVENT"，" DTSTART：" + schBeginDate.ToUniversalTime（）。ToString（" yyyyMMdd \\THHmmss \\ Z"），" DTEND：" + schEndDate.ToUniversalTime（）。ToString（" yyyyMMdd \\THHmmss \\ Z"），
" LOCATION：" + schLocation，"DESCRIPTION; ENCODING = QUOTED-PRINTABLE：" + schDescription，"SUMMARY：" + schSubject，"PRIORITY：3"，"END：VEVENT"，"END：VCALENDAR"}}


  &NBSP; &NBSP; &NBSP; System.IO.File.WriteAllLines（" C：\ TRError \Sample.ics"，contents）



  &NBSP; &NBSP; &NBSP; SendMailAttachment（" C：\ TRError \Sample.ics"））



  &NBSP;结束分

        Dim filepath As String = ConfigurationManager.AppSettings("FilePath")
        Dim schLocation As String = "Travel"
        Dim schSubject As String = "Business visit discussion"
        Dim schBeginDate As DateTime = Convert.ToDateTime("7/3/2008 10:00:00 PM")
        Dim schEndDate As DateTime = Convert.ToDateTime("7/3/2008 11:00:00 PM")
        Dim schDescription As String = "Description"
        Dim contents As String() = {"BEGIN:VCALENDAR", "PRODID:-//Flo Inc.//FloSoft//EN", "BEGIN:VEVENT", "DTSTART:" + schBeginDate.ToUniversalTime().ToString("yyyyMMdd\\THHmmss\\Z"), "DTEND:" + schEndDate.ToUniversalTime().ToString("yyyyMMdd\\THHmmss\\Z"), "LOCATION:" + schLocation, "DESCRIPTION;ENCODING=QUOTED-PRINTABLE:" + schDescription, "SUMMARY:" + schSubject, "PRIORITY:3", "END:VEVENT", "END:VCALENDAR"}

        System.IO.File.WriteAllLines("C:\TRError\Sample.ics", contents)

        SendMailAttachment("C:\TRError\Sample.ics")


    End Sub

这篇关于从ASP.NET Web Apps发送Outlook 2007会议请求的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！