Ich versuche, einen VB-Code in Excel 2007 zu schreiben, der automatisch Besprechungseinladungen aus dem Outlook 2007-Kalender an die in der Excel-Tabelle angegebenen Daten sendet. Dies ist nützlich, da ich mit einem Klick auf eine Schaltfläche Hunderte von Besprechungsanfragen an verschiedene Personen zu verschiedenen Terminen senden kann. Ich kann dies problemlos tun, wenn ich von meinem eigenen Benutzerkonto mit dem folgenden Code sende:

' 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

Aber jetzt möchte ich die Besprechungsanfrage von einem Dummy-Benutzerkonto senden, für das ich ein Delegierter bin, der so etwas wie "sendonbehalfof" verwendet, damit der Dummy-Kalender alle Besprechungseinladungen speichert und andere Delegierte das System auch mit demselben Dummy bedienen können Benutzerkonto. Dies funktioniert einwandfrei, wenn Sie eine E-Mail mit dem folgenden Code senden:

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

In der E-Mail heißt es von mir im Namen von Fred Bloggs.

Ich kann es jedoch nicht zum Arbeiten mit Kalenderterminen bringen.

Ich habe mit Wörtern wie "Termin", "Besprechungsanfrage", "Weiterempfehlung" usw. hoch und niedrig gesucht, und es scheint, als ob Sie dies für Termine mit "Konto senden" tun könnten, aber dies scheint nicht zu funktionieren (es funktioniert nicht) 't fail, ignoriert einfach die Anweisung und sendet wie bisher von meinem eigenen Benutzerkonto aus).

Kann mir jemand sagen, wie das geht? Vielen Dank.