outlook minimaliseren en slechts 1 maal openen

[SUVERMO]

heeft er iemand een code voor volgende vragen

1° scherm van outlook minimaliseren of achter het scherm van exel openen
2° als outlook reeds actief is deze dan niet opnieuw openen

 

[HSV]

Dat is dezelfde vraag als een van je vorigen.
Helaas werkt er niets bij jou wat bij een ander wel werkt.

 

[edmoor]

Toch nog eens proberen?
Dat doe je zo:

Public oOutlook As Object

Sub OUTLOOK()
    On Error Resume Next
    Set oOutlook = GetObject(, "Outlook.Application")
    On Error GoTo 0

    If oOutlook Is Nothing Then
        Set oOutlook = CreateObject("Outlook.Application")
    End If
End Sub

En om Outlook naderhand zichtbaar te maken:

Shell "Outlook", vbNormalFocus

 

[HSV]

Zie #10,
https://www.helpmij.nl/forum/showthread.php/952407-hoe-flikkeren-stoppen

 

[SUVERMO]

beste Ed en Harry,

en nu werkt het bij mij ook, sorry voor het storen, nogmaals hartelijk bedankt