Seite 1 von 1

Aus EXCEL einen bestimmten Termin in Outlook finden/öffnen

BeitragVerfasst: 23. Jun 2021, 13:09
von MHed
Moin Experten,

habe zwei Probleme:

Aus einer EXCEL Anwendung möchte ich, ausgelöst über einen Button, einen Termin mit einem bestimmten Betreff in Outlook finden und öffnen.
Folgenden Code habe ich gefunden und möchte diesen verwenden.

Code: Alles auswählen
Sub Grafik17_Klicken()
 Dim myitems As Outlook.Items
 Dim myFolder As MAPIFolder
 Dim Betreff As String

 Betreff = "Einladung zur IKS-Tool Roll-Out-Veranstaltung für Führungskräfte"
 Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar) 'hier entsteht der Fehler
 Set myitems = myFolder.Items

 'Durchlaufen aller Kalendereinträge und suchen nach Einträgen die den angegebenen Betreff enthalten
 For i = myitems.Count To 1 Step -1

     If InStr(1, myitems(i).Subject, Betreff, vbTextCompare) Then
        myitems(i).Display
        Counter = Counter + 1  'Anzahl der geänderten Einträge mitzählen
     End If

 Next
End Sub



1.) Allerdings gibt er mir einen Fehler zurück und ich weiß nicht warum es dort klemmt?

Der Fehler lautet:

Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht

2.) Um den Termin zu öffnen, kann ich diesen Code verwenden: myitems(i).Display oder muss es anders programmiert werden?

Für Eure Unterstützung wäre ich sehr dankbar, ich weiß das Ihr es lösen könnt. :)

Re: Aus EXCEL einen bestimmten Termin in Outlook finden/öffn

BeitragVerfasst: 23. Jun 2021, 14:13
von DerHoepp
Aaah, Crosspost im gleichen Forum! Meine Antwort steht im Excel-Forum: http://office-loesung.de/p/viewtopic.php?f=166&t=866838