Estou tentando escrever algum código VB no Excel 2007 que enviará automaticamente convites para reuniões do Calendário do Outlook 2007 para uma lista de destinatários listados na planilha do Excel, nas datas especificadas na planilha. Isso é útil porque posso enviar centenas de solicitações de reunião para diferentes pessoas em datas diferentes com um clique de um botão. Eu posso fazer isso bem ao enviar da minha própria conta de usuário com o seguinte código:

' 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

Mas agora eu quero enviar a solicitação de reunião de uma conta de usuário fictícia para a qual sou um delegado usando algo como 'sendonbehalfof' para que o calendário fictício armazene todos os convites de reunião e outros delegados também possam operar o sistema usando o mesmo fictício conta de usuário. Isso funciona bem ao enviar um email com o seguinte código:

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

O e-mail dirá de "eu em nome de Fred Bloggs"

Mas não consigo trabalhar com compromissos do Calendário.

Eu procurei alto e baixo com palavras como 'compromisso', 'solicitação de reunião', sendonbehalfof 'etc, e parece que você deve ser capaz de fazer isso para compromissos com' sendusingaccount ', mas isso não parece funcionar (não não falha, apenas ignora a instrução e envia da minha própria conta de usuário como antes).

Alguém pode me dizer como fazer isso? Muito obrigado.