Outlook minimized

[don42]

Beste helpers,

ik wil graag via VBA een formulier versturen
als outlook nog niet actief is dat dit dan gestart wordt
tot zover lukt het nog wel
maar is het ook mogelijk om outlook na het starten te minimaliseren


Stukje code:

Dim oOutlook As Object
    On Error Resume Next
    Set oOutlook = GetObject(, "Outlook.Application")
        On Error GoTo 0

    If oOutlook Is Nothing Then
        MsgBox "ooo"
        Shell ("OUTLOOK")
        GoTo a:
    Else
a:

Wie helpt me verder?

 

[edmoor]

Lees dit eens:
https://www.rondebruin.nl/win/s1/outlook/openclose.htm

 

[VenA]

Zo merk je er helemaal niets van.

Sub VenA()
  With CreateObject("Outlook.Application").CreateItem(0)
    .to = "Naam@gmail.com"
    .Subject = "geen"
    .send
  End With
End Sub

 

[don42]

Bedankt weer voor jullie fijne hulp
kan weer verder :thumb: