|
Member
Beiträge: 6
| Ich bin jetzt einen Schritt weiter gekommen, habe den Code ergänzt...und den Filter im Ursprungszustand des Microsoft-Beispiels belassen.
Dort dann einen Betrefftext eingesetzt, von dem es eine Email im Ordner "Gesendete Objekte" gibt.
Der Filter wird auch angezeigt, wenn ich mit F8 Zeile für Zeile durch den Code gehe...
Das Direktfenster zeigt:
?strFilter
@SQL="https://schemas.microsoft.com/mapi/proptag/0x0037001E"; ci_phrasematch 'Bewerbung um einen Ausbildungsplatz als Bäckerin (4/988/373)'
Debug.Print bringt aber nichts...
Woran kann das noch liegen?
-------------------------------------------------------------------------
Code:
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
strFilter = "@SQL=" & Chr(34) & PropTag _
& "0x0037001E" & Chr(34) & " ci_phrasematch 'Bewerbung um einen Ausbildungsplatz als Bäckerin (4/988/373)'"
'Do search and obtain Table on Inbox
Set oT = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).GetTable(strFilter)
'Print Subject of each returned item
Do Until oT.EndOfTable
Set oRow = oT.GetNextRow
Debug.Print oRow("Subject")
Loop
End Sub | |
| |
|
Methode oder Datenobjekt nicht gefunden, an der Stelle .Session