Hallo,
Ik zoek heel simpel naar een manier om een pop-up te krijgen als er een nieuwe e-mail binnenkomt.
Aangezien outlook dit niet kan heb ik bedacht een vbscript te maken welke gestart wordt door outlook als de naam in het vak aan of cc staat.
Het geheel werkt, maar er is 1 probleem.
Hier eerst de gebruikte code:
Als er een nieuwe e-mail komt krijg je een pop-up met de vraag of je die wilt lezen.
Deze pop-up komt altijd op de voorgrond, dat heb ik al geregeld gekregen.
Vervolgens sluit het meldingkje als je op Nee klik.
Als je op Ja klikt wordt outlook geactiveerd (niet geopend, het staat immers al open)
Als outlook geminimaliseerd staat opent deze op de voorgrond. Het meldingkje gaat weg en outlook komt omhoog.
Maar als outlook niet geminimaliseerd is maar op de achtergrond staat gaat alleen het icoon knipperen.
De pop-up komt op de voorgrond, je klikt op Ja en deze gaat weg en vervolgens komt outlook niet naar voren.
Dit doet hij dus alleen als hij geminimaliseerd is.
Aangezien de mensen in het magazijn deze meestal op de achtergrond hebben staan ipv geminimaliseerd gebeurt er dus in hun ogen niks.
Ik weet niet meer waar de fout zit. Ik ben totaal onervaren met vb script en heb deze dingen vanaf internet in elkaar geplakt en wat aangepast.
Het werkt (waar ik al blij om ben!), alleen dat ene dingetje moet ik nog verholpen krijgen.
Maar hoe?
Ik zoek heel simpel naar een manier om een pop-up te krijgen als er een nieuwe e-mail binnenkomt.
Aangezien outlook dit niet kan heb ik bedacht een vbscript te maken welke gestart wordt door outlook als de naam in het vak aan of cc staat.
Het geheel werkt, maar er is 1 probleem.
Hier eerst de gebruikte code:
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
| On Error Resume Next
x=MsgBox("Er is nieuwe e-mail gearriveerd! Wil je deze nu lezen?",4164,"Nieuwe e-mail!")
if x=vbNo then wscript.quit
if x=vbYes then
Shl.MinimizeAll
'================== Start =======================
'Using Windows Management Instrumentation, we create a list of all
'the running process.
Shl.MinimizeAll
For Each Process In GetObject(_
"winmgmts:").InstancesOf("Win32_process")
ProcessList = ProcessList & " " & Process.Name
Next
'Create the Outlook Application object and the MAPI object (required
'to retrieve outlook folders and data).
Set MyOutlook = CreateObject("Outlook.Application")
Set myNameSpace = MyOutlook.GetNameSpace("MAPI")
'Check if Outlook.exe is on the list of running process.
If instr(ProcessList, "OUTLOOK.EXE") > Then
DisplayOnly 'if it is, call the DisplayOnly Function
Function DisplayOnly()
'this function will display outlook if it's running
'but will not start it if it's not. This way, the script
'will not start a new instance if one is already there.
myNameSpace.GetDefaultFolder(9)
MyOutlook.ActiveExplorer.Activate
SaveAndConfirm
End Function
End If
end if |
Als er een nieuwe e-mail komt krijg je een pop-up met de vraag of je die wilt lezen.
Deze pop-up komt altijd op de voorgrond, dat heb ik al geregeld gekregen.
Vervolgens sluit het meldingkje als je op Nee klik.
Als je op Ja klikt wordt outlook geactiveerd (niet geopend, het staat immers al open)
Als outlook geminimaliseerd staat opent deze op de voorgrond. Het meldingkje gaat weg en outlook komt omhoog.
Maar als outlook niet geminimaliseerd is maar op de achtergrond staat gaat alleen het icoon knipperen.
De pop-up komt op de voorgrond, je klikt op Ja en deze gaat weg en vervolgens komt outlook niet naar voren.
Dit doet hij dus alleen als hij geminimaliseerd is.
Aangezien de mensen in het magazijn deze meestal op de achtergrond hebben staan ipv geminimaliseerd gebeurt er dus in hun ogen niks.
Ik weet niet meer waar de fout zit. Ik ben totaal onervaren met vb script en heb deze dingen vanaf internet in elkaar geplakt en wat aangepast.
Het werkt (waar ik al blij om ben!), alleen dat ene dingetje moet ik nog verholpen krijgen.
Maar hoe?
:strip_icc():strip_exif()/u/43400/avatar.jpeg?f=community){kind=avatar}
) 
/u/102105/crop56f481fe1f74f.png?f=community)
([google=outlook windowstate])
/u/67312/bokkieavatar.JPG?f=community){kind=avatar}
