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 ]