Я пытаюсь написать некоторый код VB в Excel 2007, который будет автоматически отправлять приглашения на собрания из календаря Outlook 2007 в список адресатов, указанный в электронной таблице Excel, в даты, указанные в электронной таблице. Это полезно, потому что я могу отправить сотни приглашений на собрания разным людям в разные даты одним нажатием кнопки. Я могу сделать это нормально при отправке из моей учетной записи пользователя с помощью следующего кода:

' 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

Но теперь я хочу отправить приглашение на собрание из фиктивной учетной записи пользователя, для которой я являюсь делегатом, используя что-то вроде & # x2019; sendonbehalfof & # x2019; так что в фиктивном календаре хранятся все приглашения на собрания, и другие делегаты могут также управлять системой, используя ту же фиктивную учетную запись пользователя. Это прекрасно работает при отправке электронного письма со следующим кодом:

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

В электронном письме будет написано от меня от имени Фреда Блоггса & # x2019;

Но я не могу заставить его работать с календарными встречами.

Я произвел поиск "высоко" и "низко" с такими словами, как "назначение", & # x2018 ;, & # x2018; приглашение на собрание & # x2019 ;, sendonbehalfof & # x2019; и т. д., и, похоже, вы сможете сделать это для встреч с & # x2019; sendusingaccount & # x2019; но это, похоже, не работает (это не дает сбоя, просто игнорирует инструкцию и отправляет из моей собственной учетной записи пользователя, как и раньше).

Может кто-нибудь сказать мне, как это сделать? Спасибо большое.