VBA-Makro zum Einbetten von OLEobject in eine Outlook-Terminserie

Question

Wir verwenden den Outlook-Kalender, um die Zimmerbuchungen in unserem lokalen Gemeindezentrum zu verfolgen. Für jeden Kalendertermin/Raumbuchung fügen wir ein Objekt aus der Datei ein (eine Excel-Tabelle). Der Tabellen- und Dateipfad ist für jede Buchung gleich. Screenshot

Ich möchte mit einem Makro-Einbettung dieser Tabelle vereinfachen. Leider erlaubt es mir Outlook nicht, eine aufzunehmen, also versuche ich, es mit VBA zu scribbeln. Ich habe versucht, das Makro in Word aufgezeichnet, um zu sehen, ob es nach Outlook kopieren würde (es ist nicht - Objektvariable nicht festgelegt). Der generierte Code von Word war

Selection.InlineShapes.AddOLEObject ClassType:= _ 
    "Excel.SheetMacroEnabled.12", FileName:= _ 
    "K:\OutlookCalendar.xlsm" _ 
    , LinkToFile:=False, DisplayAsIcon:=False 

Ich glaube, ich brauche DIMs angeben, aber ich bin aus meiner Tiefe bekommen, und ich habe nicht in der Lage gewesen, so weit eine Google-Lösung zu finden. Könnte mir bitte jemand in die richtige Richtung zeigen?

Answer 1

Sie zuerst einen Verweis auf die "Microsoft Word x.0 Object Library" so Outlook die Objekte von Word verwendet, erkennen kann - Click Tools/References

Jetzt Um Ihre aufgezeichneten Makro in Outlook zu verwenden, Sie müssen eine Variable auf das Objekt Objekt Selection setzen.

Beispiel

Option Explicit 
Public Sub UseWord() 
    Dim Inspector As Outlook.Inspector 
    Dim wdDoc As Word.Document 
    Dim Selection As Word.Selection 

    Set Inspector = Application.ActiveInspector() 
    Set wdDoc = Inspector.WordEditor 
    Set Selection = wdDoc.Application.Selection 

    '-> And insert your recorded macro here 

End Sub 

---

IDE Werkzeuge/Referenzen