Devvers,
Ik ben bezig met een tooltje wat outlook om de paar minuten controleerd op nieuwe taken. Dit werkt op zich prima alleen sluit de Outlook Instance zich niet af. Ik gebruik onderstaande code.
Ik heb al Ge'googled' en Ge'got' en het enige wat ik kan vinden wat in de buurt komt is
ooutlook.quit of ooutlook.session.logoff
Dit helpt echter allemaal niet en ben al een paar uur aan het stoeien.
Wie weet de oplossing ?
Alvast bedankt
Ik ben bezig met een tooltje wat outlook om de paar minuten controleerd op nieuwe taken. Dit werkt op zich prima alleen sluit de Outlook Instance zich niet af. Ik gebruik onderstaande code.
Ik heb al Ge'googled' en Ge'got' en het enige wat ik kan vinden wat in de buurt komt is
ooutlook.quit of ooutlook.session.logoff
Dit helpt echter allemaal niet en ben al een paar uur aan het stoeien.
Wie weet de oplossing ?
Alvast bedankt
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
| Private Sub check_tasks()
lv_tasks.Clear()
lv_tasks.Columns.Add("Taakomschrijving", 150, HorizontalAlignment.Left)
lv_tasks.Columns.Add("Percentage", 150, HorizontalAlignment.Left)
Dim oOutlook As Outlook.Application
Dim oNs As Outlook.NameSpace
Dim oFldr As Outlook.MAPIFolder
Dim oMessage As Outlook.TaskItem
oOutlook = New Outlook.Application
oNs = oOutlook.GetNamespace("MAPI")
oFldr = oNs.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderTasks)
aantal_totaal = 0
For Each oMessage In oFldr.Items
If oMessage.Complete = False Then
aantal_totaal = aantal_totaal + 1
If aantal_start < aantal_totaal Then
BalloonShown("Nieuwe Taak voor " & (System.Environment.UserName) & "", "Je hebt nieuwe taken")
End If
Dim task As ListViewItem = New ListViewItem
task.Tag = oMessage.EntryID
task.Text = oMessage.Subject
task.SubItems.Add(oMessage.PercentComplete)
lv_tasks.Items.Add(task)
End If
Next
oMessage = Nothing
oFldr = Nothing
oNs = Nothing
oOutlook = Nothing
End Sub |