[VBscript] Do.. loop..

[ArjanC]

okee, ik beken.. ben een n00b met VBscript.
heb wel ASP gedaan, maar toch om de een of andere reden kom ik er niet uit..

ik heb dit scriptje :

code:

dim objOL
Set objOL = GetObject(, "Outlook.Application")
do while ObjOl is nothing 
msg = "Outlook is open, please close outlook first"   
style = Vbokonly
title = "Microsoft Outlook is open" 
response = MsgBox(msg, style, title)
loop

okee. als ik outlook open heb staan geeft hij een box, maar sluit ik outlook af geeft hij nog steeds die box.
dit is alleen maar als ik outlook afsluit tijdens dit boxje.

nu had ik er dit tussengezet SET ObjOl = Noting
mocht niet baten.

[mulder]

Ten eerste staat do while ObjOl is Nothing. Doe zolang niets is niets dus.

Volgens mij throwt GetObject ook een error als Outlook niet is opgestart, zo zou je ook kunnen checken.

[Crayne]

Op maandag 22 juli 2002 15:31 schreef burp2001 het volgende:

code:

dim objOL
Set objOL = GetObject(, "Outlook.Application")
do while ObjOl is nothing 
msg = "Outlook is open, please close outlook first"   
style = Vbokonly
title = "Microsoft Outlook is open" 
response = MsgBox(msg, style, title)
loop

Volgens mij is de benaming van je variabelen heel belangrijk.

Je gebruikt set objOl en vervolgens kijk je of ObjOl nothing is. Tuurlijk is die nothing, want dat is niet de variabele die je geSET hebt.

* Crayne hoopt dat hij niet uit zijn aars loopt te blaten

[ArjanC]

okee, gotcha..

ander scriptje gecreert (met de goeie naampjes)

code:

dim ObjOL

Set ObjOL = GetObject(, "Outlook.Application")

do until ObjOl is nothing 
    WSHShell.run "wscript.exe \\rtmeur01\apps\backup\backup_ost.vbs /full",1,true  
else
    msg = "Outlook is open, please close outlook first"   
    style = Vbokonly
    title = "Microsoft Outlook is open" 
    response = MsgBox(msg, style, title)
loop

doet het niet

[[ash]]

moet die:

code:

Set ObjOL = GetObject(, "Outlook.Application")

niet in de do...while loop ??

[ArjanC]

hoe dan ??

[Feyd-Rautha]

Op maandag 22 juli 2002 15:41 schreef burp2001 het volgende:
okee, gotcha..

ander scriptje gecreert (met de goeie naampjes)

code:

dim ObjOL

Set ObjOL = GetObject(, "Outlook.Application")

do until ObjOl is nothing 
    WSHShell.run "wscript.exe \\rtmeur01\apps\backup\backup_ost.vbs /full",1,true  
else
    msg = "Outlook is open, please close outlook first"   
    style = Vbokonly
    title = "Microsoft Outlook is open" 
    response = MsgBox(msg, style, title)
loop

doet het niet

huh, wat doet die ELSE daar
en die is nothing moet dat niet is null worden ofzo.

set Object is nothing -
wordt toch enkel gebruikt om het geheugen terug vrij te geven?

[ArjanC]

misschien is er iets mis met mijn logica (zal wel anders deed hij het al )

do todat ObjOl leeg is
<doe hier wat hij moet doen als hij leeg is>
anders (else)
<doe dit>
loop

code:

do until ObjOl is nothing 
msg = "Outlook is open, please close outlook first"   
style = Vbokonly
title = "Microsoft Outlook is open" 
response = MsgBox(msg, style, title)
else
WSHShell.run "wscript.exe \\rtmeur01\apps\backup\backup_ost.vbs /full",1,true  
loop

werkt niet

btw. is nothing werkt.

[Skinny]

Ik heb hier even geen Outlook voorhanden, maar met Excel werkt onderstaand stukje perfect.

code:

On Error Resume Next

Dim ExcelRunning As Boolean
Dim objOL As Object

ExcelRunning = True

Do While ExcelRunning

Set objOL = GetObject(, "Excel.Application")

If Err.Number = 0 Then
    MsgBox "Excel is nog aktief"
    Set objOL = Nothing
    ExcelRunning = True
Else
    ExcelRunning = False
    Err.Clear
    Exit Do
End If

Loop

MsgBox "Nu gaan we verder"

[Feyd-Rautha]

Ik ben nu ook geen VB-krak, maar volgens mij en alle andere programmeertalen kun je toch geen ELSE zetten zonder een IF ?

... Maar van M$ mogen we alles verwachten natuurlijk

[ArjanC]

Op maandag 22 juli 2002 15:54 schreef Skinny het volgende:
Ik heb hier even geen Outlook voorhanden, maar met Excel werkt onderstaand stukje perfect.
[code]On Error Resume Next

Dim ExcelRunning As Boolean

krijg hier al een error op..

As Boolean.. kent ie niet

[Skinny]

En als je die "As Boolean" weglaat ?

[edit]
VBScript (voor WSH) kent dus alleen maar Variant als datatype. Onderstaand script werkt 100% bij mij als .vbs-je

code:

On Error Resume Next
Dim ExcelRunning 
Dim objOL 

ExcelRunning = True

Do While ExcelRunning

Set objOL = GetObject(, "Excel.Application")

If Err.Number = 0 Then
    MsgBox "Excel is nog aktief"
    Set objOL = Nothing
    ExcelRunning = True
Else
    ExcelRunning = False
    Err.Clear
    Exit Do
End If

Loop

MsgBox "Nu gaan we verder"

[ArjanC]

hehe,

na wat veranderingen werkt hij met Excel!

maar niet met outlook..

als hij met die vraag komt en ik sluit mijn outlook blijft 'ie terugkomen.

[Skinny]

Hele stomme vraag, maar loopt er niet nog een "hidden" OUTLOOK proces ?

Als je zoveel met die Create/Get-Object funkties zit te spelen, gebeurt het snel dat er een instantie van het desbetreffende programma blijft draaien zonder dat je hem ziet.

Als je 2000/XP hebt, kijk een in je Task Manager onder Processes, of er nog een OUTLOOK.EXE staat te draaien. Anders even een keertje rebooten.

ik heb me er namelijk ooit ook eens in vergist.

[paulh]

ooops.. laat maar

[Greyfox]

Op maandag 22 juli 2002 15:35 schreef Crayne het volgende:

[..]

Volgens mij is de benaming van je variabelen heel belangrijk.

Je gebruikt set objOl en vervolgens kijk je of ObjOl nothing is. Tuurlijk is die nothing, want dat is niet de variabele die je geSET hebt.

ASP c.q. VBScript is niet case sensitive, dus dat is het probleem niet.

[Skinny]

Sorry hoor, maar af en toe vraag ik me echt wel eens af of mensen uberhaupt een topic lezen voordat ze reply-en.