thst
Gebruiker
- Lid geworden
- 10 apr 2001
- Berichten
- 655
Hallo excel experts,
Bijgaand een code om outlook te openen, maar als outlook geopend is moet de code niet voor de 2e keer outlook openen, wie kan me vertellen wat ik moet aanpassen in de code ?
Angela
Code:
Sub test()
Dim otl
Set otl = Nothing
Dim oShell
Set oShell = CreateObject("WScript.Shell")
On Error Resume Next
Set otl = GetObject("outlook.application")
On Error GoTo 0
If otl Is Nothing Then
'not running
oShell.Run ("regedit /s " & "H:publicpmtoff.reg")
oShell.Run ("regedit /s " & "H:publicpmt.reg")
oShell.Run ("Outlook")
Else
'running
End If
Set otl = Nothing
Set oShell = Nothing
End Sub
Bijgaand een code om outlook te openen, maar als outlook geopend is moet de code niet voor de 2e keer outlook openen, wie kan me vertellen wat ik moet aanpassen in de code ?
Angela