outlook minimaliseren

[SUVERMO]

Hallo,

als bijgevoegd bestand wordt geopend start de auto_open macro
is het mogelijk om als outlook nog niet op de taakbalk staat het venster van outlook te minimaliseren

 

[edmoor]

Probeer dit eens:
OutlApp.ActiveWindow.WindowState = 1

 

[snb]

Sub M_snb()
    Set OL = GetObject("", "Outlook.Application")
    If OL Is Nothing Then Set OL = CreateObject("Outlook.Application")
End Sub

 

[SUVERMO]

snb en edmoor bedankt voor uw reactie maar geen van beide geeft het door mij verwachte resultaat.
uw 2 voorstellen staan in bijgevoegde

door ergens in deze excel te klikken minimaliseert Outlook, kan men dit bereiken met de macro Autpen?

 

[edmoor]

Doe het eens zo:

Sub Auto_Open()
    Dim OutlApp As Object
    
    On Error Resume Next
    Set OutlApp = GetObject(, "Outlook.Application")
    On Error GoTo 0
    
    If OutlApp Is Nothing Then
        Set OutlApp = CreateObject("Outlook.Application")
        OutlApp.Session.GetDefaultFolder(6).Display
    End If
    
    OutlApp.ActiveWindow.WindowState = 1
End Sub

 

[SUVERMO]

dat werkt prima, nogmaals bedankt

 

[edmoor]

Die 6 kan je nog even in een 1 wijzigen om meteen in de Inbox te zijn.

 

[SUVERMO]

toch nog en vraag

als men ergens in deze excel klikt wordt met VERDER1 verdergegaan, kan men dit bereiken met de macro Autpen?

 

[edmoor]

VERDER1 is geen macro maar een gedeelte van AUTO_OPEN.
Dat kan je dus nooit starten door een event in een werkblad.
Als dat overal in het werkboek moet gebeuren, dus op ieder werkblad in het document, doe dat dan in dit event:
Workbook_SheetSelectionChange

 

[SUVERMO]

het moet enkel in dit werkblad gebeuren
hoe?
ik heb geprobeerd maar het lukt mij niet
graag een oplossing

 

[edmoor]

Voor 1 werkblad gebruik je dit event:
WorkSheet_SelectionChange

 

[SUVERMO]

ed, het lukt mij niet
kun jij dit aub in de code plaatsen
hartelijk dank

 

[edmoor]

Je bedoelt dit?
Bekijk bijlage Kopie van outlook minimaliseren.xlsm

 

[SUVERMO]

Het object van blad 1 heb ik verwijderd want dan wordt VERDER1 uitgevoerd telkens als men op excel klikt.
Als Outlook reeds op de taakbalk staat en Autpen wordt uitgevoerd wordt verdergaan met VERDER1 en verschijnt de Inputbox, dat is de bedoeling
Bedoeling is als Outlook nog niet op de taakbalk staat en Autpen wordt uitgevoerd verdergaan wordt met VERDER1 en de Inputbox verschijnt.

 

[edmoor]

IK begrijp niet meer wat je bedoelt, maar alles zit er in dus kan je dat volgens mij zelf inrichten zoals je zelf wilt.

 

[SUVERMO]

met google gevonden
AppActivate Application.Caption

code aangepast, nu werkt als bedoeld.

Sub Auto_Open()
    Dim OutlApp As Object
    
    On Error Resume Next
    Set OutlApp = GetObject(, "Outlook.Application")
    
    If OutlApp Is Nothing Then
        Set OutlApp = CreateObject("Outlook.Application")
        OutlApp.Session.GetDefaultFolder(6).Display
        OutlApp.ActiveWindow.WindowState = 1
        AppActivate Application.Caption
        VERDER1
    Else
        VERDER1
    End If
  End Sub

Sub VERDER1()
    Do
    SHOWLETTER = UCase$(InputBox("Van welke Show kooilijsten versturen?" & vbCr & "De eerste letter", ""))
    Select Case True
    Case SHOWLETTER Like "[A-Z]"
    Exit Do
    Case Else
    MsgBox "Moet één hoofdletter zijn."
    End Select
    Loop
End Sub