He Tweakers
...
Een VB Visual Studio applicatie met een dataviewgrid.
Als ik de grid dubbelklik wil ik de bijbehorende email openen -> bijv -> "SC-Ref.:35"
...
In VBA geen issue -> het volgende werkt
Wat is de code voor Visual Studio - ik heb een stukje maar kom niet verder:
            ...
Een VB Visual Studio applicatie met een dataviewgrid.
Als ik de grid dubbelklik wil ik de bijbehorende email openen -> bijv -> "SC-Ref.:35"
...
In VBA geen issue -> het volgende werkt
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 | Dim olApp As Outlook.Application
Dim olNs As Outlook.Namespace
Dim Outbox As Outlook.MAPIFolder
Dim Items As Outlook.Items
Dim Msg As String
Dim Filter As String
Dim i As Long
Dim sstring As String
sstring = "SC-Ref.:35"
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Outbox = olNs.GetDefaultFolder(olFolderSentMail)
Filter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:subject" & _
                   Chr(34) & " Like '%" & sstring & "'"
Set Items = Outbox.Items.Restrict(Filter)
Msg = Items.Count & " Items in " & Outbox.Name
If MsgBox(Msg, vbYesNo) = vbYes Then
    For i = Items.Count To 1 Step -1
        DoEvents
        'Debug.Print Items(i).Subject 'Immediate Window
        Items(i).Display
    Next
End If | 
Wat is de code voor Visual Studio - ik heb een stukje maar kom niet verder:
code:
                                                1
2
3
4
5
6
7
 | Dim olApp = CreateObject("Outlook.Application")
Dim olNs As [NameSpace] = olApp.GetNamespace("MAPI")
Dim Outbox As MAPIFolder = olNs.GetDefaultFolder(olNs.OlDefaultFolders.olFolderSentMail)
'Dim Outbox As olNs.MAPIFolder = olApp.GetDefaultFolder(olApp.OlDefaultFolders.olFolderInbox)
Dim Items As Outbox.items | 
[ Voor 7% gewijzigd door RobIII op 21-03-2018 10:47 . Reden: code tags toegevoegd ]