Thema Datum  Von Nutzer Rating
Antwort
Rot Excel: vba Laufzeitfehler 91: Objektvariable ... nicht festgelegt
15.08.2024 15:11:13 vandor
NotSolved
15.08.2024 16:52:09 Gast01
NotSolved
16.08.2024 14:03:14 Gast96728
NotSolved
15.08.2024 18:28:54 ralf_b
NotSolved
16.08.2024 14:05:48 Gast43080
NotSolved
17.08.2024 10:42:01 ralf_b
NotSolved
17.08.2024 12:17:33 vandor
NotSolved

Ansicht des Beitrags:
Von:
vandor
Datum:
15.08.2024 15:11:13
Views:
273
Rating: Antwort:
  Ja
Thema:
Excel: vba Laufzeitfehler 91: Objektvariable ... nicht festgelegt

Hallo
Office 365 (Microsoft 365 Apps for Enterprise)

Excel Version 2402
In einem Excel-Makro sollen auf bei den Mails , die ein Meeting Request beinhalten die Start und Ende Zeit dieses Meetings ausgegeben werden.

Der nachfolgende Code listet die Startzeit beim ersten Mail mit Meeting-Request , danach wird bei der Zeile:

Debug.Print ("A.Start " & A.Start)

mit dem o.g. Fehler abgebrochen:Laufzeitfehler 91: Objektvariable ... nicht festgelegt

Im Direktbereich wird folgende Zeile ausgegeben:

A.Start 27.11.2023 10:00:00

... danach der Fehler

Welche Änderungen am Code sind erforderrlich?

Danke ,

Gruß B.Kochs

'Klassenmodul BK_Class

Friend Sub EnumerateDefaultAppointmentsAndDoSomethingSillyThatIllustratesAPoint(calendarType As String)
        'https://stackoverflow.com/questions/4365890/find-underlying-object-type-for-outlook-meetingitem
        'https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/object-variable-not-set-error-91
        Dim myOutlookApp        As Object
        Dim myNameSpace         As Outlook.Namespace
        Dim myFolder            As Outlook.Folder
        
        Dim calendar      As Outlook.Folder
        Dim calendarItems As Outlook.Items
        Dim calendarItem  As Object
        
        Dim A As AppointmentItem
        
        Dim myMtg As Outlook.MeetingItem
        
        Set myOutlookApp = CreateObject("Outlook.Application")
        Set myNameSpace = myOutlookApp.GetNamespace("MAPI")
        
        Set calendar = myNameSpace.GetDefaultFolder(olFolderDeletedItems)
        Set calendarItems = calendar.Items.Restrict("[MessageClass] = 'IPM.Schedule.Meeting.Request'")

        For olItemsCount = 1 To calendarItems.Count
           Set calendarItem = calendarItems.Item(olItemsCount)
           
           If calendarItem.MessageClass = "IPM.Schedule.Meeting.Request" Then
              'Debug.Print ("Meeting.Request YO")
              Set A = calendarItem.GetAssociatedAppointment(False)
              Debug.Print ("A.Start " & A.Start)
           Else
              Debug.Print ("Meeting.Request NO")
           End If
        Next

End Sub

'normales Modul in dem die Methode des Klassenmoduls ausgeführt wird.

Sub Test_CM()
    Dim o_BK_Class As New BK_Class
    o_BK_Class.EnumerateDefaultAppointmentsAndDoSomethingSillyThatIllustratesAPoint ("")
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel: vba Laufzeitfehler 91: Objektvariable ... nicht festgelegt
15.08.2024 15:11:13 vandor
NotSolved
15.08.2024 16:52:09 Gast01
NotSolved
16.08.2024 14:03:14 Gast96728
NotSolved
15.08.2024 18:28:54 ralf_b
NotSolved
16.08.2024 14:05:48 Gast43080
NotSolved
17.08.2024 10:42:01 ralf_b
NotSolved
17.08.2024 12:17:33 vandor
NotSolved