Methode oder Datenobjekt nicht gefunden, an der Stelle .Session
Umbauwfb
Gesendet: 23.02.22 15:45
Betreff: Methode oder Datenobjekt nicht gefunden, an der Stelle .Session


Member

Beiträge: 6

Hallo,
ich bin VBA-Neuling und taste mich momentan Schritt für Schritt in das Thema.
Momentan komme ich an folgender Stelle nicht weiter:

Ich möchte von Access aus in Outlook eine bestimmte Email im Ordner Gesendete Elemente selektieren, um die EntryID auszulesen.

Als Einstieg benutze ich einen Beispiel-Code von Microsoft, den ich im Bereich "Filter" und "zu durchsuchender Ordner" angepasst habe. Den Code will ich später ausbauen, um die Entry-ID zu selektieren und in ein Feld zu schreiben.

Wenn ich kompiliere erhalte ich an der Stelle ".Session" die Fehlermeldung "Methode oder Datenobjekt nicht gefunden". Was fehlt noch im Code? Oder fehlt ein Verweis?

Eigentlich bräuchte ich auch keine Tabelle, weil der Filter eindeutig ist und nur 1ne Email zurückgegeben wird. Ich finde aber keinen anderen Einstieg...

Vielen Dank für die Hilfe
Harry

Private Sub cmdEmailSuchen_Click()

Dim oT As Outlook.Table
Dim strFilter As String
Dim oRow As Outlook.Row
Dim vBetreff As String
vBetreff = Me.Subject

'Construct filter for Subject containing 'Office'
Const PropTag As String = "https://schemas.microsoft.com/mapi/proptag/"

strFilter = "@SQL=" & Chr(34) & PropTag & "0x0037001E" & Chr(34) & vBetreff

'Do search and obtain Table on Inbox

Set oT = Application.Session.GetDefaultFolder(olFolderSentMail).GetTable(strFilter) 'Fehlermeldung bei Session

'Print Subject of each returned item
Do Until oT.EndOfTable
Set oRow = oT.GetNextRow
Debug.Print oRow("Subject")
Loop

End Sub
Top of the page Bottom of the page