如何在Excel中使用VBA代表其他日历发送会议请求?

我是第二次发布这个请求,因为尽pipe我已经收到了JimmyPena的回复,但是这个解决scheme并没有起作用,我似乎也不能对发生的事情添加我的意见。 VBA代码在Excel电子表格中不是Outlook。

我正试图在Excel 2007中编写一些VB代码,这些代码将自动从Outlook 2007日历发送会议邀请到Excel电子表格中列出的收件人列表,在电子表格中指定的date。 这很有用,因为我可以通过点击一个button向不同date的不同人发送数百个会议请求。 使用以下代码从我自己的用户帐户发送时,我可以做到这一点:

' Create the Outlook session Set myoutlook = CreateObject("Outlook.Application") ' Create the AppointmentItem Set myapt = myoutlook.CreateItem(olAppointmentItem) ' Set the appointment properties With myapt .Subject = " Assessment Centre " .Location = "conference room A" .Start = Cells(5, 24 + j) & " 17:00:00 PM" .Duration = 120 .Recipients.Add Cells(i, 1).Value .MeetingStatus = olMeeting ' not necessary if recipients are email addresses 'myapt.Recipients.ResolveAll .AllDayEvent = "False" .BusyStatus = "2" .ReminderSet = False .Body = L1 & vbCrLf & vbCrLf & L2 & vbCrLf & vbCrLf & L3 & vbCrLf & vbCrLf & L4 .Save .send End With 

但是现在我想从一个虚拟的用户帐户(我是一个委托人)使用类似'sendonbehalfof'的虚拟用户帐户发送会议请求,以便虚拟日历存储所有会议邀请,其他代表也可以使用同一个虚拟帐户用户帐号。 使用以下代码发送电子邮件时可以正常工作:

 Set oApp = CreateObject("Outlook.Application") Set oMail = oApp.CreateItem(0) With oMail .To = " John.Smith@John_Smith.com " .Subject = "Subject" .Body = "Body" .SentOnBehalfOfName = "Fred.bloggs@fred_blogs.com" .send End With 

电子邮件会从'我代表Fred Bloggs'

但我不能让它与日历约会。

我用“预约”,“会议请求”,“sendonbehalfof”等词来search高低,似乎你应该可以这样做与'sendusingaccount'的约会,但这似乎并没有工作(它doesn不会失败,只是忽略指令,并像以前一样从我自己的用户帐户发送)。
谁能告诉我如何做到这一点? 。 非常感谢。

您是否考虑过生成Internet日历约会(ICA)请求并通过电子邮件发送? 我相信格式包含您可以使用的委托信息。

这里是一些关于如何添加这个(在ASP.Net中,但这应该不重要)的微软文档的链接 , 这里是到定义格式的IETF RFC 的链接 。