Próbuję napisać kod VB w programie Excel 2007, który automatycznie wysyła zaproszenia na spotkania z kalendarza programu Outlook 2007 do listy adresatów wymienionych w arkuszu kalkulacyjnym excel, w terminach określonych w arkuszu kalkulacyjnym. Jest to przydatne, ponieważ mogę wysłać setki żądań spotkań do różnych osób w różnych terminach za pomocą jednego kliknięcia. Mogę zrobić to dobrze, wysyłając z mojego konta użytkownika za pomocą następującego kodu:

' 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

Ale teraz chcę wysłać wezwanie na spotkanie z fałszywego konta użytkownika, dla którego jestem delegatem, używając czegoś takiego jak „sendonbehalfof”, aby fałszywy kalendarz przechował wszystkie zaproszenia na spotkania, a inni delegaci mogli również obsługiwać system przy użyciu tego samego atrapy konto użytkownika. Działa to dobrze podczas wysyłania wiadomości e-mail z następującym kodem:

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

Wiadomość ode mnie od „w imieniu Freda Bloggsa”

Ale nie mogę zmusić go do pracy z terminami Kalendarza.

Szukałem wysokich i niskich słów ze słowami „spotkanie”, „wezwanie na spotkanie”, sendonbehalfof ”itp. I wydaje się, że powinieneś być w stanie to zrobić w przypadku spotkań z„ sendusingaccount ”, ale to nie wydaje się działać nie powiedzie się, po prostu ignoruje instrukcję i wysyła z mojego konta użytkownika jak poprzednio).

Czy ktoś może mi powiedzieć, jak to zrobić? Dziękuję bardzo.